Discussion :

[dodo28]

Bonjour le forum
Je voudrais recuperer des données de la [A1:W(end(xlup))] de la feuille "BD" selon le critere de selection de [B1] de la feuille "Lievre".
Copier les [G2:V(end(xlup))] dans la feuille "lievre" en [A15]

Voici ce que j ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CreationDeLaListelievreGIC()
 
'suppression de de liste dans feuil lievre
Range("A15:U65536").EntireRow.Delete
 
'selection critere GIC cellule F
With Sheets("BD")
    .Activate
    .Range("$a$1:$w$1").AutoFilter field:=6, criterial1:=Sheets("Lievre").Range("B1")
    .Range("G2:V " & Range("I65536").End(xlUp).Row).Copy Destination:=Sheets("Lievre").Range("A15")
End With
 
End Sub

j ai une erreur dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("$a$1:$w$1").AutoFilter field:=6, criterial1:=Sheets("Lievre").Range("B1")

Je precise que B1 est une liste deroulante
Merci pour votre aide

[Gorfael]

Salut dodo28 et le forum
Et la question subsidiaire est : Quelle est l'erreur!
A+