XL 2013 Macro décale d'une colonne

candido57

XLDnaute Occasionnel
Bonjour,
j'ai une macro pour faire une tri de colonne , mais cette dernière commence le tri à partir de la colonne A1 au lieu de la colonne B1.
Pouvez vous m'aider pour cette macro ci dessous?
Ce que je ne comprend pas, c'est que , j'ai la même macro dans un autre fichier et ça fonctionne très bien.
Merci

Sub Triage_Personnes()
With ActiveWorkbook.Worksheets("Triage").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B1:AM1"), SortOn:=xlSortOnValues, _
CustomOrder:="Numéro de carte,Famille,Prénom,Jours et heures de passage", DataOption:=xlSortNormal
.SetRange [B1].CurrentRegion
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
Worksheets("Triage").Sort.SortFields.Clear

Worksheets("Triage").UsedRange.Sort Key1:=Range("B1"), Header:=xlYes, _
Order1:=xlAscending, Order2:=xlDescending

End Sub
 

Pièces jointes

  • test.xlsm
    31.4 KB · Affichages: 2
Dernière édition:

candido57

XLDnaute Occasionnel
Bonjour,
j'ai une macro pour faire une tri de colonne , mais cette dernière commence le tri à partir de la colonne A1 au lieu de la colonne B1.
Pouvez vous m'aider pour cette macro ci dessous?
Ce que je ne comprend pas, c'est que , j'ai la même macro dans un autre fichier et ça fonctionne très bien.
Merci

Sub Triage_Personnes()
With ActiveWorkbook.Worksheets("Triage").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B1:AM1"), SortOn:=xlSortOnValues, _
CustomOrder:="Numéro de carte,Famille,Prénom,Jours et heures de passage", DataOption:=xlSortNormal
.SetRange [B1].CurrentRegion
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
Worksheets("Triage").Sort.SortFields.Clear

Worksheets("Triage").UsedRange.Sort Key1:=Range("B1"), Header:=xlYes, _
Order1:=xlAscending, Order2:=xlDescending

End Sub
Ok j'ai trouvé l'erreur.
Bonne soirée
 

Discussions similaires

Réponses
3
Affichages
826
Réponses
11
Affichages
693

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11