Bonjour,
J'ai un tableau concernant un calendrier "Anniversaires" de la famille.
Fatalement, il faut les douze mois dont les onglets ont été nommés de Janvier à Décembre, toutes les feuilles ont la même structure. le tri est demandé dans la colonne " Q " soit "Q5:Q342".
La macro trouvée par le système "enregistrement macro", qui fonctionne correctement est:
ActiveWorkbook.Worksheets("Janvier").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Janvier").AutoFilter.Sort.SortFields.Add Key:= _
Range("Q5:Q342"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Janvier").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Que j'ai recopiée pour tous les mois.
J'aurais voulu trouver, une macro avec boucle du genre for...next, pour simplifier .
Merci d'avance et Bon WE.
J'ai un tableau concernant un calendrier "Anniversaires" de la famille.
Fatalement, il faut les douze mois dont les onglets ont été nommés de Janvier à Décembre, toutes les feuilles ont la même structure. le tri est demandé dans la colonne " Q " soit "Q5:Q342".
La macro trouvée par le système "enregistrement macro", qui fonctionne correctement est:
ActiveWorkbook.Worksheets("Janvier").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Janvier").AutoFilter.Sort.SortFields.Add Key:= _
Range("Q5:Q342"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Janvier").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Que j'ai recopiée pour tous les mois.
J'aurais voulu trouver, une macro avec boucle du genre for...next, pour simplifier .
Merci d'avance et Bon WE.