[VBA EXCEL] aide tri par ordre alphbetique

Fermé
jeremac - 22 mai 2008 à 18:06
 jeremac - 22 mai 2008 à 20:48
Bonjour,

J'ai une colonne avec [noms, prenoms] que je souhaiterais trier par ordre alphabétique par une macro.
Ex : Dupont, Marc (sur la même colonne)
Quelqu'un saurait-il m'aider ?

Merci
A voir également:

1 réponse

Utilisateur anonyme
22 mai 2008 à 19:06
Bonjour,

Si la colonne est unique, exemple pour la colonne A :

Sub TrierColonne()

    Range("A1:A100").Sort Key1:=Range("A1"), _
        Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
                Orientation:=xlTopToBottom, _
                    DataOption1:=xlSortTextAsNumbers

End Sub
'


Si la colonne a des colonnes associées :

ex:

Col A ............................Col B
Nom Prénom..................Statut

Dupont, Marc ................Permanent
Lupin,Arsène.................Occasionnel
Holmes, Sherlock............Temporaire

Il faut alors sélectionner toute la plage

Sub TrierColonne()

    Range("A1:B100").Sort Key1:=Range("A1"), _
        Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
                Orientation:=xlTopToBottom, _
                    DataOption1:=xlSortTextAsNumbers

End Sub
'

Lupin
1
merci ça marche nikel !!
0