Coller des cellules "données" dans une feuille "historique"

[christophe66700]

Bonjour,
Tout d'abord je suis novice en programmation de macro je n'utilise pour l'instant que l'enregistreur mais là je bloque.
J'ai une page données et une page historique.
Sur la première en A1 la date du jour, B1 et C1 des chiffres D1 une somme (A1+B1) et le bouton de macro
je voudrais une macro qui colle ses valeurs dans la feuille historique les unes à la suite des autres : A1B1C1, A2B2C2...
Pour l'instand j'en suis là :

Sub Macro7()

Rows("7:7").Select
Selection.Copy
Sheets("historiqu").Select
derniere_ligne = Range("A65536").End(xlUp).Row
Rows(derniere_ligne & ":" & derniere_ligne).Select
ActiveSheet.Paste

End Sub

Mais Toujours pas...
Les données se collent sur la première ligne et ne complètent pas l'historique ligne après ligne.

Merci d'avance
Christophe

 

[drul]

Plop

Sub Macro7()
Dim derniere_ligne As Integer
derniere_ligne = Sheets("sheet2").Range("A65536").End(xlUp).Row + 1
Sheets("sheet1").Rows(7).Copy Sheets("sheet2").Rows(derniere_ligne)
End Sub

 

[zeb]

Salut,


Rohhh, Drul !
Row() renvoie un numéro de ligne potentiellement supérieur à la limite max des Integer.
Donc, il faut utiliser un Long... ou pas :

Dim derniere_ligne As Range
Set derniere_ligne = Worksheets("sheet2").Range("A65536").End(xlUp)
Worksheets("sheet1").Rows(7).Copy derniere_ligne

En condensé :

Worksheets("sheet1").Rows(7).Copy Worksheets("sheet2").Range("A65536").End(xlUp)

 

[drul]

spa faux ... a vouloir faire vite, on fait de la m....

 

[zeb]

Pas forcément
Faut juste pas confondre Vitesse et Précipitation.