Rechercher
Se connecter avec
S'enregistrer | Connectez-vous

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

Dernière réponse : dans Programmation
Partagez

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

Autres pages sur : coller cellules donnees feuille historique

Lassé par la pub ? Créez un compte

Plop

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

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 :

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


En condensé :
  1. Worksheets("sheet1").Rows(7).Copy Worksheets("sheet2").Range("A65536").End(xlUp)
  • zeb a édité ce message
Lassé par la pub ? Créez un compte
 
Posez votre question