Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Filtres

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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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