Discussion :

[morgan47]

bonjour
j'ai un petit userform, et dedans j'ai une question : aimez vous le metal?
avec 2 option button qui son oui et non.

j'ai ce code qui fonctionne, mais je souhaiterai savoir si on est obliger de faire une boucle ou bien si il y a une fonction qui renvoi directement l'option sélectionner?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each q In Commande.musique.Controls
If q.Value = True Then toq = q.Caption
Next q

merci d'avance

[Blunet]

Salut Morgan,

ton code fonctionne dans ce cas mais attantion il va vite dérapper si t'introduit 1 nouveau contrôle qui'il soit 1 option button ou même 1 bouton de commande... Tu vois pourquoi car ton code d'applique à tous les contrôles de l'usf !!

Voici comment tu peux tester le bouton d'option sélectioné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If optionbutton1 Then
toq=otptionbutton.caption
End If

tu peux utiliser une boucle sur les options buttons s'il y'en a plusieurs:
For i=1 to n

If optionbutton & i Then

toq=otptionbutton.caption

End If

Next i

Ciao

[Blunet]

re, je me suis 1 peu melé les pédales sur le dernier exemple (plusieurs (>3) bouton d'option sur le userform) entre VBA et VB (en travaillant coe si c'était 1 groupe de contrôle).
Voici le bon exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For each cr in Userform1.controls
      if left(cr.name,6) = "OptionButton" then
            toq=Userform1.controls(cr.name).text
      end if
next

Si ton usf n'a que 2 bouton d'option,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If optionbutton1 Then
toq=otptionbutton.caption
End If

Ciao, j'espère t'avoir aidé

[morgan47]

j'ai modifier un peu ton code car il ne marché pas chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For Each cr In musique.Controls
      If Left(cr.Value, 6) = True Then
           toq = musique.Controls(cr.Name).Caption
      End If
Next

[jmfmarques]

solution idiote et efficace:

mettre dans une variable (en private) le nom de l'optionbutton cliqué et tester cette variable...