J'ai ajouté quelques lignes de code qui apportent une solution à tes questions et même un peu plus.
Cordialement
Bernard [file name=filtreuserformV1.zip size=17592]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/filtreuserformV1.zip[/file]
Impossible de joindre le fichier en éditant... Je réessaye avec nouveau. [file name=filtreuserform2.zip size=14188]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/filtreuserform2.zip[/file]
ecris comme cela ComboBox1.Text a la place de ComboBox1.value
Code:
Private Sub ComboBox1_change()
With ListBox1
.Clear
x = 0
For Each cel In zone
If cel = ComboBox1.Text Then
.AddItem cel
.Column(1, x) = cel.Offset(0, 2)
.Column(2, x) = cel.Offset(0, 3)
x = x + 1
End If
Next cel
End With
End Sub