Discussion :

[NEC14]

Bonjour à toutes et à tous,

Dans une colonne, j'ai NOM Prénom. J'aimerai que le Nom soit dans une colonne et le prénom dans une autre.
Connaissez-vous une formule pour réaliser cela ?

De plus, dans une troisième colonne je dois récupérer le nom et le prénom ensemble.

Et enfin, supprimer tous les prénoms de la première colonne

Merci pour votre aide

[rvtoulon]

Bonjour,
Le "NOM Prenom" en A1 avec un espace entre nom et prenom.
Pour le Nom en B1 :

Code :

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

=GAUCHE(A1;CHERCHE(" ";A1;1)-1)

Pour le prenom en C1 :

Code :

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

=STXT(A1;CHERCHE(" ";A1;1)+1;NBCAR(A1))

[el_slapper]

mmmh, j'ai un doute, pour "DE LA FOUCHARDIERE Marie Veronique", on fait comment.....?

[rvtoulon]

Bonjour,

mmmh, j'ai un doute, pour "DE LA FOUCHARDIERE Marie Veronique", on fait comment.....?

c'est sur il n'y a pas de doute ça ne fonctionneras pas, mais comme il n'y a pas de précision j'ai fais simple.
D'ailleurs je ne suis pas assez fort pour faire compliquer donc ....

EDIT:
Mais une solution vba existe dans ce post voici le code qui fonctionne pour "DE LA FOUCHARDIERE Marie Veronique", je l'ai légérement modifié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SepareNomPrenom()
Dim i As Integer
Dim Chaine As String
Dim vASC As Integer
Dim x As Integer, y As Integer
 
    For i = 1 To 200 ' c'est a adapter
        Chaine = Range("A" & i).Value
        y = 1
        Do
            x = InStr(y, Chaine, " ")
            If x > 0 Then
                vASC = Asc(Mid(Chaine, x + 2, 1))
            Else
                vASC = 0
            End If
            y = x + 1
        Loop Until vASC < 65 Or vASC > 90 Or x = 0
        If vASC <> 0 Then
            Range("B" & i).Value = Left(Chaine, x - 1)
            Range("C" & i).Value = Right(Chaine, Len(Chaine) - x)
        End If
    Next i
End Sub

[NEC14]

Effectivement cela me cause des soucis avec les noms à particules. J'ai plus de 600 noms à modifier et cela va être long à la main.
Merci

[rvtoulon]

As-tu testé le code vb mis dans l'edit de la réponse précédente?

[NEC14]

Bonjour rvtoulon,

Oui je l'ai testé et mis en place et cela m'a aidé à résoudre mon problème.
Merci beaucoup pour ton aide
Bien amicalement

[mercatog]

Bonjour
Une autre proposition si seuls les noms sont entièrement en majuscule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub SepareNomPrenom()
Dim Chaine As String, Nom As String, Prenom As String
Dim x As Integer, i As Long
Dim Tb
 
With Sheets("Feuil1")
    For i = 1 To 10
        Chaine = .Range("A" & i).Value
        If Chaine <> "" Then
            Tb = Split(Chaine)
            For x = 0 To UBound(Tb)
                If UCase(Tb(x)) = Tb(x) Then
                    Nom = Nom & " " & Tb(x)
                Else
                    Prenom = Prenom & " " & Tb(x)
                End If
            Next x
            .Range("B" & i).Value = Trim(Nom)
            .Range("C" & i).Value = Trim(Prenom)
            Nom = ""
            Prenom = ""
        End If
    Next i
End With
End Sub

[NEC14]

Bonjour à toutes et à tous,

Merci mercatog pour la dernière proposition. Tous vos codes m'ont beaucoup aidés compte tenu de la liste à modifier.
Encore un grand merci

[Oliv-]

Une autre solution consiste à se procurer une liste des prénoms et de la comparer avec ton fichier pour déterminer quel est le nom et le prénom.

[AlainTech]

Une autre solution consiste à se procurer une liste des prénoms et de la comparer avec ton fichier pour déterminer quel est le nom et le prénom.

Je te souhaite bien du plaisir avec tous ceux qui, comme moi, ont un prénom comme patronyme.
Gérard ou Gerard
Alexandre
Antoine
Vincent
Pierre
...

[Oliv-]

Quelle drôle d'idée ? Genre Jean JEAN
eh bien tu changes ton prénom en LEVIS ou DIESEL

Sinon tu gères cela dans les anomalies en faisant un score sur le nombre de prénoms trouvés dans l'expression par rapport au nombre de mots.

Après y a les nouveaux prénoms comme FACEBOOK à la mode en Egypte