VBA Excel, le Copier coller est différente avec une macro

Bonjour,


Je fais une petite macro toute bete pour copier des données dans un tableau.

Quand je fais le copier coller Manuellement (CTRLC + CTRLV) tout va bien, les données sont au bon format. Quand je fais la même chose avec une macro (j'ai enregistrer la macro quand je copiait manuellement), les données sont au mauvais format et ça fait tout planter.

Exemple manuellement et avec macro
Pièce jointe 184086

Commentaire faire pour que la macro mette bien tout au bon format?

Bonjour,

Regardez l'aide Excel sur la méthode

Code:

---

pastespecial

---

EDIT: et plus particulièrement sur le paramètre XlPasteType

Salut.

Il n'y a rien dans l'aide d'excel à ce sujet. J'ai chercher ces arguments sur google et j'ai compris l'importance des arguments xlPasteAll, lPasteValues; xlPasteformat etc...

Cependant, quand j'essaye de le mettre dans la macro, elle plante .

Code:

---

1 2 3

Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

j'ai essayé aussi

Code:

---

1 2 3

Range("A2").Select Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Code:

---

1 2 3

Range("A2").Select ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Code:

---

1 2 3 4

Range("A2").Select   ActiveSheet.PasteSpecial Paste:=xlPasteValues Range("J5").Select

---

Veuillez noter que je suis un noob :D

c'est normal car il faut copier avant de coller via la méthode copy:

Code:

---

1 2 3 4

Range("A2").Select Selection.copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

le mieux meme est de mettre directement ton range:

Code:

---

1 2 3

thisworkbook.worksheet("nomdelafeuille").Range("A2").copy thisworkbook.worksheet("nomdelafeuille").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

en gros tu écris ceci comme ca:

rangequetuveuxcopier.copy
rangeoùtuveuxcolller.pastespecial