Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel COMMENT inverser l'ordre des colonnes?

COMMENT inverser l'ordre des colonnes?

3 réponses
Avatar
mobimus
Bonjour,

J'ai plusieurs classeurs avec une dizaine de colonnes chacune.

Je voudrais par un moyen automatique qui me permettrait pour un
classeur d'inverser l'ordre des colonnes (avec conservation des
formules s'il y en a bien sûr).

Exemple:

ColonneA;ColonneB;ColonneC;ColonneD;....

Il faut avoir:
.....;ColonneD;ColonneC;ColonneB;ColonneA


Merci bcp
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour mobimus,


As-tu essayer quelque chose dans le genre :

'-----------------------------------
Sub Copie()
Dim Tblo as variant, Tblo1 as variant, Tblo2 as variant, Tblo as variant
With Worksheets("Feuil1")
tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Formula
tblo1 = .Range("b1:b" & .Range("b65536").End(xlUp).Row).Formula
tblo2 = .Range("c1:c" & .Range("c65536").End(xlUp).Row).Formula
tblo3 = .Range("d1:d" & .Range("d65536").End(xlUp).Row).Formula
.Range("D1").Resize(UBound(tblo, 1)) = tblo
.Range("c1").Resize(UBound(tblo1, 1)) = tblo1
.Range("b1").Resize(UBound(tblo1, 1)) = tblo2
.Range("A1").Resize(UBound(tblo1, 1)) = tblo3
End With

End Sub
'-----------------------------------


Salutations!



"mobimus" @enlever> a écrit dans le message de news:
Bonjour,

J'ai plusieurs classeurs avec une dizaine de colonnes chacune.

Je voudrais par un moyen automatique qui me permettrait pour un
classeur d'inverser l'ordre des colonnes (avec conservation des
formules s'il y en a bien sûr).

Exemple:

ColonneA;ColonneB;ColonneC;ColonneD;....

Il faut avoir:
.....;ColonneD;ColonneC;ColonneB;ColonneA


Merci bcp
Avatar
Daniel
Bonjour.
Ceci, peut-être :

Sub test()
Dim NbreCol As Integer, Ctr As Integer
NbreCol = Range("A1").SpecialCells(xlCellTypeLastCell).Column - 1
For i = NbreCol To 1 Step -1
Columns(NbreCol).Cut
Columns(1 + Ctr).Insert Shift:=xlToRight
Ctr = Ctr + 1
Next i
End Sub

Cordialement.
Daniel
"mobimus" @enlever> a écrit dans le message de news:

Bonjour,

J'ai plusieurs classeurs avec une dizaine de colonnes chacune.

Je voudrais par un moyen automatique qui me permettrait pour un classeur
d'inverser l'ordre des colonnes (avec conservation des formules s'il y en
a bien sûr).

Exemple:

ColonneA;ColonneB;ColonneC;ColonneD;....

Il faut avoir:
.....;ColonneD;ColonneC;ColonneB;ColonneA


Merci bcp




Avatar
Daniel
Erratum :

Sub test()
Dim NbreCol As Integer, Ctr As Integer
NbreCol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
For i = NbreCol - 1 To 1 Step -1
Columns(NbreCol).Cut
Columns(1 + Ctr).Insert Shift:=xlToRight
Ctr = Ctr + 1
Next i
End Sub

Daniel
"Daniel" a écrit dans le message de news:
Oznieoa$
Bonjour.
Ceci, peut-être :

Sub test()
Dim NbreCol As Integer, Ctr As Integer
NbreCol = Range("A1").SpecialCells(xlCellTypeLastCell).Column - 1
For i = NbreCol To 1 Step -1
Columns(NbreCol).Cut
Columns(1 + Ctr).Insert Shift:=xlToRight
Ctr = Ctr + 1
Next i
End Sub

Cordialement.
Daniel
"mobimus" @enlever> a écrit dans le message de news:

Bonjour,

J'ai plusieurs classeurs avec une dizaine de colonnes chacune.

Je voudrais par un moyen automatique qui me permettrait pour un classeur
d'inverser l'ordre des colonnes (avec conservation des formules s'il y en
a bien sûr).

Exemple:

ColonneA;ColonneB;ColonneC;ColonneD;....

Il faut avoir:
.....;ColonneD;ColonneC;ColonneB;ColonneA


Merci bcp