VBA probleme filtre elaboré "different de"
actaris51
Messages postés
106
Statut
Membre
-
dct33 Messages postés 42 Statut Membre -
dct33 Messages postés 42 Statut Membre -
Bonjour à tous,
J'ai un fichier de ce tyoe :
http://www.cijoint.fr/cjlink.php?file=cj201004/cijv25GLRJ.xls
Je souhaite filtrer mes valeurs de ma sheet1 avec les criteres de la sheet 2.
Le probleme, c'est que je souhaite exclure des valeurs
(ici je souhaite filtrer en cachant babar et toto).
Or j'ai fait une macro qui marche lorsque il n'y a qu'un seul critere à exclure, mais des qu'il y'en a plus d'un, ca ne marche plus.
En cherchant sur le net, j'ai l'impression que c'est impossible, mais je tente quand meme le coup sur le forum.
Merci
J'ai un fichier de ce tyoe :
http://www.cijoint.fr/cjlink.php?file=cj201004/cijv25GLRJ.xls
Je souhaite filtrer mes valeurs de ma sheet1 avec les criteres de la sheet 2.
Le probleme, c'est que je souhaite exclure des valeurs
(ici je souhaite filtrer en cachant babar et toto).
Or j'ai fait une macro qui marche lorsque il n'y a qu'un seul critere à exclure, mais des qu'il y'en a plus d'un, ca ne marche plus.
En cherchant sur le net, j'ai l'impression que c'est impossible, mais je tente quand meme le coup sur le forum.
Merci
1 réponse
-
Bonjour,
un petit code à adapter au besoin
Page 2 enlever les <>
Sub Macro3()
Dim tableau_Critere() As String
XX = 2
' récupération des critères
While Sheets(2).Cells(XX, 1) <> ""
ReDim Preserve tableau_Critere(XX - 1) As String
tableau_Critere(XX - 1) = Sheets(2).Cells(XX, 1)
XX = XX + 1
Wend
' masquer en fonction du critère
X = 2
While Sheets(1).Cells(X, 1) <> ""
For YY = 1 To UBound(tableau_Critere)
If Cells(X, 1) = tableau_Critere(YY) Then
Cells(X, 1).Select
Selection.EntireRow.Hidden = True
Exit For
End If
Next YY
X = X + 1
Wend
End Sub
Bonne programmation
