Un bouton pour plusieurs macros

[dam31]

Bonsoir tout le monde,​

Je dois créer une macro qui fait fonctionner un feu tricolore dessiné sur excel.

Pour cela j'ai crée :

- la macro "vert" qui colore la case du bas en vert
- la macro "orange" qui éteint le vert et allume la case du milieu en orange
- la macro "rouge" qui éteint l'orange et allume le rouge (en haut)
- la macro 'éteint" qui éteint tout.

Je veux contrôler le feu par l'intermédiaire d'un seul bouton
=> 1er clic vert => 2 ème orange => 3 ème rouge => 4 ème éteint => 5 ème vert => etc

Mon idée est donc de créer une macro "contrôle" qui appelle les 4 autres en fonction de l'état du feu :
1er clic => la variable état=1 alors j'appelle la macro vert
2 ème clic => la variable état=2 alors j'appelle la macro orange
etc

A la fin après le 4 ème clic je vais faire une boucle qui repart au début
Le problème étant que je n'arrive pas à créer la macro "contrôle"
Donc j'espère que vous pourrez m'aider, en vous remerciant d'avance

Cordialement Damien​

 

[Staple1600]

Re : Un bouton pour plusieurs macros

Re


En hommage au grand Johnny 😛

Sub allumez_le_feu()
With Sheets(1)
    Run Switch( _
    .[J1] = 0, "vert", _
    .[J1] = 1, "orange", _
    .[J1] = 2, "rouge", _
    .[J1] = 3, "eteindre")
    End With
End Sub
Sub vert()
MsgBox "vert", vbExclamation, "AH QUE JOHNNY !"
End Sub
Sub orange()
MsgBox "orange", vbExclamation, "AH QUE JOHNNY !"
End Sub
Sub rouge()
MsgBox "rouge", vbExclamation, "AH QUE JOHNNY !"
End Sub
Sub eteindre()
MsgBox "éteindre", vbCritical, "NOIR C'EST NOIR"
End Sub

 

[Guest]

Re : Un bouton pour plusieurs macros

Bonsoir à Tous,

Variation sur l'idée de mon ami costaud des agrafes:

Run Array("Vert", "Rouge", "Orange", "Eteindre")([J1])

😉

A+++

 

[Staple1600]

Re : Un bouton pour plusieurs macros

Re

Bonsoir Hasco

tu m'as tuer

😱

*: m = mon orgueil vbaiste

 

[Guest]

Re : Un bouton pour plusieurs macros

RE,

J'avais oublié:

AH Que COUCOU!

A+++