Filtre automatique en Macro

[Daniel09]

Bonjour,

Dans une macro je crée un filtre automatique et je voudrais que les critères de sélections soient référencés par rapport à une cellule sur une autre feuille, ou bien à la demande !

Macro enregistrée le 01/07/2005 par Daniel Carbou
'

'
Rows('6:6').Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:='NC'
End Sub


Dans l'exemple ci dessus le 'NC' peut il être changé de façon à pointer sur une autre feuille/cellule.

Merci par avance

Daniel

 

[G.David]

Salut
J'ai pris le range dans la meme feuille mais tu rajoutes 'feuilx! 'devant ta cellule de pointage des valeur ici H3 et H4
Cordialement
G.David

 

[Daniel09]

Bonjour,

Merci pour la rapidité de la réponse. Par contre quelle est la syntaxe ?

 

[MichelXld]

bonsoir Daniel , bonsoir G.David

dans cet exemple ( à adapter ), le critere de filtre est dans la cellule A1 de la Feuil2

Sub Test()
Sheets('Feuil1').Range('A1').AutoFilter Field:=4, Criteria1:=Sheets('Feuil2').Range('A1')
End Sub


bonne soiree
MichelXld

Message édité par: MichelXld, à: 02/07/2005 20:13

 

[G.David]

Excuse moi daniel je ne me suis pas reconnecter du weekend eyt j'ai pas vu que je n'avais pas joint le fichier
Cordialement
G.David