Salut le Forum,
J'ai un UserForm avec une Frame et dans celle-ci j'ai plusieurs OptionButton
Chaque OptionButton contient uniquement le nom d'une société, et la procédure à appeler serra différente selon l'OptionButton cochée
Vue la quantité d'OptionButton, je me suis dit que j'allais Boucler sur eux (via un For Each
) et appeler la procédure correspondante si l'objet qui est testé répond VRAI aux conditions : Ctrl.Name Like "OptionButton*"
et Ctrl.Value = True
Le hic c'est qu'appeler une macro ensuite via un Call Ctrl.Caption
sa ne fonctionne pas :p
Vous auriez une idée ^^ ?
Le code :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl.Name Like "OptionButton*" Then
If Ctrl.Value = True Then Call Ctrl.Caption
End If
Next Ctrl
End Sub
Merci d'avance pour vos retours