Bonjour,
j'ai activé l'enregistreur VBA pour un trie automatique sur une plage.
Par contre, je voudrais qu'il le fasse sur n'importe quelles feuilles actives, car en effet, j'ai 12 onglet avec le même plage.
de plus, il me semble qu'il y a des lignes qui sont peut être à supprimer...
ci-dessous le code, dites mois si vous préféré le fichier :
Sub Trie()
'
' Trie Macro
'
'
Range("B6:AH80").Select
ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add Key:=Range("B6:B80"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Mai").Sort
.SetRange Range("B5:AH80")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B6").Select
End Sub
merci d'avance, Francky