Bonjour à tous,
Je sollicite votre aide svp
Je souhaite faire un filtre élaboré par macro et je galère un peu.
Lorsque je choisis "Banane" en cellule B4 et "tout"en cellule J4, j'aimerai que toutes les lignes comportant Banane s'affichent dans le tableau en dessous
Merci beaucoup d'avance.
Help
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData 'Libérer le filtre
On Error GoTo 0
If Target.Count > 1 Or Target = "" Then Exit Sub
Range("R2") = "=IF(OR($B$4=""Banane"",$B$4=""Basket"",$B$4=""Pomme"",$B$4=""Orange""),TRUE,FALSE)"
Range("A7:J1344").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("r1:r2"), Unique:=False
End If
End Sub
mon fichier est : [attachment=0]Test A.xlsm[/attachment]