Comment contourner une erreur pour l'exécution d'une macro ?

[libellule85]

Bonjour le forum,
J'aimerais mettre la même macro sur plusieurs feuilles.
Pour ce faire, je pensais mettre la macro dans un module puis mettre un commandButton ou un label sur chaque feuilles.
J'ai essayé sur une feuille quand je clique sur le bouton il me met "Erreur de Compilation : Sub ou Function non définie"

Sur le code de la feuille si je met :

Private Sub Label1_Click()
Essai
End Sub

ou

Private Sub Label1_Click()
Call Essai
End Sub

cela me renvoi toujours à l'erreur ci-dessus.
pour que cela fonctionne je dois mettre la macro dans le bouton !

Voici la macro en question (réalisée par Pierrot93, que je remercie une nouvelle fois) :

Private Sub Essai()
Dim i As Byte
 Application.ScreenUpdating = False
 For i = 1 To 30
     If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
 Next i
 Application.ScreenUpdating = True
 ActiveSheet.PrintOut
End Sub

Je voulais donc savoir : y a t'il un moyen de "contourner cette erreur" ?
D'avance merci pour vos réponses

 

[Staple1600]

Re : Comment contourner une erreur pour l'exécution d'une macro ?

Bonjour libellule856, le fil


Essaie en remplaçant Private par Public.

EDITION: Bonjour Pierrot93

 

[Pierrot93]

Re : Comment contourner une erreur pour l'exécution d'une macro ?

Bonjour,

enlève le mot "private" de la déclaration de la "sub"
"Sub Essai()"

bonne journée
@+

Edition : bonjour JM

 

[libellule85]

Re : Comment contourner une erreur pour l'exécution d'une macro ?

Bonjour Staple1600, Pierrot93,
Je vous remercie pour la rapidité de vos réponses : maintenant cela fonctionne.
Merci beaucoup pour votre aide
Très bonne journée