Bon, je vais essayer d’être de t'expliquer,
le problème est que la macro :
Private Sub CommandButton5_Click()
With Sheets("Clientèle")
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
TextBox1.Value = Cells(no_ligne, 4).Value
TextBox2.Value = Cells(no_ligne, 5).Value
TextBox3.Value = Cells(no_ligne, 2).Value
TextBox4.Value = Cells(no_ligne, 3).Value
TextBox6.Value = Cells(no_ligne, 7).Value
TextBox5.Value = Cells(no_ligne, 6).Value
ComboBox2.Value = Cells(no_ligne, 1).Value
End With
End Sub
me donne un message d'erreur "imcompatibilité de type"
et je pense que c'est à cause de la macro :
Private Sub TextBox4_Enter()
If TextBox1.Value = "" Then
MsgBox "merci de renseigner le modèle de véhicule"
TextBox1.SetFocus
Exit Sub
End If
End Sub
qui ,elle bloque toute écriture sur Textbox4 tant que Textbox1 n'est pas renseigné.
Donc voila