recuperer les données optionbutton

[dad62]

bonjour le forum ,
avec un userform j'arrive a importer les données des textbox ,mais je bloque pour importer les optionbutton .caption ,un petit peu d'aide débloquerait le schmilblick

d'avance merci.

 

[JBARBE]

Re : recuperer les données optionbutton

Bonjour à tous,

Peut-être ceci !

Bonne journée

 

[Bebere]

Re : recuperer les données optionbutton

bonjour Dad,le forum

Private Sub CommandButton2_Click()

    With Worksheets("sans pv feu")
        InsMot = .Range("b65536").End(xlUp).Row + 1
        If Me.OptionButton1 Then .Range("A" & InsMot).Value = Me.OptionButton1.Caption
        If Me.OptionButton2 Then .Range("A" & InsMot).Value = Me.OptionButton1.Caption
        .Range("b" & InsMot).Value = chassis.TextBox1.Value
        .Range("c" & InsMot).Value = chassis.TextBox2.Value
        .Range("d" & InsMot).Value = chassis.TextBox3.Value
        .Range("f" & InsMot).Value = chassis.TextBox6.Value
    End With

End Sub

 

[dad62]

Re : recuperer les données optionbutton

merci à vous pour vos réponses,elles marchent bien sûre toutes,pour jean marcel, je bricole pas mal avec des bouts code récupérer et ne comprenant pas toujours comme il faut, quant cela fonctionne je ne me pose pas trop de question.il m'aurai fallu un bon prof mais sur ce forum j'apprend et ai toujours eut solutions à mes manques de connaissances.
bon dimanche à tous.

 

[Staple1600]

Re : recuperer les données optionbutton

Bonjour à tous

Histoire de varier les plaisirs d'écriture 😉

Private Sub CommandButton2_Click()
Dim lg&
With Worksheets("sans pv feu")
lg = .Cells(Rows.Count, 2).End(3)(2).Row
    .Range("A" & lg).Value = IIf(OptionButton1, OptionButton1.Caption, OptionButton2.Caption)
    .Cells(lg, "B").Resize(, 3).Value = Array(TextBox1, TextBox2, TextBox3)
    .Cells(lg, "F") = TextBox6
End With
End Sub

 

[Bebere]

Re : recuperer les données optionbutton

bonjour Staple ,Jean Marcel
y a une petite faute dans ma réponse,excuse invoquée:estomac creux

 

[Staple1600]

Re : recuperer les données optionbutton

Bonjour Bebere

De quelle petite faute tu parles ?

PS: Il est peut-être un peu tard pour les croissants ?
Quoique, on est dimanche alors bon petit déj de 10h43 😉

 

[laetitia90]

Re : recuperer les données optionbutton

bonjour tous 🙂🙂🙂🙂
on pourrait egalement

Feuil1.Cells(Feuil1.Cells(Rows.Count, 2).End(3)(2).Row, "a").Resize(, 6) = Array(IIf(OptionButton1 _
, "Hors Tout", "Dos de rainure"), TextBox1, TextBox2, TextBox3, "", TextBox6.Value)

 

[Bebere]

Re : recuperer les données optionbutton

bonjour Laetitia,Jbarbe(l'oublié)
Staple
If Me.OptionButton2 Then .Range("A" & InsMot).Value = Me.OptionButton1.Caption'<--changer 1 en 2 après =
servit chaud les croissants

 

[Staple1600]

Re : recuperer les données optionbutton

Re

Bebere
Ok. On a vu la même 😉
Croissants et thé ou croissants et café ? 😉

leti
Pourquoi TextBox6.Value et pas simplement TextBox6 ? 😉
Bravo en tout cas pour ton one-liner dominical 😉

 

[Bebere]

Re : recuperer les données optionbutton

café noir
elle tient la forme Laetitia, le dimanche

 

[Si...]

Re : recuperer les données optionbutton

salut

et si... on changeait de forme (autres options) ?

Et avec les autres cas, que faire ?
Je me suis amusé à compléter avec un Module de Classe pour les saisies numériques.