Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
J'ai un fichier excel dans lequel je numérote le document. J'aimerais que la numérotation se fasse automatiquement à chaque impression pour être sur de n'avoir jamais 2 numéros identiques.
Bonjour Eric, le code que tu as proposé à SIMO pour la numérotation auto au moment de l'impression m'est bien utile. Merci. J'ai un onglet DEVIS et en effet à chaque impression c'est plus un. Parfait. Le Hic pour moi c'est que j'ai aussi un onglet FACTURE dans lequel je voudrais que la même chose se passe.
Donc SI j'imprime DEVIS = +1 OU SI j'imprime Facture = +1 aussi; mais les deux n'étant pas liés bien sûr. Je peux faire cinq devis mais seulement 2 factures par exemple.
J'ai cherché tant et plus mais j'ai pas su trouver ma solution. Alors un grand merci à qui pourra m'aider
Jean / en Inde et cerné par le COVID !
Je ne comprend pas bien.
Vu que [A1] s'adresse à la feuille active, c'est forcément 2 cellules différentes si tu changes d'onglet.
Par contre si tu veux que ça ne se fasse QUE sur ces 2 feuilles et non toutes sauf une, il faut mieux faire :
VB:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Devis" Or ActiveSheet.Name = "Facture" Then [A1] = [A1] + 1
End Sub
eric
PS : après réflexion, je pense que ta macro imprime plusieurs onglets sans les activer.
Si c'est le cas il faut que tu précises la feuille traitée Sheets("ta_feuille").[A1]=...
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD