Macro sans nom d'onglet

[scoobytor]

Bonsoir à tous,

J'ai un fichier avec 12 onglets ( un par mois). Pour le mois de janvier j'ai enregistré la macro suivante :

...
Range("A2:AG72").Select
Selection.AutoFilter
Range("A3").Select
ActiveWorkbook.Worksheets("Jan").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Jan").AutoFilter.Sort.SortFields.Add(Range("A2:A72") _
, xlSortOnCellColor, xlAscending, , xlSortTextAsNumbers).SortOnValue.Color = _
RGB(255, 255, 0)
With ActiveWorkbook.Worksheets("Jan").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
....

Alors comment modifier : ActiveWorkbook.Worksheets("Jan").AutoFilter.Sort.SortFields.Clear
pour que cette macro puisse être exécutée sur n'importe lequel des 12 onglets (la solution fastidieuse consisterai à copier 12 fois la macro et à changer "jan" par les 11 autres mois)

Merci d'avance.

 

[kiki29]

Re : Macro sans nom d'onglet

Salut en adaptant ton code avec

With ActiveSheet
    ....
End With

 

[scoobytor]

Re : Macro sans nom d'onglet

Merci, effectivement en arrangeant mon code avec ActiveSheet cela fonctionne sans problème.
Encore un grand merci à toi Kiki29.