Bouton d option
s
Bonjour forum,
J'aimerais connaitre le code, pour que si je sélectionne un bouton d'option, la valeur de la text box si mette dans une colonne spécifique.
Je vous met un fichier d'exemple, car j ai essayé moi même, mais ça na pas donné grand chose
En vous remerciant
Bonjour,
Supprime tous les codes que tu as mis dans ton USF et remplace les par celui-ci
Private Sub CommandButton1_Click()
Dim lfin As Integer
With Sheets("Feuil1")
If OptionButton1 = True Then
lfin = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("B" & lfin) = TextBox1.Value
ElseIf OptionButton2 = True Then
lfin = .Range("D" & .Rows.Count).End(xlUp).Row + 1
.Range("D" & lfin) = TextBox1.Value
ElseIf OptionButton3 = True Then
lfin = .Range("F" & .Rows.Count).End(xlUp).Row + 1
.Range("F" & lfin) = TextBox1.Value
Else: MsgBox "veuillez à sélectionner une option"
End If
End With
End SubSi ok lors de ta réponse, clique sur le v vert à coté du bouton EDITER pour cloturer le fil
Cordialement