Discussion :

[xaviou99]

Bonjour,
Je voudrais savoir si il est possible de simplifier ce code car étant donné que je ne le connais pas, j'ai lancé l'enregistreur de macro pour éviter de vous déranger mais ce code me paraît assez compact. Je veux trier par ordre alphabétique en étendant la sélection avec la colonne C comme source.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Range("C3:C65536").Select
ActiveWorkbook.Worksheets("LISTE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LISTE").Sort.SortFields.Add Key:=Range( _
"C3:C65536"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("LISTE").Sort
    .SetRange Range("A3:C65536")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Merci d'avance

[MarcelG]

Bonjour xavion, Bonjour le Forum,

Pour ma part, je pense que c'est à toi d'alléger ce code.

étant donné que je ne le connais pas

Justement! Raison de plus pour le comprendre en le décortiquant pour mieux l'alléger.

Sache que l'enregistreur de macro indique toutes les propriétés, y compris celles par défaut.
Teste une mise en page, tu verras.
D'où la nécessité de l'alléger au maximum.
Pour ce faire, le bloc

Code :

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

With

est bien utile