Discussion :

[gandalf20000000]

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


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

[bboy-eazy]

Bonjour,

Regardez l'aide Excel sur la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pastespecial

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

[gandalf20000000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

j'ai essayé aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A2").Select
 
  ActiveSheet.PasteSpecial Paste:=xlPasteValues
    Range("J5").Select

Veuillez noter que je suis un noob

[bboy-eazy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bboy-eazy]

en gros tu écris ceci comme ca:

rangequetuveuxcopier.copy
rangeoùtuveuxcolller.pastespecial