Evènement click dynamique

[ailete]

Bonjour,

j'ai un certain nombres d'OptionButton dans un Userform.
J'ai beaucoup d'évènements au niveau du click sur ces OptionButton.

J'aimerais savoir s'il était possible de gérer un évènement qui se déclencherait au niveau d'un click sur n'importe quel OptionButton, et ensuite on ferait un test sur le nom.

Je ne sais pas si j'ai été assez clair...

Merci d'avance!!

Aileté

 

[Pierrot93]

Re : Evènement click dynamique

Bonjour,

regarde du coté des modules de classe, une petite recherche sur le forum te fournira pas mal d'exemples...

bonne journée
@+

 

[mikeo]

Re : Evènement click dynamique

Bonjour aileté, Pierrot,

Peut être mettre les boutons dans un frame pour n'avoir qu'une option possible ? Ou ton problème est plus compliqué que çà ?

A+

 

[ailete]

Re : Evènement click dynamique

Bonjour Mikeo,

mon problème est plus compliqué.
Dans ton fichier tu as encore "OptionButton1_Click, OptionButton2_Click" etc...

C'est cela que je veux éviter, j'aimerais avoir un évènement qui se déclenche lorsqu'on clique sur n'importe quel optionbutton et qui teste ensuite lequel a été cliqué.

 

[Pierrot93]

Re : Evènement click dynamique

Re, bonjour Mikeo

as tu vu mon post de 10h38...

 

[ailete]

Re : Evènement click dynamique

Oui je l'ai vu, mais je n'ai pas encore pris le temps de chercher.
Merci de m'avoir guidé.

 

[mikeo]

Re : Evènement click dynamique

Rebonjour Pierrot, aileté

Tu avais raison, effectivement je n'avais pas bien compris la question de ailete.
Ci-après une proposition. Sinon voir les posts de Laetitia.

A+

 

[GeoTrouvePas]

Re : Evènement click dynamique

Bonjour tout le monde !

Je t'invite fortement à suivre l'idée de Pierrot. L'utilisation d'un module de classe est tout à fait adaptée à ton cas et répond parfaitement à ta demande.

 

[ailete]

Re : Evènement click dynamique

Parfait!

Merci beaucoup Mikeo!

 

[klin89]

Bonsoir à tous,

Dans un style pas très académique, une structure de ce type :

.../...
Dim Ctrl As Control, NomCtrl As String
For Each Ctrl In Me.Controls
  If TypeOf Ctrl Is MSForms.OptionButton Then
    NomCtrl = Ctrl.Name
    If Ctrl.Value = True Then Exit For
  End If
Next Ctrl

Select Case NomCtrl
  Case "OptionButton1"
    'Ton code 1
  Case "OptionButton2"
    'Ton code 2
  Case "OptionButton3"
    'Ton code 3
End Select
.../...

Klin89