Coller des cellules "données" dans une feuille "historique"
Résolu
christophe66
-
christophe66 -
christophe66 -
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...
Merci d'avance
Christophe
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...
Merci d'avance
Christophe
A voir également:
- Coller des cellules "données" dans une feuille "historique"
- Historique copier coller - Guide
- Historique copier coller windows - Accueil - Informatique
- Excel protéger des cellules dans une feuille - Guide
- Trier des données excel - Guide
- Comment faire un livret avec des feuilles a4 - Guide
4 réponses
Bonjour,
En utilisant l'enregistreur de macro, on peut avoir une macro qui colle la ligne de la page "Données" à la première ligne de la page "Historique".
Il faut juste trouver comment détecter la dernière ligne non vide de la page historique, avec ceci :
A+
En utilisant l'enregistreur de macro, on peut avoir une macro qui colle la ligne de la page "Données" à la première ligne de la page "Historique".
Il faut juste trouver comment détecter la dernière ligne non vide de la page historique, avec ceci :
derniere_ligne = Range("A65536").End(xlUp).RowEt remplacer dans la macro enregistrée le numéro de ligne de la page Historique où est collée la ligne par "derniere_ligne".
A+
Essaye avec ceci :
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
Toujours pas...
Les données se collent sur la première ligne et ne complètent pas l'historique ligne après ligne.
Les données se collent sur la première ligne et ne complètent pas l'historique ligne après ligne.
J'ai oublié de préciser que :
Il faut donc :
derniere_ligne = Range("A65536").End(xlUp).Row Ceci initialise la variable derniere_ligne en lui assignant le numéro de la dernière ligne non-vide.
Il faut donc :
Sub Macro7()
Rows("7:7").Select
Selection.Copy
Sheets("historiqu").Select
derniere_ligne = Range("A65536").End(xlUp).Row
Rows(derniere_ligne+1 & ":" & derniere_ligne+1).Select
ActiveSheet.Paste
End Sub
J'avais mal compris la demande ce matin
Je suppose qu'en première ligne de la feuille "historiq" tu as des étiquettes de colonnes( date enA1.......total en D1 et que on part toujours de la ligne 7 en feuille "données"
essaies
s
Je suppose qu'en première ligne de la feuille "historiq" tu as des étiquettes de colonnes( date enA1.......total en D1 et que on part toujours de la ligne 7 en feuille "données"
essaies
Sub archiver()
Dim ligvid As Integer
With Sheets("historiq")
ligvide = .Columns("A").Find("", .Range("A1"), xlValues).Row
.Rows(ligvide) = Sheets("données").Rows(7).Value
End With
End Sub
s
Ma macro d'origine :
Sub Macro7() ' ' Macro7 Macro ' ' Rows("7:7").Select Selection.Copy Sheets("historiqu").Select Rows("1:1").Select ActiveSheet.Paste End SubMa macro modifiée :
Sub Macro7() ' ' Macro7 Macro ' ' Rows("7:7").Select Selection.Copy Sheets("historiqu").Select derniere_ligne = Range("A65536").End(xlUp).Row Rows("derniere_ligne").Select ActiveSheet.Paste End Sub