Autres Modifier l'ordre de mes colonnes

hamid43

XLDnaute Nouveau
Bonjour à tous !

Je souhaite un code VBA qui Modifier l'ordre de mes colonnes feuille(1) suivant l'ordre des colonnes feuille(2)

Merci d'avance de votre aide
 

Pièces jointes

  • ordre colonnes.xls
    64 KB · Affichages: 16

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @hamid43 :) ,

Voir la macro ci-dessous dans module1:
VB:
Sub ordonnerSelon()
Dim dercol&, i&, ncol&
    Application.ScreenUpdating = False
    dercol = Sheets("Feuille2").Cells(1, Columns.Count).End(xlToLeft).Column
    On Error Resume Next
    For i = 1 To dercol
        ncol = Application.Match(Sheets("Feuille2").Cells(1, i).Value, Sheets("Feuill1").Rows(1), 0)
        If IsNumeric(ncol) And ncol <> i Then
            Sheets("Feuill1").Columns(ncol).Cut
            Sheets("Feuill1").Columns(i).Insert Shift:=xlToRight
        End If
    Next i
End Sub

nota : en espérant que cela fonctionne car mon Excel est orienté de la gauche vers la droite contrairement au votre. Cela pourrait peut-être avoir une influence sur les constantes xlToleft et xlToRight. Je ne sais pas. A vous de tester.
 

Pièces jointes

  • hamid43- ordre colonnes- v1.xls
    82 KB · Affichages: 12
Dernière édition:

hamid43

XLDnaute Nouveau
Bonjour @hamid43 :) ,

Voir la macro ci-dessous dans module1:
VB:
Sub ordonnerSelon()
Dim dercol&, i&, ncol&
    Application.ScreenUpdating = False
    dercol = Sheets("Feuille2").Cells(1, Columns.Count).End(xlToLeft).Column
    On Error Resume Next
    For i = 1 To dercol
        ncol = Application.Match(Sheets("Feuille2").Cells(1, i).Value, Sheets("Feuill1").Rows(1), 0)
        If IsNumeric(ncol) And ncol <> i Then
            Sheets("Feuill1").Columns(ncol).Cut
            Sheets("Feuill1").Columns(i).Insert Shift:=xlToRight
        End If
    Next i
End Sub

nota : en espérant que cela fonctionne car mon Excel est orienté de la gauche vers la droite contrairement au votre. Cela pourrait peut-être avoir une influence sur les constantes xlToleft et xlToRight. Je ne sais pas. A vous de tester.
Merci pour ton aide ça fonctionne !
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof