Double message sur un bouton

[maval]

Bonjour

J'ai un bouton pour ôter le menu ou le remettre le menu j'aimerai que sur le bouton le message s adapte a fonction
c'est à dire si je supprime le menu sur le bouton il doit y avoir "ôter le menu" si je remet le menu sur le bouton il doit y avoir "Affiche le menu"

Je vous joint un modèle
Et je vous remercie par avance

Bonne année et bonne santé a tous

Max

 

[maval]

Re : Double message sur un bouton

Je vous remercie j'ai trouver

Bonne journée

Max

 

[CHALET53]

Re : Double message sur un bouton

Bonjour,

avec ce code si j'ai compris

Private Sub optionbutton1_Click()

If Application.DisplayFullScreen = True Then
OptionButton1.Caption = "Afficher le Menu"
Application.DisplayFullScreen = False
Unload Me
Else
OptionButton1.Caption = "Ôter le Menu"
Application.DisplayFullScreen = True
End If
Unload Me
End Sub


Private Sub UserForm_Initialize()
If Application.DisplayFullScreen = True Then
OptionButton1.Caption = "Afficher le Menu"
Else
OptionButton1.Caption = "Ôter le Menu "
End If
End Sub

a+