Macro dans tableau excel
Résolu
nikal82
Messages postés
8
Statut
Membre
-
nikal82 Messages postés 8 Statut Membre -
nikal82 Messages postés 8 Statut Membre -
bonjour tous le monde.
je débute dans les macro et je rencontre un problème :
dans excel 2000 j'ai un fichier avec deux feuilles.
dans chaque feuille se trouve un tableau et j'ai besoin de coller mes donner de mon tableau données du jour (dans la feuille 1) dans mon tableau historiques (dans la feuille 2).
Hors quand j'execute ma macro il me colle les nouvelles données par dessus celles déjà collées.
je ne connait pas la ligne de commande pour collées à chaque fois cul à cul de ce qui est déjà dans mon tableau historique.
voici ma macro pouvez m'aider SVP
merci beaucoup de votre aide @+
ActiveWindow.SmallScroll Down:=-3
Range("A2:D10").Select
Selection.Copy
Sheets("historiques").Select
ActiveWindow.SmallScroll Down:=-3
Range("A2").Select
ActiveSheet.Paste
Sheets("données du jour").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
je débute dans les macro et je rencontre un problème :
dans excel 2000 j'ai un fichier avec deux feuilles.
dans chaque feuille se trouve un tableau et j'ai besoin de coller mes donner de mon tableau données du jour (dans la feuille 1) dans mon tableau historiques (dans la feuille 2).
Hors quand j'execute ma macro il me colle les nouvelles données par dessus celles déjà collées.
je ne connait pas la ligne de commande pour collées à chaque fois cul à cul de ce qui est déjà dans mon tableau historique.
voici ma macro pouvez m'aider SVP
merci beaucoup de votre aide @+
ActiveWindow.SmallScroll Down:=-3
Range("A2:D10").Select
Selection.Copy
Sheets("historiques").Select
ActiveWindow.SmallScroll Down:=-3
Range("A2").Select
ActiveSheet.Paste
Sheets("données du jour").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
1 réponse
-
salut,
je n'ai pas testé, mais je pense que c'est quelquechose comme ça :
ActiveWindow.SmallScroll Down:=-3
Range("A2:D10").Select
Selection.Copy
Sheets("historiques").Select
ActiveWindow.SmallScroll Down:=-3
' ligne modifiée
Range("A2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("données du jour").Select
Application.CutCopyMode = False
Selection.ClearContents
