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")
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
Dominique
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")
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")
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")
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
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
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
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