Se connecter avec
S'enregistrer | Connectez-vous
Votre question

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

Dernière réponse : dans Programmation
Partagez
27 Novembre 2012 13:56:26

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
a b L Programmation
28 Novembre 2012 15:43:21

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
m
0
l
a b L Programmation
4 Décembre 2012 10:01:38

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)
m
0
l
Contenus similaires
a b L Programmation
4 Décembre 2012 10:05:37

spa faux ... a vouloir faire vite, on fait de la m.... ;) 
m
0
l
a b L Programmation
4 Décembre 2012 10:13:11

Pas forcément ;) 
Faut juste pas confondre Vitesse et Précipitation.
m
0
l