Voici ma recherche. Je voudrais lancer 6 macros différentes en cliquant 6 fois sur le même bouton.
Premier clic lance macro1
Second clic lance macro2
etc...
Sixième clic lance macro6
Si on clic une septième fois, c'est interprété comme le premier clic d'une nouvelle série de 6.
En fait, je n'y arrive pas avec un seul bouton, car à chaque clic ça relance la macro1 au lieu de passer à la macro2 et etc.
Re : Lancer 6 macros différentes, l'une après l'autre, grace à un seul bouton
Bonsoir a essayé
dans un module /affecté au bouton de commande
Dim NbClic As Long
Sub Test()
NbClic = NbClic + 1
If NbClic = 1 Then macro1
If NbClic = 2 Then macro2
If NbClic = 3 Then macro3
If NbClic = 4 Then macro4
If NbClic = 5 Then macro5
If NbClic = 6 Then macro6
Re : Lancer 6 macros différentes, l'une après l'autre, grace à un seul bouton
Pour la capitalisation, voici ce que j'ai fait.
1 bouton avec une macro attachée
Sub mamacro()
NbClic = NbClic + 1
If NbClic = 1 Then Application.Run "ligne1"
If NbClic = 2 Then Application.Run "ligne2"
If NbClic = 3 Then Application.Run "ligne3"
If NbClic = 4 Then Application.Run "ligne4"
If NbClic = 5 Then Application.Run "ligne5"
If NbClic = 6 Then Application.Run "ligne6"
If NbClic = 6 Then NbClic = 0
End Sub
Bon, si on ne fait que 4 clics et qu'on veut repartir à zéro, ça ne gère pas ce cas automatiquement. Il faut re-cliquer 2 fois et ensuite on est calé sur le cas "Premier clic lance Macro1". Mais pour le moment ça me va comme cela.