François

Bonjour gex1403,

Je cherche une solution tel que tu as donné à Luc. J'ai modifié des lignes pour que le tout fonctionne pour moi sans succès. Mes données se trouvent en D, E, etc.

Est-ce tu pourrais regarder cela et faire les corrections. Merci beaucoup.

Private Sub ComboBox3_Change()
Dim tabtemp As Variant
Dim O As Integer

With Worksheets('Inventaire')
O = .Range('a15000').End(xlUp).Row
tabtemp = .Range('A2:ae' & O).Value

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then

ListBox1 = .Range('d' & Me.ComboBox3.Value + 2)
ListBox2.Value = .Range('e' & Me.ComboBox3.ListIndex + 4)
ListBox3.Value = .Range('f' & Me.ComboBox3.ListIndex + 4)
ListBox4.Value = .Range('g' & Me.ComboBox3.ListIndex + 4)
ListBox5.Value = .Range('h' & Me.ComboBox3.ListIndex + 4)
ListBox6.Value = .Range('i' & Me.ComboBox3.ListIndex + 4)
ListBox7.Value = .Range('j' & Me.ComboBox3.ListIndex + 4)
ListBox8.Value = .Range('k' & Me.ComboBox3.ListIndex + 4)

With Me

End With
End If

Next O
End With

End Sub