[RESOLU] Déplacer des colonnes

[CG2000]

Bonjour à Tous, Bonjour le Forum,

Le code suivant me permet de mettre la ligne 2 à la place de la ligne 1 et la ligne 1 à la place de la 2.

Rows(2).Cut
Rows(1).Insert Shift:=xlDown

Je souhaiterais obtenir un mème résultat avec des colonnes, la colonne 2 la place de la 1 et la 1 a la place de la 2.

Des remplacements Column avec Column ne me donne rien de bon - Je ni arrive pas.

Merci par avance de votre aide à m'orienter.

CG2000

 

[Pierrot93]

Re : Déplacer des colonnes

Bonjour,

essaye peut être ainsi :

Columns(1).Insert
Columns(3).Cut Columns(1)
Columns(3).Delete

bonne journée
@+

 

[gilbert_RGI]

Re : Déplacer des colonnes

bonjour;

comme ceci peut-être

Sub test2()
Columns(2).Cut
Columns(1).Insert Shift:=xlLeft
End Sub

EDIT : Bonjour Pierrot

 

[CG2000]

Déplacer des colonnes

Mercis bien Pierrot et Gilbert_RGI,

Les deux propositions me donne un très bon résultat.
Je vais travailler dessus. Merci.
Bonne journée à tous.