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 : Sélectionner tout - Visualiser dans une fenêtre à part
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