Bonsoir à tous,

j'ai un module qui fonctionne très bien :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub tri1()
 
    Range("A1").CurrentRegion.Sort key1:=Range("C1"), order1:=xlAscending, dataoption1:=xlSortNormal, _
                                   key2:=Range("B1"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes
 
End Sub
ça effectue le tri du tableau en prenant comme critère la colonne C et la colonne B

L'embêtant est que j'ai dû créer une colonne intermédiaire (la colonne C) pour avoir le premier caractère gauche de la cellule A correspondante.
Est-il possible de supprimer cette colonne C et traiter directement le tri par ce code (qui lui ne fonctionne pas) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Range("A1").CurrentRegion.Sort key1:=Left(Range("A1"), 1), order1:=xlAscending, dataoption1:=xlSortNormal, _
                                   key2:=Range("B1"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes
Merci d'avance du coup de main.
Curt