Filtre Elaboré sélection de la plage
Le
kristofb

Bonjour à tous,
En pack office 2003, je cherche a effectué un filtre élaboré qui
prennent en compte toutes les cellules de la feuille "data", en
utilisant les critères présent dans la feuille "critère" le tout dans
la feuille résultat.
Sheets("résultat").Select
Range("A1").Select
Sheets("data").Range("A1:K28575").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("critère").Range("A1:A7"),
CopyToRange:=Range("A1"), _
Unique:=False
J'ai essayé
Sheets("data").Range("A1", "A" &
Range("A1").SpecialCells(xlLastCell).Row).AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("critère").Range("A1:A7"),
CopyToRange:=Range("A1"), _
Unique:=False
Mais au lieu d'avoir le résultat escompté je n'ai que la cellule A1 de
la feuille Data.
Quelqu'un peut il m'aider ?
Merci à tous.
En pack office 2003, je cherche a effectué un filtre élaboré qui
prennent en compte toutes les cellules de la feuille "data", en
utilisant les critères présent dans la feuille "critère" le tout dans
la feuille résultat.
Sheets("résultat").Select
Range("A1").Select
Sheets("data").Range("A1:K28575").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("critère").Range("A1:A7"),
CopyToRange:=Range("A1"), _
Unique:=False
J'ai essayé
Sheets("data").Range("A1", "A" &
Range("A1").SpecialCells(xlLastCell).Row).AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("critère").Range("A1:A7"),
CopyToRange:=Range("A1"), _
Unique:=False
Mais au lieu d'avoir le résultat escompté je n'ai que la cellule A1 de
la feuille Data.
Quelqu'un peut il m'aider ?
Merci à tous.
essaie avec
CriteriaRange:="critère!A1:A7"
--
isabelle
Le 2011-11-10 10:59, kristofb a écrit :
Cependant, avec ce code, j'ai "erreur d'execution '1004': Référence
non valide".
Sheets("résultat").Select
Range("A1").Select
Sheets("data").Range("A1", "A" &
Range("A1").SpecialCells(xlLastCell).Row).AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:="critère!A1:A7", CopyToRange:=Range("A1"), _
Unique:úlse
Dans le principe, je sélectionne mes données je les nomme et j'utilise
leur nom dans le filtre élaboré.
J'ai nommé les Données "data", les Critères "critere"
Voici le source de la macro.
Sub Macro2()
'Positionnement dans feuille et sélection des data
Sheets("Feuil2").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'attribution d'un nom défini à la plage de données
ActiveWorkbook.Names.Add Name:="data", RefersToR1C1:=Selection
'
'Positionnement dans feuille et sélection des criteres
Sheets("Feuil3").Select
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'attribution d'un nom défini à la plage de critères
ActiveWorkbook.Names.Add Name:="Critere", RefersToR1C1:=Selection
Sheets("Feuil4").Select
'
'utilisation du filtre élaboré
Range("data").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range("critere"), CopyToRange:=Range("A1"), _
Unique:úlse
End Sub
Merci à celles et ceux qui m'ont aidé.