Bonsoir le Forum!
Nous avons créer cette macro pour trier alphabétiquement des listes nominatives. Le problème est qu'elle ne s'applique qu'à l'onglet "5B". Nous voudrions la modifier pour l'étendre aux autres onglets classes, ici 6A, 3A, 3B.
La macro:
Merci
DJISA
Nous avons créer cette macro pour trier alphabétiquement des listes nominatives. Le problème est qu'elle ne s'applique qu'à l'onglet "5B". Nous voudrions la modifier pour l'étendre aux autres onglets classes, ici 6A, 3A, 3B.
La macro:
Code:
Sub Tri_alpha()
Range("Tableau95B").Select
ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Add2 _
Key:=Range("Tableau95B[Prénom]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Add2 _
Key:=Range("Tableau95B[Nom]"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Merci
DJISA