Savoir les code pour bouton option

Pierrot93 à dit:

Bonjour,

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

Code:

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

Cliquez pour agrandir...