Référence de cellule dans une macro
Résolu
mchotard
Messages postés
474
Date d'inscription
Statut
Membre
Dernière intervention
-
mchotard Messages postés 474 Date d'inscription Statut Membre Dernière intervention -
mchotard Messages postés 474 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai une macro pour filtrer mes infos de mon tableau comme ci-desous
Sheets("Fichier principal").Select
ActiveSheet.Range("$A$1:$O$386").AutoFilter Field:=5, Criteria1:="1"
ActiveSheet.Range("$A$1:$O$386").AutoFilter Field:=6, Criteria1:="<>"
Je voudrais que le Criteria1 fasse référence à une cellule d'une autre feuille dans laquelle je pourrai y mettre les autres critères. Par exemple 2 ou 3 ou 4. Ainsi il pourrait effectuer les filtres en fonction de ma cellule de référence.
Suis-je clair !!!
Merci de votre aide précieuse
j'ai une macro pour filtrer mes infos de mon tableau comme ci-desous
Sheets("Fichier principal").Select
ActiveSheet.Range("$A$1:$O$386").AutoFilter Field:=5, Criteria1:="1"
ActiveSheet.Range("$A$1:$O$386").AutoFilter Field:=6, Criteria1:="<>"
Je voudrais que le Criteria1 fasse référence à une cellule d'une autre feuille dans laquelle je pourrai y mettre les autres critères. Par exemple 2 ou 3 ou 4. Ainsi il pourrait effectuer les filtres en fonction de ma cellule de référence.
Suis-je clair !!!
Merci de votre aide précieuse
2 réponses
-
Bonjour
si j'ai bien compris :
autre feuille avec nom onglet "feuil2" et emplacement du critère en A1
dim crit as string
sheets("feuil2").activate
crit=cells(1,1)
Sheets("Fichier principal").activate
ActiveSheet.Range("$A$1:$O$386").AutoFilter Field:=5, Criteria1:= crit -
parfait, tu as tout compris et tes explications sont claires et nette. Ca marche et j'en suis ravi.
A+ et merci
