repérer le bouton d'option activé dans un userform

Bonjour,

J'ai créé un userform avec des boutons d'option en nombre variable. Ils sont nommés de façon logique (optspe suivi d'un numéro renvoyant à une colonne particulière d'une feuille de mon fichier). Quand on clique sur un bouton d'option, je voudrais que le contenu d'une listbox apparaisse en fonction du bouton sélectionné. Je sais faire en sorte que, à l'ouverture, le premier bouton soit sélectionné et la listbox complétée, mais je ne sais pas comment gérer la suite. j'ai bien écrit le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim l As Integer Dim bouton As String   l = 3 Do While Sheets("temp").Cells(4, l) <> "" If Sheets("temp").Cells(4, l) = 1 Then 'là, je teste une condition pour savoir quelles colonnes de mon fichier ont permis de construire un bouton d'option bouton = "optspe" & l 'ici, je récupère le nom du bouton d'option If Me.Controls(bouton) = True Then 'remplissage d'une listbox Exit Do End If End If l = l + 1 Loop

---

le problème est que je ne sais pas où écrire ce code. il me faudrait un truc du genre "optionbutton1_Click()", mais adressé à l'ensemble des boutons d'option du formulaire. J'espère que mes explications sont assez claires et merci pour vos conseils.

Bonjour,

Il est possible de récupérer le nom de l'élément coché avec

Code:

---

Me.ActiveControl.Name

---

et de lancer une macro à partir d'une variable string avec

Code:

---

Application.Run s

---

Un exemple:

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim s As String s = "d" & "bp(" & 4 & ")" Application.Run s End Sub   Sub dbp(n As Long) Debug.Print "dbp " & n * 2 End Sub

---

Cordialement.

Bonjour,

Merci pour la réponse, mais je ne suis pas sûr de bien comprendre. Ma macro permet déjà de récupérer le nom du bouton actif, c'est ce que me permettrait à priori en plus propre de faire le bout de code Me.activecontrol.name. ensuite, le code suivant me permettrait de lancer une macro dépendant du bouton d'option coché :

Code:

---

1 2 3 4

Dim s As String s = Me.ActiveControl.Name & "Click" Application.Run s

---

mais où dois-je écrire ce code pour qu'il se lance dès qu'un des boutons d'option est coché ? Si je le mets juste dans une macro classique, il ne se lancera pas tout seul à priori ?

merci de me confirmer si je suis sur la bonne voie

Bonjour,

J'ai l'impression que je ne comprends pas votre problème.
Un code peut être attaché au clic de chaque bouton.
Exemple en attaché.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub OptionButton1_Click() Dim myArray() As String myArray = Split("AL|AK|AZ|AR|CA|CO|CT|DE|DC|FL|", "|") ListBox1.List = myArray End Sub   Private Sub OptionButton2_Click() Dim myArray() As String myArray = Split("GA|HI|ID|IL|IN|IA|KS|KY|LA|ME|MD|", "|") ListBox1.List = myArray End Sub   Private Sub OptionButton3_Click() Dim myArray() As String myArray = Split("MA|MI|MN|MS|MO|MT|NE|NV|NH|NJ|NM|", "|") ListBox1.List = myArray End Sub   Private Sub UserForm_Initialize() Me.OptionButton1 = True OptionButton1_Click End Sub

---

Cordialement.

Bonjour

Le problème de ce code (OptionButton1_Click), c'est qu'il nécessite de connaitre le nom et le nombre de boutons d'option au départ, or dans mon cas, ces deux éléments sont inconnus et dépendent de saisies précédentes et variables. J'ai bien uen solution avec un CommandButton avec la procédure suivante :
- le formulaire est appelé et il est créé un nombre variable de boutons d'option
- l'utilisateur clique sur un des boutons d'options
- il clique ensuite sur le CommandButton
- une macro repère le bouton coché et agit en conséquence

Mais j'aurais aimé une procédure ne nécessitant pas de CommandButton avec un lancement de la macro dès qu'un bouton d'option quelconque est cliqué

Bonjour,

Dans ce cas il serait peut-être bon de passer par un module de class Perso pour la gestion des options buttons.

Qwazerty à un billet à ce sujet : https://www.developpez.net/forums/d2...o-automatique/

C'est exactement cela ! Par contre, il va falloir que je m'approprie le code en y ajoutant des éléments variables, mais ça devrait pouvoir le faire normalement.
Merci !

Très bien. J'ajouterais cependant que comme le formulaire comportera au moins 1 bouton-option, il devrait être possible de lui donner un nom "fixe" et donc de le cliquer à l'ouverture.
Cordialement.