Discussion :

[Runsh63]

Bonjour le forum,

Je sèche sur une manip' toute bête, qui consiste à insérer une colonne préalablement coupée.
Je suis passéé par l'enregistreur de macro et ai ensuite adapté le code.

Seulement ça ne marche pas, et je ne vois pas pourquoi...

voilà mon code:

Code :

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

1
2
3
4
5
With Sheets("Initial Data")
 
        .Columns("E:E").Cut .Columns("D:D").Insert Shift:=xlToRight
 
End With

C'est sûrement très bête mais ça me dépasse...

Quelqu'un pourrait-il corriger mon erreur SVP ?)

Merci d'avance et bon après-midi à toutes et tous.

[joe.levrai]

Bonjour,

essaye comme ça :

Code :

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

1
2
3
4
With Sheets("Initial Data")
    .Columns(5).Cut
    .Columns(4).Insert xlToRight
End With

[Runsh63]

Merci 1.000 fois Joe, c'est parfait.
J'ai réessayé avec mon code, en mettant juste à la ligne après ".cut" et ça fonctionne aussi.

De là à comprendre pourquoi c'est une obligation, ça c'est autre chose !!

Mais ça marche parfaitement et je t'en remercie grandement !!