Tri Alphabétque Automatique Excel

Résolu
aquadoud Messages postés 2 Statut Membre -  
aquadoud Messages postés 2 Statut Membre -
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

1 réponse

  1. cédric
     
    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
    1. aquadoud Messages postés 2 Statut Membre
       
      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