Problème avec Couper/Coller

MJ13

XLDnaute Barbatruc

• 2 Septembre 2009

• #2

Re : Problème avec Couper/Coller

Bonjour

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

Code:

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

 

Vote positif 0 Vote négatif

pedrag31

XLDnaute Occasionnel

• 2 Septembre 2009

• #3

Re : Problème avec Couper/Coller

Bonjour Sacapatates, bonjour MJ13, bonjour le forum,

Peut etre aussi:

Code:

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,🙂

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Septembre 2009

• #4

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).

Code:

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

 

Vote positif 0 Vote négatif

S

sacapatates

Guest

• 2 Septembre 2009

• #5

Re : Problème avec Couper/Coller

Re,

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

 

Vote positif 0 Vote négatif

S

sacapatates

Guest

• 2 Septembre 2009

• #6

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.

 

Vote positif 0 Vote négatif