Dissosier Nom et Prénom

Bonjour a tous

je voudrais Dissocier les Nom et Prénom dans deux colonnes, sauf que je 'n'arrive pas a le faire avec un Nom en deux morceaux,

dans ma colonne de nom, je me retrouve avec des Nom a une ou deux partie.

ci-joint un exemple.

Cordialement

Bonjour,

Des formules tirées de mes archives (A tester)

Bjr,

avec une fonction personnalisée à condition que les prénoms composés soient avec un tiret

Function prenom(cel As Range) As String
Dim tablo
tablo = Split(cel.Value & " ", " ")
prenom = tablo(UBound(tablo) - 1)
End Function

Bravo M12, je suis scotché !

Le principe est basé sur les lettres en majuscule, sinon c'est pas fonctionnel

Bonjour et Merci

je regarde cela

Cordialement

Bonsoir

je reposte le fichier car en faite les nom et prénom

sont en majuscule

cordialement

Bonsoir,

une autre proposition, liste de remplacement à compléter

Sub aargh()
    Set dict = CreateObject("scripting.dictionary")
    part = Split("LE,LA,DE,VAN,VON,Y,ET,DI,DA,DOS,DU", ",")
    For i = LBound(part) To UBound(part)
        dict.Add part(i), "_" & part(i) & "_"
    Next i
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            np = .Cells(i, 1)
            t = Split(np, " ")
            ns = ""
            For j = LBound(t) To UBound(t)
                s = t(j)
                If dict.exists(s) Then s = dict.Item(s)
                ns = ns & s & "@"
            Next j
            ns = Replace(ns, "_@", "_")
            ns = Replace(ns, "@_", "_")
            ns = Replace(ns, "__", "_")
            t = Split(ns, "@")
            .Cells(i, 2) = Trim(Replace(t(0), "_", " "))
            .Cells(i, 3) = Replace(t(1), "_", " ")
            If UBound(t) <> 2 Then .Cells(i, 4) = "A vérifier"
        Next i
    End With
End Sub

Bonsoir à toutes et tous,

Une modeste contribution:

eric89, Appuis sur le bouton "Go"

Cordialement

Il m'est arrivé de le faire sur un fichier de 13000 noms, tout ne peut pas être automatisé à 100%. Il y a aussi les accents parfois à traiter !

merci a tous pour votre aide

Cordialement