bonjour
en rajoutant des autofilter et ton code cela a l air de fonctionner
je continu et je vous tien au courant de la suite
Private Sub ListBox1_Click()
If Me.ListBox1.ListIndex <> -1 Then
With Sheets("Inventaire Planches").Range("A3")
.AutoFilter 1, Me.ListBox1.List(Me.ListBox1.ListIndex, 1 - 1)
.AutoFilter 2, Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
.AutoFilter 3, Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
End With
Me.TextBox2.Text = Me.ListBox1.List(Me.ListBox1.ListIndex, 1 - 1) & Me.ListBox1.List(Me.ListBox1.ListIndex, 1) & Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
End If
For I = 3 To 6
Me.Controls("Textbox" & (I)).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, (I))
Next I
For I = 8 To 9
Me.Controls("Textbox" & (I)).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, (I))
Next I
Me.ComboBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
TextBox10.Value = Me.ListBox1.ListIndex + 1
'---------------------------
Dim Cel As Range
Set Cel = Sheets("Inventaire Planches").Columns("E").Find(what:=Me.TextBox4, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Me.TextBox11 = Cel.Row
Else
Me.TextBox11 = ""
End If
End Sub