Discussion :

[freed07]

Bonjour
je viens de découvrir le filtre élaboré, trop cool, bon j'ai quand meme un p'tit souci .
Feuille1=les données sur X colonnes et nb de lignes infinis (65000)
Feuille2=
un Btn pour lancer la macro enregistrée
les critères 6 champs avec étiquettes sont à renseigner
donc ma plage de critere est: (range.("C6:H7"))
seulement si il y a qu'une seule ligne de criteres, mais je voudrais pouvoir avoir
plusieurs lignes de critères.
comment definir H7 si j'ai 3 lignes de criteres donc H9
ou alors il faut definir toute la plage du critere a chaque excution de macro


Merci d'avance

[ouskel'n'or]

Si le test de ton filtre doit comporter plusieurs lignes, je ne vois pas comment tu peux utiliser un filtre.
Par contre, tu peux utiliser Find pour trouver le premier critère, et à partir de là vérifier les suivants.

Une remarque : Il y a contradiction entre ces deux phrases
Celle-ci implique deux lignes

les critères 6 champs avec étiquettes sont à renseigner
donc ma plage de critere est: (range.("C6:H7"))

La suivante implique trois lignes

comment definir H7 si j'ai 3 lignes de criteres donc H9
ou alors il faut definir toute la plage du critere a chaque excution de macro

Ce que j'ai compris ? Que ta plage de critères est "C6:H7" pris dans Feuille1 => 12 critères contigus
Que tu cherches une plage contenant ces 12 critères... Et là je suis dans le flou quand à la disposition de ces 12 critères (les 3 lignes me gènent...)
Tu nous expliques ?
A+

Dis-nous-tout

[freed07]

bon je commente

ligne etiquette......\reference\NLOT \ Date \indice1 \indice2 \N°Point\
ligne critere1............234.........P2343..9/01/09..2,34......8,35.......A
ligne critere2............234.........P2343..9/01/09..2,34......8,35.......B
ligne critere3............234.........P2343..9/01/09..2,34......8,35.......B1

les champs numériques fonctionnent aussi avec les opérateurs <>et =
et si je veut tout les Point B je met B*
est-ce plus claire?

[freed07]

bonjour
j'ai ecrit cela mais je voudrais que la plage de CriteriaRange soit variable en H8
cela pourrait etre H7 ou H8 ou H9.
bref suis en galere merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub trie()
 
Dim moncritere As Variant
    Range("C6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
'ActiveWorkbook.Names.Add Name:="moncritere", RefersToR1C1:="=Feuil2!R6C3:R9C8"
     Sheets("Feuil1").Select
 
    Range("A1:R3910").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Sheets("Feuil2").Range("C6:H8"), Unique:=False
'Range("A1:R3910").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    'moncritere, Unique:=False
End Sub

[freed07]

bonjour
j'ai trouvé une solution peut etre pas la meilleur mais camarche
indice = nb de valeur +6 car je rentre mes criteres en c7

merci de votre participation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Macro1()
 
 
Dim indice As Integer
indice = Range("J6")
Select Case indice
    Case 7:
        Sheets("Feuil1").Select
        Range("A1:R30000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Feuil2").Range("C6:H7"), Unique:=False
    Case 8:
        Sheets("Feuil1").Select
        Range("A1:R30000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Feuil2").Range("C6:H8"), Unique:=False
    Case 9:
        Sheets("Feuil1").Select
        Range("A1:R30000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Feuil2").Range("C6:H9"), Unique:=False
    Case Else
    Exit Sub
 
End Select
 
End Sub