OVH Cloud OVH Cloud

Filtre + macro

1 réponse
Avatar
Bonjour,

j'essaie de faire que le r=E9sultat d'un filtre s'affiche=20
sur une nouvelle feuille.

J'ai cr=E9=E9 cette macro:

Sub Filtre()

Set plagevisible =3D Cells.SpecialCells(xlCellTypeVisible)
plagevisible.Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode =3D False

End Sub


Maintenant j'essaie d'automatiser cette macro via=20
ThisWorkbook... mais je n'y arrive pas!
J'aimerais que quand j'ai filtr=E9 qqch, =E7a s'ouvre=20
automatiquement sur une nouvelle page!

Pouvez vous m'aider?

Merci d'avance!

1 réponse

Avatar
anonymousA
je vois très bien ce que fait cette macro en étant l'expéditeur à je suppose
: toi.
Ceci dit, je ne comprends pas ta demande, étant entendu qu'elle n'a
d'interet qu'une fois un filtre éffectué , ce qui suppose donc qu'il en
existe un (mais sur quelle feuille ?) et que il lui ait été passé un
paramètre de filtrage ( mais lequel ?) toutes chose qui sont nécéssaires dans
un évenement s(il s'agit d'un é"vènement de Thisworkbook ( mais quel
évènement ?).
Voilà, plus de questions que de réponses mais à question vague, réponse
imprécise.

A+


Bonjour,

j'essaie de faire que le résultat d'un filtre s'affiche
sur une nouvelle feuille.

J'ai créé cette macro:

Sub Filtre()

Set plagevisible = Cells.SpecialCells(xlCellTypeVisible)
plagevisible.Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub


Maintenant j'essaie d'automatiser cette macro via
ThisWorkbook... mais je n'y arrive pas!
J'aimerais que quand j'ai filtré qqch, ça s'ouvre
automatiquement sur une nouvelle page!

Pouvez vous m'aider?

Merci d'avance!