[XL-2007] Bouton avec double message

[apdf1]

Bonjour,

Me revoilà ici pour vous soumettre un nouveau petit problème que je n'arrive pas à résoudre.
J'essaye de faire avec un bouton un double message, j'avais tenté le code suivant mais ça marche pas.

Code :

1
2
3
4
5
6
7
8
9
Sub Rectangle_click()
est
End Sub
Sub est()
ActiveSheet.Shapes("Rectangle").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "Ôter le menu", "Afficher le menu", "Ôter le menu"): [b1].Select
Application.DisplayFullScreen = True
Application.DisplayFullScreen = False
End Sub

Quel serait le code qui me permet d'afficher un double message
Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

[helas]

Bonjour,
Avec un bouton ActiveX simplement

Code :

1
2
 
Activesheet.CommandButton1.Caption="Oter le menu"