Filtres

Le
Fredo(67)
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 colonne=
s de la feuille de base.
Comment limiter le résultat aux 3 premières colonnes ?

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JP
Le #25842712
Bonjour,

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

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

JP
Fredo(67)
Le #25842802
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
Publicité
Poster une réponse
Anonyme