Re : Filtre à partir d'une listbox
Bonjour Chris6999 et "Bonne Année 2013"
Peut-être avec un pointeur "existe"
Private Sub ListBox1_Click()
Dim cel As Range 'déclare la variable cel (CELlule)
existe = 0
With ActiveSheet 'prend en compte l'onglet "Devis"
'boucle sur toute les cellules éditées de la colonne A
For Each cel In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
'si la valeur de la cellule correspond avec la valeur de l'élément sélectionné de la ListBox1,
'ajoute la cellule adjacente à la Listbox2
If cel.Value = Me.ListBox1.Value Then
Range("A6:F6").AutoFilter Field:=1, Criteria1:="=*" & cel.Value & "*"
existe = 1
End If
Next
End With
If existe = 0 Then MsgBox ("rien")
'fin de la prise en compote de l'onglet "Facture"
End Sub
A+
René