Copier/coller des données et insérer autre part avec macro

Lulu6.0 Messages postés 8 Statut Membre -
Arkana0 Messages postés 1980 Date d'inscription Statut Modérateur Dernière intervention - 10 mai 2016 à 17:14

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 :(

Afficher la suite

2 réponses

Réponse 1 / 2
Arkana0 Messages postés 1980 Date d'inscription Statut Modérateur Dernière intervention 183

Bonjour,

as-tu tout simplement tenté d'enregistrer en macro ce que tu faisais ?
0
Réponse 2 / 2
Lulu6.0 Messages postés 8 Statut Membre

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...
0
1. Arkana0 Messages postés 1980 Date d'inscription Statut Modérateur Dernière intervention 183
  
  Et bien dans ce cas, le message d'erreur indique normalement la ligne de code qui pose problème. Copie-le code ici avec la ligne mise en cause.
  
  0
2. Lulu6.0 Messages postés 8 Statut Membre
  
  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
  
  0
3. Arkana0 Messages postés 1980 Date d'inscription Statut Modérateur Dernière intervention 183
  
  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
  ActiveCell.Range("A1:A6").Select
  par
  Range("A1:A6").Select
  ton code marche ?
  
  0

Copier/coller des données et insérer autre part avec macro

2 réponses

Discussions similaires

Newsletters