Bonjour
moi je préfère faire comme ca a toi de voir
Private Sub UserForm_Initialize()
End Sub
Private Sub UserForm_Activate()
InitListe
End Sub
Private Sub InitListe()
Dim J&
LstArticle.Clear
With Feuil6
For J = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If UCase(.Cells(J, 3).Value) Like UCase(Me.TxtNom) & "*" Then
'on compl?te la listebox des valeurs trouv?es
LstArticle.AddItem .Cells(J, 3)
End If
Next J
End With
End Sub
Private Sub TxtNom_Change()
InitListe
End Sub
Private Sub CmdQuitter_Click()
Unload Me
End Sub
A+
Maurice