Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copier - Coller +filtre

Copier - Coller +filtre

4 réponses
Avatar
Brucat
Bonjour,

1)Je filtre la feuille Feuil 1 avec 2 critéres 1 et Toto.
Je dois selectionner le résultat obtenu, le copier et le coller dans la
feuille Filtre cellule A2.

J'arrive à Filtrer, à copier mais aucun collage dans la feuille Filtre
Où se situe mon erreur????
Sub filtre()

Sheets("feuil1").Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="1"
Selection.AutoFilter Field:=2, Criteria1:="Toto"

Range("A2:L11").Select
Selection.Copy

Sheets("Filtre").Range("A2").Select
ActiveSheet.Paste

End Sub

2) Filtre automatique =Autofilter
Filtre élaboré = ??????????????

Merci.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004
Signaler un problème avec ce contenu

4 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
AV
Essaye comme ça :

.Range("A2:L11").SpecialCells(xlCellTypeVisible).Copy


2) Filtre automatique =Autofilter
Filtre élaboré = ??????????????


Je pige pas la question !

AV

Avatar
Ellimac
Bonjour,

Essaye ceci :
Sub Macro1()
Selection.AutoFilter Field:=1, Criteria1:="1"
Selection.AutoFilter Field:=2, Criteria1:="toto"
Range("A2:L25000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Filtre").Range("A2").PasteSpecial
Application.CutCopyMode = False
End Sub

Camille

-----Message d'origine-----
Bonjour,

1)Je filtre la feuille Feuil 1 avec 2 critéres 1 et Toto.
Je dois selectionner le résultat obtenu, le copier et le
coller dans la

feuille Filtre cellule A2.

J'arrive à Filtrer, à copier mais aucun collage dans la
feuille Filtre

Où se situe mon erreur????
Sub filtre()

Sheets("feuil1").Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="1"
Selection.AutoFilter Field:=2, Criteria1:="Toto"

Range("A2:L11").Select
Selection.Copy

Sheets("Filtre").Range("A2").Select
ActiveSheet.Paste

End Sub

2) Filtre automatique =Autofilter
Filtre élaboré = ??????????????

Merci.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date:
13/01/2004



.



Avatar
Brucat
entre temps j'ai trouvé
il s'agit de AdvancedFilter
"AV" a écrit dans le message de
news:
Essaye comme ça :

.Range("A2:L11").SpecialCells(xlCellTypeVisible).Copy


2) Filtre automatique =Autofilter
Filtre élaboré = ??????????????


Je pige pas la question !

AV





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004


Avatar
Brucat
merci
"Ellimac" a écrit dans le message de
news:051301c3daa7$b8d86990$
Bonjour,

Essaye ceci :
Sub Macro1()
Selection.AutoFilter Field:=1, Criteria1:="1"
Selection.AutoFilter Field:=2, Criteria1:="toto"
Range("A2:L25000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Filtre").Range("A2").PasteSpecial
Application.CutCopyMode = False
End Sub

Camille

-----Message d'origine-----
Bonjour,

1)Je filtre la feuille Feuil 1 avec 2 critéres 1 et Toto.
Je dois selectionner le résultat obtenu, le copier et le
coller dans la

feuille Filtre cellule A2.

J'arrive à Filtrer, à copier mais aucun collage dans la
feuille Filtre

Où se situe mon erreur????
Sub filtre()

Sheets("feuil1").Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="1"
Selection.AutoFilter Field:=2, Criteria1:="Toto"

Range("A2:L11").Select
Selection.Copy

Sheets("Filtre").Range("A2").Select
ActiveSheet.Paste

End Sub

2) Filtre automatique =Autofilter
Filtre élaboré = ??????????????

Merci.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date:
13/01/2004



.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004