Incrémenter une cellule en fonction d'une impression (j'ai déjà le code)

Hello,

J'ai trouvé ce petit code (ici en utilisant la recherche) qui ma foie fonctionne super bien !

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub

Quand j'imprime mon étiquette je suis sur la feuille2, cependant j'aimerai qu'il incrémente la cellule A1 mais de la feuille1, je pense qu'il n'y a pas grande chose à modifier sur le code mais je trouve pas...

En mettant juste la référence de la feuille "Feuil1!"?

Merci d'avance.

Bonjour

Mettez le nom de votre feuille devant Range sinon le code ne sait pas où l'impression doit se faire

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("nom de votre feuille").Range("A1").Value = Sheets("nom de votre feuille").Range("A1").Value + 1
End Sub

Cordialement

Hello,

Merci pour ta réponse rapide.

Message d'erreur :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(Base).Range("D4").Value = Sheets(Base).Range("D4").Value + 1
End Sub

J'ai essayé en entourant la feuille de " " sa ne fonctionne pas non plus...

J'ai essayé en entourant la feuille de " " sa ne fonctionne pas non plus..

vous devez mettre les guillemets

Si vous avez encore cette erreur c'est que votre nom de feuille n'est pas correct.

Question : où est placé le code ?

J'ai trouvé mon problème! :D

Dans ma cellule D4 il y avait des lettres donc sa ne fonctionnait pas.

Merci beaucoup.

ok