libellule85
XLDnaute Accro
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 :
ou
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) :
Je voulais donc savoir : y a t'il un moyen de "contourner cette erreur" ?
D'avance merci pour vos réponses
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 :
Code:
Private Sub Label1_Click()
Essai
End Sub
Code:
Private Sub Label1_Click()
Call Essai
End Subpour 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) :
Code:
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 SubJe voulais donc savoir : y a t'il un moyen de "contourner cette erreur" ?
D'avance merci pour vos réponses