Problème avec Couper/Coller

[sacapatates]

Bonjour à tous,

J'ai le code suivant pour faire un couper/coller :

Sheets("Lignes En cours").Columns(22).Cut
Sheets("Lignes En cours").Columns(7).Insert
Sheets("Lignes En cours").Paste Destination:=Sheets("Lignes En cours").Columns(7)

Le couper coller se fait, mais j'ai quand même un message d'erreur à la fin....

J'ai essayer de faire comme ceci mais pareil message d'erreur:

Sheets("Lignes En cours").Columns(22).Cut
Sheets("Lignes En cours").Columns(6).Insert
Sheets("Lignes En cours").Columns(6).Select
ActiveSheet.Paste

Une petite idée du problème ?

merci

 

[MJ13]

Re : Problème avec Couper/Coller

Bonjour

essaies peut être (Je n'ai pas vérifié):

Sheets("Lignes En cours").Columns(6).Insert
Sheets("Lignes En cours").Columns(23).Cut
Sheets("Lignes En cours").Columns(6).Select
ActiveSheet.Paste

 

[pedrag31]

Re : Problème avec Couper/Coller

Bonjour Sacapatates, bonjour MJ13, bonjour le forum,

Peut etre aussi:

Sheets("Lignes En cours").Columns(22).Cut Destination:=Sheets("Lignes En cours").Columns(7)

L'aide VBA donne :
expression.Cut(Destination)
expression Required. An expression that returns an object in the Applies To list.

Destination Optional Variant. Used only with Range objects. The range where the object should be pasted. If this argument is omitted, the object is cut to the Clipboard.

Bonne journee,🙂

 

[MJ13]

Re : Problème avec Couper/Coller

Bonjour Pedrag, Re

Pedrag, ton code est intéressant. Mais si la personne ne connaît pas bien les arcanes du VBA, difficile de le trouver tout seul.
Sinon, il y a l'enregistreur de macros qui peut être une bonne aide pour ce genre de code.

Un test vite fait cela donne ceci (coupe la colonne E en colonne C).

Sub Macro1()
'
' Macro1 Macro
'
'
    Columns("E:E").Select
    Selection.Cut
    Range("C1").Select
    Selection.Insert Shift:=xlToRight
End Sub

 

[sacapatates]

Re : Problème avec Couper/Coller

Re,

Merci pour les réponses, les deux méthodes marche ^^

 

[sacapatates]

Re : Problème avec Couper/Coller

Petite précision:
Ça ne coupe pas la colonne mais que le contenu, j'ai finalement opter pour un copier coller puis supprimer les colonnes après.