lorsque rien n'est sélectionné dans l'index ... :Combobox1.listIndex = -1..
derriére le bouton nouveau il n'y as pas de code ..?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub ComboBox1_Change() Dim ligne As Integer If ComboBox1.ListIndex >= 0 Then ligne = ComboBox1.List(ComboBox1.ListIndex, 1) With Sheets("articles") TextBox1 = .Cells(ligne, 3) End With End If End Sub
.. derriére la combobox .. tu n'as pas mis de textbox de saisi comme celui que tu as mis dans client...
Partager