Modifier l'ordre de mes colonnes

Bonjour,

Je souhaite dans mon code modifier l'ordre de mes colonnes.

Est-ce possible ?

Merci par avance de votre aide

Voici mon code aujourd'hui, est-il possible de le simplifier

[code][/Columns("I:I").Select

Selection.Cut

Columns("A:A").Select

Selection.Insert Shift:=xlToRight

Columns("I:I").Select

Selection.Cut

Columns("B:B").Select

Selection.Insert Shift:=xlToRight

Columns("G:G").Select

Selection.Cut

Columns("O:O").Select

Selection.Insert Shift:=xlToRight

Columns("E:E").Select

Selection.Cut

Columns("O:O").Select

Selection.Insert Shift:=xlToRight

Columns("C:C").Select

Selection.Cut

Columns("I:I").Select

Selection.Insert Shift:=xlToRight

Columns("f:f").Select

Selection.Cut

Columns("d:d").Select

Selection.Insert Shift:=xlToRightcode]

Bonjour,

Voici un exemple pour trier les colonnes en fonction des titres à mettre en ordre croissant,

j'ai supposé que les titres sont sur la ligne 1

Sub tri_Colonne()
Dim AL1 As Object
Dim xItem
Set AL1 = CreateObject("System.Collections.ArrayList")
n = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
   For i = 1 To n
      AL1.Add Cells(1, i).Value
   Next

   AL1.Sort

   For k = 0 To UBound(AL1.Toarray())
    t = Application.Match(AL1(k), ActiveSheet.Rows(1), 0)
    Columns(t).Cut
    Columns(n + 1).Insert Shift:=xlToRight
   Next
Application.ScreenUpdating = True
End Sub

Merci SabV, seul inconvénient mon changement de colonne n'a rien à voir avec un ordre alphabétique

Bonjour,

vous pourriez ajouter une ligne tout en haut

et indiquer par des chiffres l'ordre voulue

Édit :voici un exemple

Super merci beaucoup ca marche

Bonjour

avec array ses peux être plus simple

A voir

Sub Test()
Cu = Array(9, 9, 7)
Col = Array(1, 2, 15)
Application.ScreenUpdating = False
    For L = 0 To UBound(Cu)
        Columns(Cu(L)).Cut
        Columns(Col(L)).Insert Shift:=xlToRight
    Next
End Sub

A+

Maurice