Le processus habituel d'impression d'étiquettes à partir de Microsoft Excel implique la fusion de feuilles de calcul avec Microsoft Word. Mais certaines personnes préfèrent effectuer toutes les tâches au sein d'Excel. Heureusement, il existe un moyen d'imprimer les étiquettes dans Excel sans avoir à utiliser Word. Ce tutoriel explique comment y parvenir.

Télécharger le cahier d'exercices

Vous pouvez télécharger le classeur contenant l'ensemble de données et la macro utilisée pour la démonstration à partir du lien ci-dessous et l'utiliser comme modèle.

Imprimer des étiquettes sans Word.xlsm

Il s'agit du fichier contenant les étiquettes imprimables.

Imprimer des étiquettes sans Word.pdf

Procédure pas à pas pour imprimer des étiquettes dans Excel sans Word

A imprimer des étiquettes directement à partir d'Excel sans utiliser Microsoft Word, il suffit d'imprimer la feuille de calcul Excel avec la taille d'étiquette appropriée. Nous pouvons transformer la taille des cellules en fonction de la taille de l'étiquette. Nous allons utiliser le code VBA pour effectuer cette tâche pour nous.

Tout d'abord, supposons que nous ayons l'ensemble de données suivant.

Nous allons d'abord convertir chaque donnée en étiquettes, puis les imprimer dans Excel sans l'aide de Word.

Pour pouvoir utiliser Microsoft Visual Basic for Applications (VBA) dans Excel, vous devez d'abord disposer de l'outil de gestion de la base de données de Microsoft. Développeur Cliquez ici pour découvrir comment vous pouvez afficher l'onglet Développeur sur votre ruban Une fois que vous l'avez, continuez à suivre les étapes que nous vous avons montrées pour imprimer ces étiquettes dans Excel sans Word.

Étape 1 : Copier les données dans une nouvelle feuille

La sélection du code VBA ici ne peut fonctionner correctement que si les entrées de cellule commencent à partir de la cellule A1 Donc, nous devons d'abord arranger notre jeu de données contenant toutes les étiquettes de cette manière. Dans le cas où votre jeu de données commence n'importe où ailleurs qu'en cellule A1 comme la nôtre, qui a commencé à la cellule B5 Pour cela, il faut d'abord les copier dans une nouvelle feuille de calcul et les placer au tout début de la feuille.

Maintenant, il devrait être prêt à travailler avec le code VBA.

Étape 2 : Insérer le code VBA

Ensuite, nous devons insérer le code VBA pour ajuster les étiquettes à la taille et à la forme souhaitées. Pour insérer le code VBA...

• Tout d'abord, allez sur le site Développeurs sur votre ruban.
• Sélectionnez ensuite Visual Basic de la Code groupe.

• La fenêtre VBA s'ouvre alors. Sélectionnez maintenant le champ Insérer et sélectionnez Module dans le menu déroulant.

• Après cela, allez dans le module et écrivez le code suivant.

 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 = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .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

Il y a deux parties ou sous parties dans ce code VBA - le CreateLabel et le AskForColumn Nous allons d'abord expliquer ce qui se passe dans la sous-section AskForColumn, puis nous passerons à la sous-section CreateLabel pour expliquer le fonctionnement du code.

Partie 1 :

Pour une meilleure compréhension, nous avons divisé la partie en différentes sections. Regardez la figure à la fin de la discussion.

👉 Section 1 : Cette section déclare le nom du sous AskForColumn .

👉 Section 2 : Nous avons utilisé cette section pour déclarer trois variables : refrg, vrb, et data.

👉 Section 3 : Dans cette section, nous avons fixé des valeurs pour refrg et data.

👉 Section 4 : À ce stade, le code affiche une zone de saisie sur la feuille de calcul.

👉 Section 5 : Dans cette section, un Pour La boucle est exécutée pour le nombre saisi dans la zone de saisie.

👉 Section 6 : Cette section du code redimensionne maintenant les cellules.

👉 Section 7 : Enfin, cette section efface le contenu supplémentaire.

Partie 2 :

Comme dans la partie précédente, nous avons également divisé cette sous-section en différentes sections. Suivez la figure à la fin de la discussion pour la partie visuelle.

👉 Section 1 : Cette partie du code déclare le nom du sous-domaine Createlabels .

👉 Section 2 : Cette commande exécute le sous-programme précédent à ce point du code.

👉 Section 3 : Cette partie formate chaque cellule en utilisant la méthode VBA Cellules propriété.

Étape 3 : Exécuter le code VBA

Une fois que vous avez saisi le code, fermez la fenêtre VBA. Pour exécuter le code maintenant, suivez ces étapes.

• Tout d'abord, allez sur le site Développeur sur votre ruban.
• Ensuite, sélectionnez Macros de la Code groupe.

• Maintenant dans le Macro sélectionnez Createlables en vertu de la Nom de la macro .

• Cliquez ensuite sur Exécuter .
• Ensuite, sélectionnez le nombre de colonnes que vous souhaitez. Nous en choisissons 3 pour la démonstration. Puis cliquez sur OK .

La feuille de calcul se présente alors automatiquement comme suit.

Les étiquettes sont maintenant prêtes à être imprimées dans Excel sans avoir recours à Word.

Lire la suite : Comment imprimer des étiquettes d'Excel dans Word (avec des étapes faciles)

Étape 4 : Définir des marges personnalisées

Pour imprimer les étiquettes, nous devons définir les marges correctes pour la page imprimée. Pour cela, nous devons choisir la taille appropriée de telle sorte qu'elle n'affecte pas la position de l'étiquette ou ne compromette aucune étiquette sur la feuille. Pour définir des marges personnalisées, suivez ces étapes.

• Tout d'abord, rendez-vous sur le site Mise en page sur votre ruban.
• Sélectionnez ensuite le Mise en page Vous pouvez le trouver dans le coin inférieur droit de chaque groupe.

• Par conséquent, le Mise en page Maintenant, allez dans la section Marges dans celui-ci.
• Sélectionnez ensuite les longueurs de marge souhaitées pour votre page imprimée. Nous avons sélectionné les suivantes.

• Une fois que vous avez terminé, cliquez sur OK .

Étape 5 : Sélectionner les options de mise à l'échelle pour l'impression

Une mise à l'échelle correcte est également importante pour l'impression des étiquettes. Par exemple, ce que nous avons fait jusqu'à présent imprimera la page comme ceci.

Ce qui n'est certainement pas notre but. Nous devons donc faire tenir la feuille sur une page. Pour ce faire...

• Tout d'abord, allez à la section de l'aperçu avant impression en appuyant sur Ctrl+P sur votre clavier.
• En bas à gauche de la vue, vous pouvez trouver Paramètres Sous cette rubrique, vous trouverez le Mise à l'échelle options à la fin.

• Cliquez maintenant sur l'option de mise à l'échelle et sélectionnez Fiche d'ajustement sur une page dans le menu déroulant.

La mise à l'échelle des étiquettes sera terminée à ce stade.

Lire la suite : Comment imprimer des étiquettes d'adresse dans Excel (2 méthodes rapides)

Étape 6 : Imprimer la feuille de calcul

Alors que vous êtes toujours sur l'écran d'aperçu avant impression, cliquez sur Imprimer en haut à gauche de la vue.

Cliquez dessus et cela imprimera toutes les étiquettes dans Excel sans l'aide de Word.

Les choses à retenir

👉 Avant d'exécuter le code VBA, assurez-vous que toutes vos étiquettes commencent à la cellule A1 .

👉 Sélectionnez une marge et une mise à l'échelle appropriées avant l'impression afin que toutes les étiquettes tiennent sur la page, sinon, certaines pourraient être coupées.

👉 Les actions du code VBA sont irréversibles. Assurez-vous donc d'avoir sauvegardé les données nécessaires avant d'en exécuter une.

Conclusion

Voilà les étapes à suivre pour imprimer des étiquettes dans Excel sans utiliser ou fusionner Microsoft Word. J'espère que vous êtes maintenant en mesure d'imprimer des étiquettes dans Excel sans Word. J'espère que vous avez trouvé ce guide utile et instructif. Si vous avez des questions ou des suggestions, faites-le nous savoir dans les commentaires ci-dessous.

Pour plus de guides comme celui-ci, visitez Exceldemy.com .