Filtre et copie de données

Le
Dominique
Bonjour le forum,
Je souhaiterai recuperer les données de la feuille BD selon un filtre
dont la condition est en B2 de la feuille Lievre.
Aprés aplication du filtre copier les donnée de [G2:V(end(xlup))] dans
la feuille "lievre" en [A5]
voici le code que j ai fait :

Sub CreationDeLaListelievreGIC()

'suppression de de liste dans feuil lievre
Range("A5:v65536").EntireRow.Delete

'selection critere GIC cellule F
Sheets("BD").Activate
Sheets("BD").Range("$a$1:$V$1").AutoFilter field:=6,
criterial1:=Sheets("Lievre").Range("B1")
Sheets("BD").Range("G2:V " & Range("I65536").End(xlUp).Row).Copy
Destination:=Sheets("Lievre").Range("A5")
End Sub

l'erreur " 1004 : erreur definie par l objet ou l application se trouve
sur cette ligne : Sheets("BD").Range("$a$1:$V$1").AutoFilter field:=6,
criterial1:=Sheets("Lievre").Range("B1")

Je vous joint un petit fichier en exemple

http://www.cijoint.fr/cjlink.php?file=cj200908/cijmVkQLZd.xlsx
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
Dominique
Le #19892041
Le 06/08/2009 18:05, Dominique a écrit :

Bonjour le forum,
Je souhaiterai recuperer les données de la feuille BD selon un filtre
dont la condition est en B2 de la feuille Lievre.
Aprés aplication du filtre copier les donnée de [G2:V(end(xlup))] dans
la feuille "lievre" en [A5]
voici le code que j ai fait :

Sub CreationDeLaListelievreGIC()

'suppression de de liste dans feuil lievre
Range("A5:v65536").EntireRow.Delete

'selection critere GIC cellule F
Sheets("BD").Activate
Sheets("BD").Range("$a$1:$V$1").AutoFilter field:=6,
criterial1:=Sheets("Lievre").Range("B1")
Sheets("BD").Range("G2:V " & Range("I65536").End(xlUp).Row).Copy
Destination:=Sheets("Lievre").Range("A5")
End Sub

l'erreur " 1004 : erreur definie par l objet ou l application se trouve
sur cette ligne : Sheets("BD").Range("$a$1:$V$1").AutoFilter field:=6,
criterial1:=Sheets("Lievre").Range("B1")

Je vous joint un petit fichier en exemple

http://www.cijoint.fr/cjlink.php?file=cj200908/cijmVkQLZd.xlsx


Oups! J ai oublié le merci desolé...c'est reparé
Dominique
Le #19892771
désespérément j ai essayé une autre méthode mais bien sur ca plante

Sub test()
Sheets("BD").Activate

For i = 2 To Range("I65000").End(xlUp)
If Cells(i, 6) = Sheets(Lievre).Range("B2") Then
Range("G:V").Copy Destination:=Sheets("Lievre").Range("A" & .End(xlUp))
End If
Next i

End Sub

Pareil ca plante

Quelqu un a t il une idée?
merci d avance
Dominique
Le #19893831
Ouf j ai trouvé
voila le code si il y en a que ca interresse
Sub testcreationlist1()

Dim Derlig As Long, Lig As Long
Dim LigCopie As Long
'suppression de de liste dans feuil lievre
Sheets("Lievre").Range("A6:P65536").EntireRow.Delete

With Sheets("BD")

.Columns("A:V").AutoFilter
Derlig = .Range("I65536").End(xlUp).Row
LigCopie = Sheets("Lievre").Range("A65536").End(xlUp).Row + 1
.Range("$A$1:$V$1").AutoFilter Field:=6,
Criteria1:=Sheets("Lievre").Range("B1"), Operator:=xlAnd
.Range("G2:V" & Derlig).Copy Sheets("Lievre").Range("A" & LigCopie)
.Range("$A$1:$V$27").AutoFilter Field:=6

End With
End Sub


Mais je ne sais toujours pas pourquoi le premier ne marchais pas
Publicité
Poster une réponse
Anonyme