Copier/coller des données et insérer autre part avec macro
Lulu6.0
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
Arkana0 Messages postés 6365 Date d'inscription Statut Modérateur Dernière intervention -
Arkana0 Messages postés 6365 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'aimerais pouvoir copier des données d'un tableau pour les mettre dans un autre tableau à l'aide des macro d'Excel car c'est une tâche que je doit faire tout les mois et j'aimerais que sa soit rapide. Mais quand je fait ma macro j'ai un message d'erreur.
Merci d'avance pour ceux qui m'aiderons :(
J'aimerais pouvoir copier des données d'un tableau pour les mettre dans un autre tableau à l'aide des macro d'Excel car c'est une tâche que je doit faire tout les mois et j'aimerais que sa soit rapide. Mais quand je fait ma macro j'ai un message d'erreur.
Merci d'avance pour ceux qui m'aiderons :(
A voir également:
- Impossible de coller les données de votre organisation ici.
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Historique copier coller - Guide
- Barre de données excel pourcentage 100 ✓ - Forum Excel
- Trier des données excel - Guide
2 réponses
Oui j'ai fait enregistrer une macro j'ai fait ce que j'avais a faire ensuite j'ai arrêté mais quand je veut l'exécuter j'ai un message d'erreur...
Quand je le refait ca me met plus de message d'erreur mais quand j'exécute sa ne remet pas les données et ca ne le met pas non plus où je veux..
Sub Macro5()
'
' Macro5 Macro
'
'
ActiveCell.Range("A1:A6").Select
Selection.Copy
ActiveCell.Offset(1, -12).Range("A1:A6").Select
ActiveSheet.Paste
ActiveCell.Offset(5, 12).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(2, -12).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 12).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(3, -12).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-2, 12).Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(4, -12).Range("A1:A2").Select
ActiveSheet.Paste
ActiveCell.Offset(-2, 12).Range("A1:A3").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(5, -12).Range("A1:A3").Select
ActiveSheet.Paste
ActiveCell.Offset(-2, 12).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(6, -12).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-5, 12).Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(7, -12).Range("A1:A2").Select
ActiveSheet.Paste
End Sub
Sub Macro5()
'
' Macro5 Macro
'
'
ActiveCell.Range("A1:A6").Select
Selection.Copy
ActiveCell.Offset(1, -12).Range("A1:A6").Select
ActiveSheet.Paste
ActiveCell.Offset(5, 12).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(2, -12).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 12).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(3, -12).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-2, 12).Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(4, -12).Range("A1:A2").Select
ActiveSheet.Paste
ActiveCell.Offset(-2, 12).Range("A1:A3").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(5, -12).Range("A1:A3").Select
ActiveSheet.Paste
ActiveCell.Offset(-2, 12).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(6, -12).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(-5, 12).Range("A1:A2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(7, -12).Range("A1:A2").Select
ActiveSheet.Paste
End Sub
Ok, le problème vient visible des offsets négatifs sur le colonnes. En faisant tourner en boucle la macro il arrive un moment où elle se décalle tellement à gauche que l'offset (x,-12) n'existe pas.
Je ne vois pas trop ce qui a amené à ce que le code soit ainsi (ça me paraît très bizarre...)
Est ce qu'en remplaçant
Je ne vois pas trop ce qui a amené à ce que le code soit ainsi (ça me paraît très bizarre...)
Est ce qu'en remplaçant
ActiveCell.Range("A1:A6").Select par
Range("A1:A6").Select ton code marche ?