Sujet Précédent Sujet Suivant

Tri Alphabétque Automatique Excel

Résolu/Fermé
aquadoud Messages postés 2 Date d'inscription mercredi 16 août 2017 Statut Membre Dernière intervention 16 août 2017 - 16 août 2017 à 17:22
aquadoud Messages postés 2 Date d'inscription mercredi 16 août 2017 Statut Membre Dernière intervention 16 août 2017 - 16 août 2017 à 18:32
Bonjour,

Je souhaite faire un tri automatique sur une liste.
J'ai essayé avec le code suivant sans succès

Private Sub Worksheet_Activate()
Range("C2:C34").Select 'plage par exemple où sont tes noms et adresses
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'B5 est la cellule où il y a le premier nom
Range("C2").Select
End Sub



A voir également:

1 réponse

Réponse 1 / 1
cédric
16 août 2017 à 17:38
Bonjour aquadoud,

Essaye successivement ceci :

[C2:C34].Sort [C2], 1
[C2:C34].Sort [C2], 1, Header:=xlGuess
[C2:C34].Sort [C2], 1, Header:=xlGuess, OrderCustom:=1
[C2:C34].Sort [C2], 1, Header:=xlGuess, OrderCustom:=1, Orientation:=1

Arrête-toi dès que tu en trouves un qui correspond à ce que tu veux. ;)
(ça dépend de quelles sont les valeurs par défaut)

Cordialement
 
0
aquadoud Messages postés 2 Date d'inscription mercredi 16 août 2017 Statut Membre Dernière intervention 16 août 2017
16 août 2017 à 18:32
Merci.

J'ai finalement persévéré et j'ai trouver ceci qui fonctionne.

If Not Intersect(Target, Range("C:C")) Is Nothing Then
Range("C2:C34").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Qui fonctionne à merveille surtout avec des tables et des listes.

Cordialement
0