Pilotage commande activeX avec VBA

Bonjour,

Je me met doucement doucement à convertir mes formulaires en contrôle activeX et j'ai un petit problème sur mon fichier excel :

Je souhaite que l'utilisateur voit si la feuille est protégé ou non, et qu'il puisse d'un seul clic activer ou désactiver la protection.

Group name : Protection

Bouton Oui : OptionButton22

Bouton Non : OptionButton21

Jusque la tout va bien, par contre, j'ai des macros qui peuvent activer la protection, je souhaite donc piloter la bascule pour activer le "Oui", si le "Non" est activé.

En gros, pour faire simple, il faudrait que j'arrive à coder cette ligne proprement avec activeX:

OptionButton22.Value = True

J'ai aussi testé ce code (obtenu via l'enregistreur de macro), mais il sélectionne uniquement la case, sans activer la valeur de la case.

ActiveSheet.Shapes.Range(Array("OptionButton22")).Select

Merci à vous,

Maxime.

Bonjour,

lorsque le control est sur un feuille, il faut spécifier celle-ci

ActiveSheet.OptionButton22.Value = True

ou bien

Sheets("Feuil1").OptionButton22.Value = True

Bonjour,

Bon ben ça marche, je suis surpris de ne pas l'avoir testé.

Désolé pour le dérangement et merci beaucoup !

Maxime.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!