Tri avec priorités en VBA

Bonsoir la room des exceleurs


Voilà je le creuse la tête mais je trouve pas l'astuce.
J'ai une feuille excel, dans cette feuille :
colonne A de 1 a 10 par exemple j'ai des abréviations de type ADC BTP ZUP etc..
Colonne B en face de ces abréviations j'ai de noms prénoms de personnes.

Mon souchi c'est de créer un premier trié VBA de la colonne A mais pas fortement en tri croissent j'aimerais donner les priorite de tri par exemple en tête de liste ADC puis ZUP puis BTP etc.
Et dans un second temps lorsque ce tri est fait qu'il tri les nom prénom par ordre alphabétique afin de faire en sorte que si j'ai plusieurs ligne en ADc il me les range par ordre alphabétique de nom et prénom

Espérant avoir été clair merci a tous de vos contributions

Tu as essayé l'enregistreur de macro, je pense qu'il t'aurait donné la marche à suivre ;)

De mémoire, je crois que c'est la fonction Sort, regarde ses propriétés ;)

ce que tu demande, ne s'apparente pas à un trie.
je te suggère d'ajouter une colonne Order
1 | ADC
2 | ZUP
3 | BTP

tu pourras trié sur Order puis nom et enfin Pnom.

Bonjour Robert,
Peut-être évoque t'il un tri sur liste personnalisée comme on pourrait le faire par exemple avec des tailles.
Exemple d'un code produit par l'enregistreur de macros

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("K2:K8"), _ SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "xs,s,m,l,xl,xxl", DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("K2:L8") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

---

effectivement j'ai pas pensé à ça.

Merci a tous pour vos réponse j'essaie cela demain
Encore merci