Bonjour,

J'ai un petit souci. Je commence à me débrouiller avec VBA.
J'arrive à me dépatouiller ma là je cale.

Le but de la macro c'est avec une liste (feuil1),

prendre chaque nom de cette liste,
appliquer un filtre sur la feuilA dans la colonne G
copier toutes les valeurs de la colonneA
revenir sur la feuil1
coller en transposant devant le nom qui vient de servir de filtre.

Le filtre s'applique bien car la dernière copie/colle correspond très bien au dernier filtre mais le collage se fait sur la première case.


(quand je dis je vois c'est relatif ^^)

Voici mon code

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro2()
'
' Macro2 Macro
'
 
    For Each cell In Sheets("feuil1").Range("A2:A1602")
 
    Dim crit As String
    crit = cell.Value
    Sheets("A").Select
    ActiveSheet.Range("$A$1:$J$10881").AutoFilter Field:=7, Criteria1:=crit
 
    Range("A2:A10881").SpecialCells(xlCellTypeVisible).Copy
 
    Sheets("feuil1").Select
    Range("B" & Rows.Count).End(xlUp)(1.1).Select
 
    Selection.PasteSpecial Transpose:=True
 
    Next cell
 
End Sub