Autofiltre Résolu

Question

Bonjour, 

Je suis novice et VBA et j'aimerais implanter une macro afin de gagner un peu de temps.

Enfaîte j'ai des infos dans ma colonnes A qui sont rentrées de façon aléatoire.
J'aimerais que lorsque je clique sur un bouton (que j'ai créé) ma macro s'active et :

1. Mette en place un filtre sur la case A6
2. Tri la colonne de A --> Z (de la ligne 7 à 43)
3. Supprime le filtre mis en place à l'étape 1

Merci d'avance.

f894009 · Answer

Bonjour,

Pas besoin de filtre, un simple tri ira tres bien:

fait avec l'enregistreur de macro

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A7:A43").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A7:A43")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Bonne suite

f894009 · Answer

Re,

Sub Macro1()
'
' Macro1 Macro
'
    Dim table
    
    'mise en memoire des valeurs d'origines
    table = Worksheets("Feuil1").Range("A7:A43")
    
    'code tri
    Range("A7:A43").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A7:A43")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    'Reecriture cellules d'origines
    Worksheets("Feuil1").Range("A7") = Application.Transpose(table)
    
End Sub

A+

Autofiltre

2 réponses

Newsletters