Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

Filtres

2 réponses
Avatar
Fredo(67)
Bonjour

j'utilise la macro suivante :

Sub Filtre_entreprise()
Application.ScreenUpdating =3D False
Dim Crit=E8Re
'filtre de l'=E9quipe 1
Crit=E8Re =3D "1"
Worksheets("entreprise").Range("a1:z2000").Clear
Worksheets("liste").Activate
Range("$a$3:$c$1100").Select
ActiveSheet.Range("$a$3:$c$1100").AutoFilter Field:=3D3, Criteria1:=3D =
_
Crit=E8Re
Selection.CurrentRegion.Copy
ActiveSheet.Paste Destination:=3DWorksheets("entreprise").Range("a1")
Selection.AutoFilter
Application.CutCopyMode =3D False
Worksheets("entreprise").Select
Application.CommandBars("stop recording").Visible =3D False
End Sub

L'objectif est qu'elle me fasse un filtre sur les 3 premi=E8res colonnes et=
UNIQUEMENT sur celles l=E0.
hors le r=E9sultat du filtre est un tableau qui comporte toutes les colonne=
s de la feuille de base.
Comment limiter le r=E9sultat aux 3 premi=E8res colonnes ?

Merci

2 réponses

Avatar
JP
Bonjour,

essaie:
ActiveSheet.Paste Destination:=Worksheets("entreprise").Columns("A:C").AutoFilter

au lieu de
ActiveSheet.Paste Destination:=Worksheets("entreprise").Range("a1")
Selection.AutoFilter

JP
Avatar
Fredo(67)
Bonjour,

Ok merci, je vais tester ça.


Le jeudi 5 décembre 2013 09:03:48 UTC+1, Fredo(67) a écrit :
Bonjour



j'utilise la macro suivante :



Sub Filtre_entreprise()

Application.ScreenUpdating = False

Dim CritèRe

'filtre de l'équipe 1

CritèRe = "1"

Worksheets("entreprise").Range("a1:z2000").Clear

Worksheets("liste").Activate

Range("$a$3:$c$1100").Select

ActiveSheet.Range("$a$3:$c$1100").AutoFilter Field:=3, Criteria1: = _

CritèRe

Selection.CurrentRegion.Copy

ActiveSheet.Paste Destination:=Worksheets("entreprise").Range("a1")

Selection.AutoFilter

Application.CutCopyMode = False

Worksheets("entreprise").Select

Application.CommandBars("stop recording").Visible = False

End Sub



L'objectif est qu'elle me fasse un filtre sur les 3 premières colonnes et UNIQUEMENT sur celles là.

hors le résultat du filtre est un tableau qui comporte toutes les colon nes de la feuille de base.

Comment limiter le résultat aux 3 premières colonnes ?



Merci