Comment faire pour que la valeur d’une cellule s’incrémente automatiquement après chaque impression ?
Dans de nombreux flux de travail professionnels et administratifs, il est souvent nécessaire d’imprimer plusieurs exemplaires d’un document, d’une facture ou d’un chèque, chacun doté d’un numéro de série ou d’un identifiant unique pour simplifier l’archivage et le suivi. Imaginez, par exemple, une feuille Excel formatée en tant que modèle de chèque ou de bon, où la cellule A1 contient un numéro tel que « Société-001 ». Imprimer 100 exemplaires de cette page en mettant à jour manuellement ce numéro à chaque fois serait non seulement fastidieux, mais aussi propice aux erreurs. Idéalement, vous souhaiteriez qu’Excel incrémente automatiquement la valeur de la cellule A1 à chaque impression : la première afficherait « Société-001 », la deuxième « Société-002 », et ainsi de suite jusqu’à « Société-100 ».
Par défaut, Excel ne propose pas de fonctionnalité intégrée permettant d’augmenter automatiquement la valeur d’une cellule après chaque impression. Toutefois, vous pouvez automatiser ce processus à l’aide d’une macro VBA. Cette solution s’avère particulièrement pratique pour générer efficacement des copies papier numérotées consécutivement — notamment pour des formulaires sériés, des tickets, des chèques ou tout autre document nécessitant des identifiants uniques sur les pages imprimées. Elle permet ainsi d’éviter les erreurs manuelles, de gagner du temps et de garantir que chaque exemplaire reçoive un numéro unique, exactement comme vous le souhaitez.
Voici une méthode VBA qui permet d’incrémenter automatiquement la valeur d’une cellule à chaque impression d’un exemplaire. Cet article propose également des conseils pour une utilisation efficace, des mises en garde essentielles et des astuces pratiques afin d’optimiser vos tâches d’impression en lot dans votre flux de travail Excel.
Incrémenter automatiquement la valeur d’une cellule après chaque impression avec du code VBA
Incrémenter automatiquement la valeur d’une cellule après chaque impression avec du code VBA
Excel ne propose pas d’option native pour incrémenter automatiquement la valeur d’une cellule à chaque impression. Pour automatiser ce processus, vous pouvez recourir à une macro VBA qui imprime un nombre défini d’exemplaires, chacun affichant dans la cellule A1 un identifiant incrémenté. Cette solution est idéale pour générer des copies personnalisées — telles que des chèques, des étiquettes ou des formulaires — dotées d’une numérotation séquentielle. Notez que l’utilisation de macros peut exiger l’activation des macros dans votre environnement Excel, et que l’exécution de code VBA pourrait modifier les paramètres de sécurité du fichier. Pensez toujours à sauvegarder votre travail avant d’exécuter tout script.
1. Maintenez simultanément enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Si c’est la première fois que vous utilisez VBA, vous devrez peut-être activer l’onglet Développeur dans le ruban Excel.
2. Dans l’éditeur VBA, cliquez sur Insertion > Module pour ouvrir une nouvelle fenêtre de module. Copiez et collez le code VBA fourni ci-dessous dans ce nouveau module. Ce script vous permettra d’incrémenter automatiquement le numéro d’impression à chaque exemplaire imprimé depuis la feuille active.
Code VBA : Incrémenter automatiquement la valeur d’une cellule après chaque impression :
Sub IncrementPrint()
'updateby Extendoffice
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Ce code vous demande le nombre total d’exemplaires à imprimer, met à jour la cellule A1 à chaque cycle d’impression et imprime automatiquement chaque version.
3. Après avoir collé le code, assurez-vous que votre feuille est prête et que la cellule active (généralement A1) contient le texte de base correct (par exemple « Société-001 »). Appuyez sur la touche F5 ou cliquez sur Exécuter dans l’éditeur VBA pour lancer la macro. Une boîte de dialogue s’affichera alors pour vous demander le nombre d’exemplaires à imprimer : saisissez le nombre souhaité (par exemple, 100) et confirmez. Reportez-vous à la capture d’écran ci-dessous pour référence :
Si vous saisissez une valeur non numérique ou cliquez sur Annuler, le processus s’interrompra sans aucune action. Veillez à n’entrer que des chiffres et à bien vérifier la valeur initiale dans la cellule A1 avant de poursuivre.
4. Cliquez sur le bouton OK. La macro imprimera désormais automatiquement la feuille le nombre de fois spécifié, en mettant à jour la séquence dans la cellule A1 à chaque impression, afin que chaque page soit numérotée consécutivement (par exemple : Société-001, Société-002, Société-003… jusqu’à Société-100, selon votre saisie et le format défini dans la macro).
Remarques et conseils supplémentaires : Dans le code, la cellule A1est utilisée pour le numéro de série. Tout contenu existant dans A1 sera écrasé par la première nouvelle valeur du numéro de séquence. Si vous souhaitez conserver ces informations, pensez à sauvegarder cette cellule avant d’exécuter le code. Le préfixe numérique par défaut («)Société-00 ») peut être adapté directement dans le code VBA pour correspondre à votre format de série préféré ; modifiez à la fois le texte et le remplissage numérique selon vos besoins. Soyez prudent lorsque vous utilisez cette macro dans des classeurs partagés ou protégés, car son exécution nécessite les autorisations appropriées. Si votre imprimante est lente, évitez d’exécuter le script avec un très grand nombre d’exemplaires afin de ne pas saturer la file d’attente d’impression.
Si vous rencontrez des problèmes tels que l’impossibilité de lancer l’impression, une incrémentation incorrecte des numéros ou des erreurs liées aux références de cellules, assurez-vous que les macros sont activées et que votre feuille n’est pas protégée. Vérifiez également que la cellule de référence (A1 dans cet exemple) est correctement définie avant d’exécuter la macro, et n’oubliez pas de sauvegarder votre classeur avant toute opération en lot pour éviter toute perte involontaire de données. Si vous avez besoin d’une personnalisation supplémentaire — par exemple, utiliser une autre cellule, un format numérique différent ou une autre feuille — adaptez en conséquence les références de cellule et les lignes de formatage dans le code VBA.
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