RESOLU: Bouton bascule avec une forme

[targa]

Bonjour,

J'ai trouvé dans ce poste: protéger-déprotéger
, ce bouton à bascule qui fait tout à fait ce que je recherche, mais à la place d'utiliser un ToggleBouton, je souhaiterai le faire avec une forme.
Cela est-il possible?
Car je trouve les ToggleBouton par très esthétique.

J'ai commencé par ceci, mais cela ne fonctionne pas et je n'arrive pas à lier ensuite la macro à mon code. :-(
J'ai essayé de la mettre sous la feuille, rien et ensuite dans un Module, et rien du tout non plus.
--------------------------------------------------
Private Sub MonBouton_Click()
If MonBouton Then
ActiveSheet.Protect
MonBouton.Caption = "Cliquez pour déprotéger"
Else
ActiveSheet.Unprotect
MonBouton.Caption = "Cliquez pour protéger"
End If
End Sub
--------------------------------------------------

Merci de votre aide! ;-)

 

[chris]

Re : Bouton bascule avec une forme

Bonjour

Une solution ci-jointe

 

[targa]

Re : Bouton bascule avec une forme

Bonjour Chris!

Merci beaucoup!, c'est tout à fait ça!

Super et te souhaite à toi et au forum une excellente soirée!!