Discussion :

[haras57]

Bonjour

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

J'ai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je vous remercie

Cordialement

Haras

[yaqqq]

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

- VBE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[haras57]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yaqqq]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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