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

Résolu

christophe66 -
christophe66 - 27 nov. 2012 à 16:41

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

Afficher la suite

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
Historique de mes trajets - Guide

4 réponses

Réponse 1 / 4

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

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 :

derniere_ligne = Range("A65536").End(xlUp).Row

Et 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+

christophe66

Merci pour ta réponse plus que rapide. Par contre je bloque toujours :
Ma macro d'origine :

Sub Macro7()
'
' Macro7 Macro
'

'
    Rows("7:7").Select
    Selection.Copy
    Sheets("historiqu").Select
    Rows("1:1").Select
    ActiveSheet.Paste
End Sub

Ma 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

Réponse 2 / 4

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

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

Réponse 3 / 4

christophe66

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

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

J'ai oublié de préciser que :

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

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

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

Réponse 4 / 4

christophe66

Merci à tous les deux.
J'ai appliqué la solution de Morgothal et ... elle marche.
Merci à toi aussi michel_m d'avoir pris le temps de me répondre

Discussions similaires

dessin avec symbole clavier

Feuille de score belote

Votre réponse

Discussions similaires