Réinitialiser optionbuttons dans une feuille

[meldja]

Bonjour,
Je me prends la tête depuis un bon moment pour réinitialiser (mettre à False) tous les optionbuttons (Contrôles ActiveX et pas formulaire) d'une feuille excel. A la limite, si ça réinitialise tous les optionbuttons sans distinction ActiveX et Formulaire, ça n'a pas d'importance.
J'ai cherché sur google pendant un bon moment mais tout ce que j'ai testé ne marche pas.
Pour commencer, presque tous les topics ouverts concernant ce sujet concernent les optionbuttons dans des userforms mais pas sur une feuille.
J'ai quand même réussi à en trouver concernant les feuilles mais ça ne marche pas.
Après il me reste la solution de les prendre un à un pour les mettre à False mais j'en ai plus d'une cinquantaine. C'est faisable, mais je me dis qu'il doit bien y avoir une solution pour boucler dessus. Le nombre est fixe donc un simple For suffirait.
Si quelqu'un a une solution, je lui en serais reconnaissant.
Merci et bonne soirée.

 

[Guest]

Re : Réinitialiser optionbuttons dans une feuille

Bonjour,

OptionButton ActiveX sur Feuille "Feuil1"

Sub Ras()
Dim ctl As OLEObject
For Each ctl In Sheets("Feuil1").OLEObjects
    If ctl.progID = "Forms.OptionButton.1" Then ctl.Object.Value = False
Next
End Sub

Si cela ne va pas, joindre un fichier exemple.

A+

 

[meldja]

Re : Réinitialiser optionbuttons dans une feuille

Merci,
Désolé d'avoir encombré le forum pour rien car j'avais vu une syntaxe du genre mais j'avais enlevé "Forms" pensant que ça faisait référence à un formulaire.
En tout cas merci

 

[Guest]

Re : Réinitialiser optionbuttons dans une feuille

Re,

Pas de soucis. "Forms.OptionButton.1" est un identifiant de classe d'objet.

A+