Trie VBA

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

Bonjour

Essaye cette syntaxe

Sub Trie()

'

' Trie Macro

'

vfeuil = ActiveSheet.Name' repère le nom de l'onglet

Range("B6:AH80").Select

ActiveWorkbook.Worksheets(vfeuil).Sort.SortFields.Clear

ActiveWorkbook.Worksheets(vfeuil).Sort.SortFields.Add Key:=Range("B6:B80"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets(vfeuil).Sort

.SetRange Range("B5:AH80")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("B6").Select

End Sub

Cordialement

FINDRH

merci beaucoup,

ça marche,

Bon WE Francky

Rechercher des sujets similaires à "trie vba"