Discussion :

[statista]

Bonjour, je ne parviens pas à couper coller une colonne dans une autre, voici ce que je fais dans la macro (pour couper la colonne 13 (M) et la réintroduire dans la colonne 17 (Q)):

Code :

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

1
2
3
4
ThisWorkbook.Sheets("Feuil1").Cells(1, 13).EntireColumn.Select
Selection.Cut
ThisWorkbook.Sheets("Feuil1").Cells(1, 17).EntireColumn.Select
Selection.Paste

Lorsque j'execute la macro, le bug se produit à la dernière ligne (Selection.Paste), et l'erreur renvoyée est:
"Erreur 438: propriété ou méthode non gérée par cet objet"

Selection.paste n'est pas bon?
Merci d'avance.

[mayekeul]

bonjour,

tu dois passer par pastespecial

Code :

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

1
2
 
ThisWorkbook.Sheets("Feuil1").Cells(1, 17).EntireColumn.PasteSpecial xlPasteAll

[mercatog]

Code :

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

1
2
3
with sheets("Feuil1")
.range("M:M").cut range("Q1")
end with

[statista]

Merci pour vos réponses, le couper-coller marche avec la solution de mercatog (mais j'ai l'erreur "la méthode paste special de la classe range a échoué" avec la solution de maykeul).

Par contre, j'ai un nouveau souci maintenant:

Dans le fichier (hors macro), des formules font intervenir les cellules de la colonne Q (dans laquelle je coupe-colle les résultats de la colonne M lors de la macro). Mais après ce couper-coller, les formules faisant intervenir la colonne Q sont invalides, car les références aux cellules de Q dans les formules sont transformées en "#REF".

Une solution serait-elle faire un collage spécial pour copier seulement les valeurs de M dans Q (c'était peut-être la signification de "PasteSpecial", mais je n'ai pas réussi à faire fonctionner cette méthode). Avez vous une idée? Merci encore

[hbc87]

Voici pour transposer une formule, j'ai déjà utiliser ce code :
Adapte le et ça devrait fonctionner.

Code :

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

1
2
3
Workbooks(WB).Worksheets(1).Activate
Range(lettre_collone & "3", lettre_collone & "29").Select
Selection.AutoFill Destination:=Range(lettre_collone & "3", lettre_collone2 & "29"), Type:=xlFillDefault

Aussi, si tu as plusieurs lignes à couper et copier, pour accélérer, tu peux utiliser :

Code :

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

1
2
3
buffer=workbooks(wb1).worksheets(1).cells(i,j).value
workbooks(wb1).worksheets(1).cells(i,j).value=""
workbooks(wb2).worksheets(1).cell(k,l).value=buffer

[statista]

Merci à tous