Réinitialiser OptionButton avec un compteur

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

2 réponses

  1. Bonjour,

    For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "OptionButton" Then Ctrl.Value = False
    Next Ctrl
    A+