Valeur OptionButton

guenfood

XLDnaute Occasionnel
Bonjour à tous,

Comment faire pour que tous les OptionButtons d'une feuille aient une valeur false à l'exécution d'une macro ?
 
A

AV

Guest
Salut,

Sub Réinitialise_BoutonsOptions()
For Each sh In Sheets('Feuil1').OLEObjects
If sh.Name Like 'OptionButton*' Then
ActiveSheet.OLEObjects(sh.Name).Object.Value = False
End If
Next
End Sub

AV [aaa]
 

Statistiques des forums

Discussions
312 587
Messages
2 090 008
Membres
104 344
dernier inscrit
nesrine