VBA probleme filtre elaboré "different de" Fermé

Question

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

Configuration: Windows 2000 / Internet Explorer 6.0

dct33 · Answer

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

VBA probleme filtre elaboré "different de"

1 réponse

Discussions similaires