Discussion :

[Gamuelf]

Bonjours,

je travaille actuellement sur un projet où est affiché une liste de noms (Prénom et nom). Ces noms sont affichés dans une listbox.

J'aurais besoin de classer ces noms en ordre alphabétique de nom de famille. Malheureusement, je n'y arrive pas.

Est-ce que quelqu'un aurait une idée?

Merci d'avance!

[XylonAkau]

_ Ia ora na.
_ L'idée de base est simple : transformer chaque ligne Prénom Nom en Nom Prénom puis placer la nouvelle ligne dans une seconde liste dont la propriété Sorted sera fixée (lors de la création dans l'interface graphique) à Vrai.
_ Le plus difficile risque d'être le passage de Prénom Nom à Nom Prénom, qui peut réserver quelques surprises :
Nadine de Rothschild >>> Rothschild Nadine (de)
Charles de Gaulle >>> De Gaulle Charles
Pierre Mendès France >>> Mendès France Pierre
Jean-Marie Gustave Le Clézio >>> Le Clézio Jean-Marie Gustave
_ Mais si, par chance, tout le monde s'appelle Juliette Gréco ou même Jean-Michel Jarre, un simple

Code :

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

1
2
3
4
Dim Morceau() As String, NomPrénom As String
 
Morceau() = Split(PrénomNom)
NomPrénom = Morceau(1) & " " & Morceau(0)

devrait faire l'affaire, pour peu que vous ayez défini PrénomNom comme variable de chaîne, et y ayez mis le contenu d'une ligne de votre première liste.
_ Bon courage dans la poursuite de votre travail.

Post-scriptum : ci-dessus, tout ce qui vient après _ Le plus difficile risque d'être... suppose que, dans votre liste, le prénom et le nom sont séparés par une espace <chr$(32)> ; s'ils étaient séparés par un caractère spécifique (tabulation, espace insécable, appelons-le Délimiteur), il suffirait de changer la ligne 3 du code précédent en

Code :

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

Morceau() = Split(PrénomNom, Délimiteur)

_ A condition que Délimiteur soit déclaré et défini auparavant, il n'y aurait alors plus de problème que pour la particule nobiliaire (qui peut ne pas passer pour un aspect crucial de la programmation en VB6).

[Gamuelf]

Wow merci c'est parfait! :O

Et je déduis que si je veux les voir apparaître dans l'ordre "Prénom Nom" il suffit, une fois les avoir classer, de les renvoyer ligne par ligne dans une autre liste en inversant les (Nom Prénom)??

Merci encore!

[XylonAkau]

_ Ia ora na.

il suffit, une fois les avoir classer, de les renvoyer ligne par ligne dans une autre liste en inversant les (Nom Prénom)??

_ Exactement, en veillant à ce que cette dernière liste, elle, ait gardé Sorted = Faux.
_ Bonne continuation.