Discussion :

[UDSP50]

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

[illight]

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

[Invité]

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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

effectivement j'ai pas pensé à ça.

[UDSP50]

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