Tri Alphabétque Automatique Excel
Résolu
aquadoud
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
aquadoud Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
aquadoud Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Tri Alphabétque Automatique Excel
- Comment faire un tri personnalisé sur excel - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
1 réponse
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
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
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