Savoir les code pour bouton option

[danaxia]

Bonjour mes amis(es) j'ai effectué des recherches je ne trouve pas la solution
pour programmer mes boutons d'options, voilà je fais appel à votre savoir Merci à tous qui me répondrons et les autres, Dan
Ci joint le fichier.

 

[soenda]

Re : Savoir les code pour bouton option

Bonjour le fil, danaxia

En mode design, double clique sur un bouton radio,
et ton curseur se placera dans l'évènement click de ton bouton.

Mais ai-je bien compris ta demande ?

A plus

Edition : Bonjour Pierrot93

 

[Pierrot93]

Re : Savoir les code pour bouton option

Bonjour,

essaye peut être ainsi, si j'ai bien compris :

Private Sub CommandButton1_Click()
Dim ligne As Long, c As Control
ligne = Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1
With Sheets("Feuil1")
    .Cells(ligne, 1) = TextBox1.Text
    .Cells(ligne, 2) = TextBox2.Text
     .Cells(ligne, 3) = TextBox3.Text
     .Cells(ligne, 4) = TextBox4.Text
    For Each c In Me.Avis.Controls
        If c.Value Then
            .Cells(ligne, 4) = c.Caption
            Exit For
        End If
    Next c
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

bon après midi
@+

Edition : bonjour Soenda

 

[danaxia]

Re : Savoir les code pour bouton option

Bonjour,

essaye peut être ainsi, si j'ai bien compris :

Private Sub CommandButton1_Click()
Dim ligne As Long, c As Control
ligne = Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1
With Sheets("Feuil1")
    .Cells(ligne, 1) = TextBox1.Text
    .Cells(ligne, 2) = TextBox2.Text
     .Cells(ligne, 3) = TextBox3.Text
     .Cells(ligne, 4) = TextBox4.Text
    For Each c In Me.Avis.Controls
        If c.Value Then
            .Cells(ligne, 4) = c.Caption
            Exit For
        End If
    Next c
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

bon après midi
@+

Edition : bonjour Soenda

Merci pour ton aide, c'est sympa, bonne soirée à toi Dan