Filtre automatique en Macro

Daniel09 · 1 Juillet 2005

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 · 1 Juillet 2005

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 · 2 Juillet 2005

Bonjour,

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

MichelXld · 2 Juillet 2005

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 · 4 Juillet 2005

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

Filtre automatique en Macro

Daniel09

XLDnaute Nouveau

G.David

XLDnaute Impliqué

Daniel09

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

G.David

XLDnaute Impliqué

Discussions similaires