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
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
Dernière édition: