1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Dim c As Range, Dest As Variant
Dim shSource As Worksheet
Dim shCible As Worksheet
Set shSource = Sheets("Tableau")
Set shCible = Sheets("TEST MEP")
'Filtre les données correspondant à la dernière ligne
shSource.Rows(1).AutoFilter
shSource.Rows(1).AutoFilter Field:=4, Criteria1:=shSource.Range("D" & shSource.Range("D65536").End(xlUp).Row).Value
'Sélection et copie des lignes filtrées
shSource.Range("E2").CurrentRegion.Select
Selection.Copy
'Collage dans la feuille cible
shCible.Range("K6").PasteSpecial
Dest = Array("B5", "G4:H4", "D5", "B7:D7", "C11", "D11", "E11", "F11", "C9:D9", "G11", "F8:F9", "H8:H9", "C8:D8", "C8:D8", "G6:H6")
NbColonnes = 15
Set c = Range("A" & [A65536].End(xlUp).Row).Resize(1, NbColonnes)
For t = 1 To NbColonnes
c.Cells(t).Copy Destination:=Workbooks("Exemple.xlsm").Sheets("TEST MEP").Range(Dest(t - 1))
Next t
'Suppression du filtre
shSource.Rows(1).AutoFilter |
Partager