Copier coller dans un autre onglet VBA

Bonjour,

malgré l'absence de réponse à mes précédant post, j'avance tant bien que mal sur mon projet, mais j'ai un petit blocage.

j'importe des données dans une feuille "Temp" que je supprimerai plus tard. je garde seulement les données qui m’intéressent.

une fois ce travail fait, j'aimerai copier les dates (colone A sans le titre) dans la feuille analyse (à partie de A10), pareil pour le volume que je colle en D10, et cours que je colle en C10.

j'ai tenté ca pour les dates, mais apparemment ca ne fonctionne pas :

Sub copiecolled()

Sheets("Temp").Select

Range("A2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("Analyse", Range("A10")).Select

Selection.Paste

Application.CutCopyMode = False

End Sub

merci pour votre aide !

Bonjour et bienvenue sur le forum

Essaie ce code :

Sub Report()

    derLn = Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("Temp").Range(Cells(2, "A"), Cells(derLn, "A")).Copy Sheets("Analyse").Cells(10, "A")
    Sheets("Temp").Range(Cells(2, "B"), Cells(derLn, "B")).Copy Sheets("Analyse").Cells(10, "D")
    Sheets("Temp").Range(Cells(2, "C"), Cells(derLn, "C")).Copy Sheets("Analyse").Cells(10, "C")
End Sub

Bye !

bonjour

remplace la fonction copier coller par celle ci :

Sub copiecoller()
Sheets("Temp").Range("A2:A" & Range("A65536").End(xlUp).Row).Copy Sheets("Analyse").Range("A10")
Sheets("Temp").Range("B2:C" & Range("A65536").End(xlUp).Row).Copy Sheets("Analyse").Range("C10")
End Sub

Fred