Macro copier coller

[butterfly94]

Bonjour,

Voici mon probleme : je souhaite copier l'onglet 'Source' le coller dans l'onglet 'Copie', puis copier l'onglet 'Source2' et le coller à la suite de ce qui a déja été collé dans l'onglet 'Copie' (la 1ère cellule vide après le 1er copier coller varie chaque mois) et dans la colonne E de l'onglet 'Copie' il doit y avoir une fonction recherchev qui détermine le code département de la ville en fonction du référenciel situé sur l'onglet 'Référentiel'

Quel code VBA me permettrait de faire ca sachant qu'il sagit d'un fichier bien plus lourd que celui envoyé en exemple et sachant que le nombre de lignes change chaque mois. La fonction recherchev doit etre incrémentée sur le nb de lignes 'pleines'.

Merci bcp!!

 

[Cousinhub]

Re : Macro copier coller

Bonsoir, regarde le fichier joint, et reviens si tu as un problème
Bon courage

 

[gbinforme]

Re : Macro copier coller

Bonsoir butterfly, le forum,

Quel code VBA me permettrait de faire ca ...

Celui-ci par exemple :

Option Explicit
Public Sub copie()
Dim l As Long
Dim w0 As Worksheet
Dim w1 As Worksheet
Dim w2 As Worksheet
Dim w3 As Worksheet
    Set w0 = Worksheets("Copie")
    Set w1 = Worksheets("Source")
    Set w2 = Worksheets("Source2")
    Set w3 = Worksheets("Référenciel")
    Worksheets("Copie").Activate
    w0.Cells(2, 1).Resize(w0.Cells(65536, 1).End(xlUp).Row).EntireRow.Delete
    w1.Cells(2, 1).Resize(w1.Cells(65536, 1).End(xlUp).Row).EntireRow.Copy
    ActiveSheet.Paste Destination:=w0.Cells(2, 1)
    w2.Cells(2, 1).Resize(w2.Cells(65536, 1).End(xlUp).Row).EntireRow.Copy
    ActiveSheet.Paste Destination:=w0.Cells(w0.Cells(65536, 1).End(xlUp).Row + 1, 1)
    l = w3.Cells(65536, 1).End(xlUp).Row
    w0.Cells(2, 5).FormulaR1C1 = "=VLOOKUP(RC[-2],Référenciel!R1C1:R" & l & "C2,2,FALSE)"
    w0.Cells(2, 5).AutoFill _
        Destination:=w0.Cells(2, 5).Resize(w0.Cells(65536, 1).End(xlUp).Row - 1, 1), Type:=xlFillDefault
End Sub