Bonjour,
Un essai...
Ajout de "Sub Client_AfterUpdate" et d'une condition pour ajouter les items dans la listbox.
Private Sub Client_AfterUpdate() ' <<< ajout
Me.List.Clear
Ref_AfterUpdate
End Sub
Private Sub Ref_AfterUpdate()
If Me.Ref <> "" Then
'Declaration des variable
Dim Critere
Dim DL As Integer
Dim x As Integer
'Affectation des variables
Critere = Me.Ref.Value
'Recuperation de la dernière ligne
DL = Cells(Rows.Count, 2).End(xlUp).Row
'Parcours de la source de données
For x = 1 To DL
'Teste critere
If Cells(x, 4) = Critere Then
If Cells(x, 3) <> Client Then '<<< ICI
'Importation
Me.List.AddItem Cells(x, 1)
Me.List.List(Me.List.ListCount - 1, 0) = Cells(x, 1)
Me.List.List(Me.List.ListCount - 1, 1) = Cells(x, 2)
Me.List.List(Me.List.ListCount - 1, 2) = Cells(x, 3)
Me.List.List(Me.List.ListCount - 1, 3) = Cells(x, 4)
Me.List.List(Me.List.ListCount - 1, 4) = Cells(x, 5)
Me.List.List(Me.List.ListCount - 1, 5) = Cells(x, 6)
End If
End If
Next x
End If
End Sub
ric