Tri automatique

Résolu/Fermé
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 29 mars 2015 à 16:31
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 30 mars 2015 à 11:32
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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
29 mars 2015 à 18:01
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
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
Modifié par jc80 le 30/03/2015 à 11:51
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