Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "Remettre le menu" Then
ToggleButton1.Caption = "Oter le menu"
Application.DisplayFullScreen = False
' ici opérations à exécuter
ElseIf ToggleButton1.Caption = "Oter le menu" Then
ToggleButton1.Caption = "Remettre le menu"
' ici opérations à exécuter
Application.DisplayFullScreen = True
End If
End Sub
Private Sub ToggleButton1_Click()
ToggleButton1.Caption = IIf(ToggleButton1.Caption = "Remettre le menu", "Oter le menu", "Remettre le menu")
Application.DisplayFullScreen = IIf(ToggleButton1.Caption = "Remettre le menu", True, False)
End Sub