Aide filtre VBA Excel

Bonjour

j'ai une question toute simple, mais qui me tourne la tête depuis quelle que jours voila :

J'ai ce code :

Code:

---

1 2	ActiveSheet.Range("$A$1:$CB$11").AutoFilter Field:=19, Criteria1:=Array("." _ , "1", "3", "4", "5", "6", "7", "8", "9"), Operator:=xlFilterValues

---

et a la place de "1", "3", "4", "5", "6", "7", "8", "9" je voudrais noter le nom de la cellule ou se trouve 1, 3, Etc
en fait stoker 1, 3, 5, etc dans des cellules ( par exemple A1 pour 1, A2 pour 2..) ce qui me permet de modifier les valeurs sans entrer dans le code :D

Je vous remercie

Cordialement

Haras

A1 - 1
A2 - 2
...
A8 - 8
- Selectionnez tout et ajoutez le nom pour cet range (par exemple "mescrit")

- VBE

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim varcrit As Variant Dim rngcrit as Range   Set rngcrit = feuille1.Range("mescrit") ' ou autre feuille varcrit = rngcrit.Value   activesheet.range(...).AutoFilter _ Field:= ..., Criteria1:=Application.Transpose(varcrit), _ Operator:=xlFilterValues

---

Bonjour

J'aimerais de l'aide je ne suis pas sur d'avoir compris comment remplacer le code :
Me critère son sur une feuille que se nom "v" et me critère se trouve sur cette feuille dans les cellules A1 a A10

et ma plage a filtre se trouve sur $A$1:$CB$11

Voilà ma question je dois remplacer quoi dans ce code, dans les (...) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim varcrit As Variant Dim rngcrit as Range   Set rngcrit = feuille1.Range("mescrit") ' ou autre feuille varcrit = rngcrit.Value   activesheet.range(...).AutoFilter _ Field:= ..., Criteria1:=Application.Transpose(varcrit), _ Operator:=xlFilterValues

---

Excuser moi cette question est très bête

Merci

Une idee est seulement avec le nom de range avec criteres (mescrit) et Criteria1 est un peu different que ton code. J'espere tu connais comment faire un nom de range dans la feuille.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim varcrit As Variant Dim rngcrit as Range   Set rngcrit = feuille1.Range("mescrit") ' ou autre feuille; je ne recommande pas avoir les criteres a meme range que donnes ($A$1:$CB$11)   varcrit = rngcrit.Value   activesheet.range("$A$1:$CB$11").AutoFilter _ Field:= ..., Criteria1:=Application.Transpose(varcrit), _ ' field ... a choix; 19? Operator:=xlFilterValues

---

Ou essayez directement a ton premier code:

Code:

---

1 2 3

Criteria1:=Array( Range("A1"), Range("A2"), Range("A3"), Range("A4")) ' ou (je ne suis pas sur) Criteria1:=Array( Range("a1:a4")

---

Dsl, mais mon francais est tres mal ;)