Tri cellule noms composé

Bonjour,

J'ai une très longue liste composées de PRENOMS et NOMS

Je parviens à l'aide d'une macro à trier cette liste afin de séparer les données qui sont des PRENOMS ou des NOMS composés

Sub jj()
Dim Derlg As Long, C As Object
Feuil2.Columns("a:b").Clear
Feuil3.Columns("a:b").Clear
For Each C In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If C Like "* *" Or C Like "*-*" Or C.Offset(, 1) Like "* *" Or C.Offset(, 1) Like "*-*" Then
        Derlg = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        Feuil2.Cells(Derlg, 1) = C
        Feuil2.Cells(Derlg, 2) = C.Offset(, 1)
    Else
        Derlg = Feuil3.Cells(Rows.Count, 1).End(xlUp).Row + 1
        Feuil3.Cells(Derlg, 1) = C
        Feuil3.Cells(Derlg, 2) = C.Offset(, 1)
    End If
Next
End Sub

Par contre je ne sais pas comment faire pour trier la même liste qui contient 3 colonnes.

En fait je voudrais faire la même chose qu'avec le code précédent mais en ajoutant un colonne "VILLE"

Mon fichier est disponible à cette adresse :https://drive.google.com/file/d/1wGshE7vRYVwX3pmbAxbj9dPzrHfhuoNG/view?usp=sharing

Merci d'avance pour votre aide.

Pierre

Salut Pitipier,

tu veux trier ou tu veux séparer ?

Séparer, ça a l'air fait...

Pour trier les 3 colonnes : NOM-Prénom-Ville

'
Application.ScreenUpdating = False
'
Range("A1:C" & Range("A" & Rows.Count).End(xlUp).Row).Sort _
    key1:=Range("B2"), order1:=xlAscending, _
    key2:=Range("A2"), order2:=xlAscending, _
    key3:=Range("C2"), order3:=xlAscending, _
    Orientation:=xlTopToBottom, Header:=xlYes
'
Application.ScreenUpdating = True
'

A+

Bonjour,

Merci de ton intérêt pour ma question

En fait je veux séparer... Prendre les lignes qui comportent un PRENOM ou NOM composé et les mettre dans une feuille séparées.

et faire la même chose pour les noms simples.

J'ai trouvé une solution sur un autre forum.

Si cela t’intéresse mon fichier est en pièce jointe.

Bonnes fêtes de fin d'année.