Comment imprimer plusieurs exemplaires avec des numéros de page séquentiels ?
Vous êtes-vous déjà retrouvé dans une situation où vous deviez imprimer plusieurs exemplaires identiques d’une même feuille de calcul, chacun portant un numéro de page unique et séquentiel ? Imaginez, par exemple, avoir besoin de 10 copies d’un formulaire, avec la cellule A1 affichant « 001 » sur le premier tirage, « 002 » sur le deuxième, et ainsi de suite jusqu’à « 010 » sur le dernier. Cette méthode s’avère particulièrement utile pour générer des factures numérotées, des billets, des bons de commande ou tout autre document nécessitant un suivi individuel des exemplaires, que ce soit pour des raisons d’organisation ou d’audit.
Malheureusement, Excel ne propose pas de paramètre intégré pour imprimer automatiquement plusieurs exemplaires avec des numéros incrémentés dans une cellule spécifique. Modifier manuellement la feuille à chaque impression s’avère peu pratique, surtout lorsqu’un grand nombre d’exemplaires est nécessaire. Toutefois, grâce à une simple macro VBA, vous pouvez automatiser ce processus afin de gagner du temps, réduire les erreurs manuelles et garantir que chaque exemplaire soit numéroté de manière unique selon vos besoins.
Imprimer des copies avec des numéros différents via un code VBA
Utiliser des formules Excel et l’impression manuelle
Imprimer des copies avec des numéros différents via un code VBA
Imprimer des copies avec des numéros différents via un code VBACette méthode utilise une macro VBA pour imprimer plusieurs exemplaires d’une feuille de calcul, en insérant automatiquement un numéro séquentiel dans une cellule désignée à chaque tirage.
Suivez ces étapes pour créer et exécuter rapidement la macro :
1. Commencez par activer la feuille de calcul que vous souhaitez imprimer, puis appuyez sur Alt + F11 pour ouvrir la fenêtre de l’éditeur Microsoft Visual Basic pour Applications (VBA).
2. Dans l’éditeur VBA, cliquez sur Insertion > Module pour ajouter un nouveau module. Copiez-collez le code suivant dans la fenêtre du module. (Reportez-vous à la capture d’écran pour une illustration visuelle.)
VBA : Imprimez des exemplaires avec une numérotation de pages séquentielle.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub
Remarques et conseils concernant les paramètres :
- Dans le code, la référence A1 indique la cellule où le numéro de séquence apparaîtra. Si vous préférez une autre cellule, comme B2, mettez à jour la référence en conséquence.
- 1 To10 indique le nombre de copies à imprimer (dans cet exemple, 10). Vous pouvez remplacer 10 par tout autre entier positif selon vos besoins.
- «'00» & I met en forme le numéro de séquence pour l’afficher sur trois chiffres avec des zéros non significatifs (par exemple : 001, 002, 003). Si vous préférez un autre format (comme commencer à partir de 100 ou supprimer les zéros non significatifs), adaptez la chaîne en conséquence.
- Avant d’exécuter la macro, assurez-vous que votre feuille de calcul est prête et ne contient aucune donnée susceptible d’être écrasée dans la cellule cible. Il est recommandé d’enregistrer votre classeur avant de poursuivre, car les actions effectuées par la macro ne peuvent pas être annulées.
3. Avec votre feuille de calcul toujours active, appuyez sur F5 ou sur le bouton Exécuter dans l’éditeur VBA pour lancer le code. Une boîte de dialogue s’affichera alors, vous indiquant par exemple que « 10 exemplaires seront imprimés avec des nombres consécutifs ». Cliquez sur OK pour continuer : la macro parcourra automatiquement chaque numéro, insérera la séquence dans la cellule désignée et lancera l’impression. Chaque tirage sera ainsi numéroté de façon unique selon vos réglages.
Utiliser des formules Excel et l’impression manuelle
Lorsque vous n’avez besoin que d’un nombre limité d’exemplaires ou que vous préférez éviter les macros, utilisez simplement la poignée de recopie d’Excel pour générer des numéros séquentiels, puis imprimez chaque ligne manuellement. Cette approche est idéale dès lors qu’une numérotation unique est nécessaire pour des étiquettes, des badges ou des formulaires dans un lot de taille raisonnable.
1. Dans une nouvelle colonne (par exemple, la colonne A), saisissez le numéro de séquence de départ dans la première cellule, comme « 001 ». Pour ce faire, entrez la formule suivante dans la cellule A1 :
=TEXT(ROW(A1),"000")2. Faites glisser la poignée de recopie vers le bas pour reproduire la formule autant de fois que nécessaire (par exemple, jusqu’à la ligne 10 pour 10 exemplaires). Chaque cellule affichera alors le numéro séquentiel suivant, complété par des zéros non significatifs.
3. Copiez la ligne entière ou l’ensemble de données vers une nouvelle feuille pour chaque exemplaire requis, puis utilisez la fonction Imprimer d’Excel pour imprimer les feuilles individuellement. Cette méthode manuelle convient mieux aux petits lots et offre une meilleure confirmation visuelle avant impression.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels