MsgBox pour la 2ème exécution d'une macro

[hajorinette]

Bonjour

Pour une macro qui se déclenche grâce à un bouton de contrôle, j'aimerai qu'un MsgBox me soit renvoyé lors de la 2ème,3ème,....nième exécution du bouton de contrôle.

Merci par avance

 

[Guest]

Re : MsgBox pour la 2ème exécution d'une macro

Bonjour hajorinette,

Deux solutions:

Soit déclarée une variable pubique en tête du module contenat la macro.
Publique LeCompteur as integer

Sub LaMacro()
   '....Travail de la macro
  LeCompteur=LeCompteur+1
  MsgBox "La macro a été appelée" & LeCompteur & " fois"
End sub

Sub LaMacro2()
[B]Static[/B] LeCompteur As Integer
   '.....Travail de la macro
   LeCompteur = LeCompteur + 1
   MsgBox "LaMacro 
a été appelée " & LeCompteur & " fois"
End Sub

A+

 

[hajorinette]

Re : MsgBox pour la 2ème exécution d'une macro

Merci Hasco cette déclaration marche très bien!
Le seul hic, c'est que mon MsgBox est renvoyée lors de la première exécution de la macro, alors que je veux que mon msg box ne soit renvoyée qu'à partir de la 2ème exécution.
NB: c'est pour alerter l'utilisateur qui ne doit exécuter la macro qu'une seule fois
Merci encore pour ton aide!

 

[hajorinette]

Re : MsgBox pour la 2ème exécution d'une macro

La réponse est simple finalement
Il suffit de mettre une condition sur Lecompteur

LeCompteur = LeCompteur + 1
If LeCompteur > 1 Then
MsgBox "BLA BLA "
End If
J'aurai appris que le Vba s'initialise à 0