Tri automatique

Résolu
jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour

Je recherche vainement un code VBA pour trier automatiquement les colonnes A1 à B150 "feuille données" dans l'ordre alphabétique quand j'ajoute un code et un nom.
colonne A code colonne B nom.
Merci pour votre aide
Crdlt

1 réponse

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Tu peux utiliser l'enregistreur de macro pour voir la procédure générée lorsque tu effectues ce tri avec Excel.

    A+
    1
    1. jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   1 443
       
      Bonjour

      Merci pour ta réponse.
      J'ai trouvé la bonne solution
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Range("B5:C22").Select 'plage par exemple où sont tes noms et adresses
      Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'B5 est la cellule où il y a le premier nom
      Range("B5").Select
      End Sub
      Cordialement
      0