Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Macros As Long Sub Affiche() UserForm1.Caption = Macros & " en cours..." End Sub Sub macro1() Macros = Macros + 1: Affiche 'bla bla bla Macros = Macros - 1: Affiche End Sub Sub macro2() Macros = Macros + 1: Affiche 'bla bla bla Macros = Macros - 1: Affiche End Sub