cathodique
XLDnaute Barbatruc
Bonjour,
J'ai trouvé un code MichelXLD que je voudrais le transformer en fonction pour récupérer le caption des OptionButtons activées dans des variables.
https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/
Ce code fonctionne parfaitement.
Dans le fichier joint dans chaque Frame, à l'initialisation une OptionButton est activée par défaut.
J'ai donc 3 checkboxs, d'où 3 variables par exemple C1=OptionButton1.Caption, C2=OptionButton3.Caption, C3=OptionButton5.Caption
Comment obtenir par exemple Msgbox C1 & chr(10) & C2 & chr(10) & C3 & chr(10) via une fonction.
En vous remerciant par avance.
Bon week-end.
J'ai trouvé un code MichelXLD que je voudrais le transformer en fonction pour récupérer le caption des OptionButtons activées dans des variables.
VB:
Private Sub commandButton1_Click()
'lien du code https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/
Dim Ctrl As Control
Dim Valeur As String, Vr As Byte, Fx As Byte
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then
If Ctrl.Value = True Then
Valeur = Valeur & Ctrl.Name & " = True " & Chr(10)
Vr = Vr + 1
Else
Valeur = Valeur & Ctrl.Name & " =False " & Chr(10)
Fx = Fx + 1
End If
End If
Next
MsgBox Valeur & Chr(10) & Chr(10) & "Il y a " & Vr & " OptionButton cochés " & Chr(10) & _
"et " & Fx & " OptionButton non cochés . "
End Sub
Ce code fonctionne parfaitement.
Dans le fichier joint dans chaque Frame, à l'initialisation une OptionButton est activée par défaut.
J'ai donc 3 checkboxs, d'où 3 variables par exemple C1=OptionButton1.Caption, C2=OptionButton3.Caption, C3=OptionButton5.Caption
Comment obtenir par exemple Msgbox C1 & chr(10) & C2 & chr(10) & C3 & chr(10) via une fonction.
En vous remerciant par avance.
Bon week-end.
Pièces jointes
Dernière édition: