recuperer les données optionbutton

JBARBE

XLDnaute Barbatruc

• 7 Décembre 2014

• #2

Re : recuperer les données optionbutton

Bonjour à tous,

Peut-être ceci !

Bonne journée

 

Pièces jointes

• Boutons.xlsm

  56.4 KB · Affichages: 56

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Décembre 2014

• #3

Re : recuperer les données optionbutton

bonjour Dad,le forum

Code:

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

 

Vote positif 0 Vote négatif

D

dad62

XLDnaute Occasionnel

• 7 Décembre 2014

• #4

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #5

Re : recuperer les données optionbutton

Bonjour à tous

Histoire de varier les plaisirs d'écriture 😉

VB:

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Décembre 2014

• #6

Re : recuperer les données optionbutton

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #7

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 😉

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Décembre 2014

• #8

Re : recuperer les données optionbutton

bonjour tous 🙂🙂🙂🙂
on pourrait egalement

Code:

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)

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Décembre 2014

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #10

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 😉

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 7 Décembre 2014

• #11

Re : recuperer les données optionbutton

café noir
elle tient la forme Laetitia, le dimanche

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 7 Décembre 2014

• #12

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.

 

Pièces jointes

• Options.xlsm

  56.3 KB · Affichages: 52

Vote positif 0 Vote négatif