"SCANNER" les optionbutton d'une USF

[Philippe]

Bonjour, le forun,

afin d'alléger mon code je désire scanner tous les OptionBoutons de mon USF, j'ai donc écrit ceci:

dim ob as OptionButton, B as string
For x = 3 To 35
B = 'OptionButton' & Trim(Str(x))
Set ob = B
If ob.Value = True Then TP = ob.Caption
Next


Et.... ça ne marche pas, (ça plante à: Ser ob=B), comment définir ob afin que VBA l'identifie ??

Merci aux pros des objets VBA

 

[Philippe]

Lire: ça plante à: set ob=B

 

[Bernard_XLD]

Bonjour philippe, le forum

Set ob = Me.Controls( 'OptionButton' & x)

devrait mieux fonctionner

Cordialement, A+

 

[Philippe]

OK, merci Yeahou !