Macro filtre selon plusieurs cellules.
Résolu/Fermé
A voir également:
- Macro filtre selon plusieurs cellules.
- Photo filtre gratuit - Télécharger - Retouche d'image
- Formule excel pour additionner plusieurs cellules - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
4 réponses
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
Modifié par redaiwa le 28/04/2015 à 14:58
Modifié par redaiwa le 28/04/2015 à 14:58
Salam Fullreyny.
Il suffit d'insérer un opérateur "xlAnd" ou "xlOr" comme ceci:
Essaye et dis-nous si ça marche.
"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)
Il suffit d'insérer un opérateur "xlAnd" ou "xlOr" comme ceci:
ActiveSheet.Range("$A$2:$E$10000").AutoFilter Field:=1, Criteria1:=Range("I2").Value, Operator:=xlOr, Criteria2:=Range("I3").Value
Essaye et dis-nous si ça marche.
"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)
Génial.
Merci beaucoup Redaiwa.
Ce conseil marche super et va me servir pour bien d'autre fonction ;)
Ciao
Merci beaucoup Redaiwa.
Ce conseil marche super et va me servir pour bien d'autre fonction ;)
Ciao
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
28 avril 2015 à 15:28
28 avril 2015 à 15:28
Content pour toi.
Un conseil : l'enregistreur de macros est très utile pour comprendre comment construire les commandes en VB.
Un conseil : l'enregistreur de macros est très utile pour comprendre comment construire les commandes en VB.
En faite il me reste un problème, ça ne fonctionne pas avec xlAnd. du coup je ne peux pas en mettre plus que 2.
J'ai trouvé.
ActiveSheet.Range("$A$1:$I$558").AutoFilter Field:=1, Criteria1:=Array( _
Range("I2").Value, Range("I3").Value, Range("I4").Value, Range("I5").Value, Range("I7").Value, Range("I8").Value, Range("I9").Value, Range("I10").Value, ""), Operator:=xlFilterValues
Redaiwa
Merci pour ton aide et merci pour ta petite phrase (enregistreur de macro) qui m'a ouvert l'esprit.
Ciao
ActiveSheet.Range("$A$1:$I$558").AutoFilter Field:=1, Criteria1:=Array( _
Range("I2").Value, Range("I3").Value, Range("I4").Value, Range("I5").Value, Range("I7").Value, Range("I8").Value, Range("I9").Value, Range("I10").Value, ""), Operator:=xlFilterValues
Redaiwa
Merci pour ton aide et merci pour ta petite phrase (enregistreur de macro) qui m'a ouvert l'esprit.
Ciao
