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

Evènement click dynamique

  • Initiateur de la discussion Initiateur de la discussion ailete
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

ailete

Guest
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é
 
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
    lt.xls
    27.5 KB · Affichages: 34
  • lt.xls
    lt.xls
    27.5 KB · Affichages: 40
  • lt.xls
    lt.xls
    27.5 KB · Affichages: 43
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é.
 
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
    lt.xls
    32.5 KB · Affichages: 40
  • lt.xls
    lt.xls
    32.5 KB · Affichages: 48
  • lt.xls
    lt.xls
    32.5 KB · Affichages: 44
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
306
Réponses
7
Affichages
703
W
Réponses
20
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…