VBA probleme filtre elaboré "different de"
actaris51
Messages postés
93
Date d'inscription
Statut
Membre
Dernière intervention
-
dct33 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
dct33 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- VBA probleme filtre elaboré "different de"
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Excel différent de 0 - Forum Excel
- Excel différent de vide - Forum Excel
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
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
