Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Evènement click dynamique

ailete

XLDnaute Nouveau
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é
 

mikeo

XLDnaute Occasionnel
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+
 

Pièces jointes

  • lt.xls
    27.5 KB · Affichages: 34
  • lt.xls
    27.5 KB · Affichages: 40
  • lt.xls
    27.5 KB · Affichages: 43

ailete

XLDnaute Nouveau
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é.
 

mikeo

XLDnaute Occasionnel
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+
 

Pièces jointes

  • lt.xls
    32.5 KB · Affichages: 40
  • lt.xls
    32.5 KB · Affichages: 48
  • lt.xls
    32.5 KB · Affichages: 44

GeoTrouvePas

XLDnaute Impliqué
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.
 

klin89

XLDnaute Accro
Bonsoir à tous,

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

VB:
.../...
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…