Discussion :

[INFINITY100]

Bonjour à tous

Voila ci-dessous j'ai pu créer une macro avec l’enregistreur de macro d'Excel qui a pour but de filtrer par ordre alphabétique elle fonctionne très bien du coup je cherche à la simplifier au maximum possible et la rendre un peu plus professionnel

Voici la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With Worksheets("Liste_Fournisseurs")
    Range("I12:I1048576").Select
    ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste_Fournisseurs").Sort.SortFields.Add Key:=Range("I12"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("Liste_Fournisseurs").Sort
        .SetRange Range("C12:I1048576")
        .Apply
       End With
    End With
    Range("A1").Select

Merci par avance

Cordialement

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Worksheets("Liste_Fournisseurs")
    .Sort.SetRange Range("C12:I" & Rows.Count)
    .Sort.Apply
End With

[INFINITY100]

Merci l'ami c'est gentil