Les étiquettes nous sont utiles à bien des égards. Vous pouvez créer des étiquettes dans Excel avec l'aide de Microsoft Word. Mais, dans certains cas, cela peut être très compliqué et prendre beaucoup de temps. Vous pouvez donc vouloir créer des étiquettes dans Excel sans Word. Cet article présente un guide étape par étape de la création d'étiquettes dans Excel sans Word.

Télécharger le cahier d'exercices

Vous pouvez télécharger le cahier d'exercices à partir du lien ci-dessous.

Que sont les étiquettes ?

D'une manière générale, une étiquette est un autocollant ou un morceau de papier décrivant l'objet ou le produit auquel il est attaché. Les étiquettes sont utilisées dans de nombreuses applications. Par exemple, les gens doivent créer des étiquettes pour les adresses afin de pouvoir les attacher à l'enveloppe. De même, nous pouvons voir des étiquettes attachées au matériel de nos ordinateurs afin de pouvoir les identifier et connaître leurs spécifications.

4 étapes pour créer des étiquettes sans Word dans Excel en utilisant VBA

Il est très pratique de créer des étiquettes dans Excel sans l'aide d'un logiciel de traitement de texte. Microsoft Word De plus, cela permet d'économiser beaucoup de temps et de soucis.

Maintenant, supposons que vous avez un ensemble de données avec une liste de Adresses vous voulez envoyer vos cartes de Noël. À ce stade, vous voulez créer des étiquettes pour ces Adresses dans Excel sans utiliser Word. Dans ce cas, vous pouvez suivre la série d'étapes ci-dessous pour le faire.

Étape 01 Copier des données vers une nouvelle feuille dans Excel

• Tout d'abord, copiez les adresses de la colonne et collez-les dans un fichier de type Nouvelle feuille à partir de la cellule A1 .

Étape 02 : Ouvrir une fenêtre VBA et créer un module dans Excel

• Ensuite, appuyez sur ALT + F11 pour ouvrir le VBA fenêtre.
• Maintenant, sélectionnez la feuille sur laquelle vous travaillez actuellement et Clic droit Dans ce cas, c'est Feuille 2 .
• Ensuite, sélectionnez successivement Insérer > ; Module .

Finalement, ces séries d'étapes ouvriront le VBA et insérer une nouvelle Module dans votre feuille.

Étape 03 : Insérer le code dans Excel

• À ce stade, copiez le code suivant et collez-le dans la case vide.

 Ce code va créer des étiquettes dans Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number ofColumns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

💡 Explication du code :

À ce stade, je vais expliquer le code utilisé ci-dessus. Comme vous pouvez le voir, ce code se compose de deux parties. L'une d'entre elles contient le sous-programme AskForColumn () que l'on appellera Partie 01 et l'autre contient le sous Créer des étiquettes() que l'on appellera Partie 02 Maintenant, je vais expliquer ces deux parties une par une.

Partie 01 :

À ce stade, j'ai divisé le code en différentes sections et j'ai numéroté chacune des sections dans la capture d'écran suivante. Par conséquent, je vais expliquer ici chaque section en fonction de son numéro.

• Section 1 : Cette section crée un sous-ensemble nommé AskForColumn .
• Section 2 : Ici, nous déclarons différentes variables.
• Section 3 : Dans cette section, nous comptons le nombre de lignes de la colonne.
• Section 4 : Maintenant, ici nous créons un InputBox pour demander le nombre de colonnes.
• Section 5 : Dans cette section, nous effectuons un Pour De même, nous utilisons la boucle Étape pour exécuter la boucle le nombre de fois que nous avons mis dans le mot-clé InputBox .
• Section 6 : A ce stade, nous utilisons cette section pour distribuer la cellule de la colonne en différentes lignes et colonnes en utilisant l'application Transposition et de la propriété Redimensionner .
• Section 7 : Enfin, nous supprimons le contenu supplémentaire de cette section.

Partie 02 :

Dans ce cas également, j'ai divisé le code en différentes sections et j'ai numéroté chacune des sections dans la capture d'écran suivante. Par conséquent, je vais expliquer ici chaque section en fonction de son numéro.

• Section 1 : Cette section crée un sous-ensemble nommé Créer des étiquettes() .
• Section 2 : Dans cette section, nous appelons le soleil DemanderColonne() pour courir.
• Section 3 : A ce stade, cette section définit le Format des cellules pour toutes les cellules en utilisant le Cellules propriété.

Étape 04 : Exécuter le code pour créer des étiquettes sans Word dans Excel

• Maintenant, appuyez sur F5 pour exécuter le sous Créer des étiquettes () .
• En conséquence, vous verrez une boîte apparaître sur votre écran comme la capture d'écran ci-dessous.
• À ce stade, insérez le nombre de colonnes dans lesquelles vous souhaitez placer vos étiquettes.
• Ensuite, cliquez sur OK .

• Enfin, vous aurez vos étiquettes créées comme la capture d'écran ci-dessous.

💡 Notes :

• Cette méthode ne fonctionne que si vos données se trouvent dans une seule colonne.
• Après avoir créé les étiquettes, vous pouvez ajouter des bordures à l'aide de la fonction Toutes les frontières dans la section Accueil onglet.
• Aussi, assurez-vous que vous exécutez le sous Créer des étiquettes() Dans ce cas, si vous exécutez le sub, AskForColumn () vous n'obtiendrez pas le résultat souhaité.
• De plus, n'entrez rien d'autre que les adresses de la colonne A .

Lire la suite : Comment créer des étiquettes dans Word à partir d'une liste Excel (guide étape par étape)

Comment imprimer des étiquettes dans Excel sans Word

Après avoir créé les étiquettes à l'aide des étapes mentionnées ci-dessus, vous souhaitez maintenant imprimer les étiquettes Maintenant, si vous voulez le faire, vous pouvez suivre les étapes ci-dessous.

Étapes :

• Tout d'abord, allez sur le site Mise en page en haut de la page.
• Ensuite, cliquez sur le Mise en page bouton.

• Après cela, allez à Marges .
• Maintenant, modifiez le Top et Fond les marges de 0.5 puis modifiez le Gauche et Droit les marges de 0.215 .
• Par conséquent, cliquez sur OK .

• Maintenant, appuyez sur CTRL + P pour ouvrir le Imprimer menu.
• À ce stade, cliquez sur Pas de mise à l'échelle et 4 options apparaîtront.
• Ensuite, parmi ces options, sélectionnez Faire tenir toutes les colonnes sur une seule page .

• Enfin, vous êtes prêt à imprimer.
• Dans ce cas, votre aperçu avant impression sera comme la capture d'écran ci-dessous.

Lire la suite : Comment fusionner des étiquettes d'Excel à Word (en quelques étapes) ?

Conclusion

Enfin, j'espère que vous avez trouvé ce que vous cherchiez dans cet article. Si vous avez des questions, n'hésitez pas à laisser un commentaire ci-dessous. Par ailleurs, si vous souhaitez lire d'autres articles de ce type, vous pouvez visiter notre site web. ExcelWIKI .