Réinitialiser OptionButton avec un compteur

thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai besoin de pouvoir réinitialiser différents OptionButton sur un USF.
Plutôt que de faire : 

MonUserForm.OptionButton1.Value = False
MonUserForm.OptionButton2.Value = False
MonUserForm.OptionButton3.Value = False
MonUserForm.OptionButton4.Value = False

etc........

pour tous les USF, je souhaiterai le faire à l'aide d'un compteur.

Ce serait une chose dans ce style : 

Dim i As Byte
For i = 2 to 6
Me.OptionButton(i).Value = False
Next i

Je sais que OptionButton(i) n'est pas correct mais c'est l'idée globale.

A savoir que tout se passe sur un même UF, que mes OptionButtons sont dans un Frame qui apparaît et disparaît au besoin.Et c'est quand il réapparaît que les OptionButtons doivent être réinitialisés (en gros, aucun ne doit être coché).

Merci



A voir également:

2 réponses

Réponse 1 / 2
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour, 

    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "OptionButton" Then Ctrl.Value = False
    Next Ctrl
A+
0
Réponse 2 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

For i = 2 To 6
    Me("optionbutton" & i) = False
Next i
0