Tu fais Alt+F11
Tu modifies le code :
Private Sub CommandButton14_Click()
Dim Reponse As String, firstAddress As String, Texte As String
Dim C As Range
Set C = Columns("A").Find(ComboBox1.Value, Range("A1").End(xlDown), xlValues, xlWhole)
If Not C Is Nothing Then
MsgBox ("trouvé en " & C.Address & " !")
C.Offset(0, 2).Value = TextBox7.Value
C.Offset(0, 3).Value = TextBox8.Value
C.Offset(0, 4).Value = TextBox9.Value
C.Offset(0, 5).Value = TextBox10.Value
C.Offset(0, 6).Value = TextBox11.Value
C.Offset(0, 7).Value = TextBox12.Value
End If
End Sub
Comme suit
Private Sub CommandButton14_Click()
Dim C As Range
Set C = Columns("A").Find(ComboBox1.Value, Range("A1").End(xlDown), xlValues, xlWhole)
If Not C Is Nothing Then
' MsgBox ("trouvé en " & C.Address & " !")
C.Offset(0, 2).Value = TextBox7.Value
C.Offset(0, 3).Value = TextBox8.Value
C.Offset(0, 4).Value = TextBox9.Value
C.Offset(0, 5).Value = TextBox10.Value
C.Offset(0, 6).Value = TextBox11.Value
C.Offset(0, 7).Value = TextBox12.Value
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
End If
End Sub