Separer non prenom

Bonjour,

j'ai tenté d'écrire un code pour séparer le nom du prénom afin de garder que le nom.

J'ai utilisé l'enregistreur de macro pour la partie séparation entre le nom et prénom n'arrivant pas à trouver la bonne formule.

MA problématique est la suivante,

Dans mon fichier original, par moment le code bloc sur la ligne "fa.paste"

Je ne peux pas intégrer de formule dans chaque cellule de type (gauche..) car c'est une macro qui me rapporte tous les noms et chiffres.

Si vous avez la possibilité de me donner une solution ave l'explication SVP

Je vous remercie

cordialement

Bonjour Tseoy, Bonjour le Forum,

Personnellement je passerais plus part une boucle et un GAUCHE + TROUVE pour extraire le nom.

Ci-dessous le code avec en vert les explications :

Sub Nom_Prenom()
Dim x As Long, y As Long
'On compte notre nbr de ligne a tester
x = Range("A" & Rows.Count).End(xlUp).Row
'On boucle sur chacune des lignes
For y = 2 To x
'SI il y a le mot "total" dans la cellule, alors on n'y touche pas
    If InStr(1, Cells(y, 1), "total") = 0 Then
'SINON on cherche la position de l'espace " " via TROUVE dans la cellule en cours
'et on extrait le texte de la cellule via GAUCHE
        Cells(y, 1) = Left(Cells(y, 1), InStr(1, Cells(y, 1), " "))
    End If
'On passe à la ligne suivante
Next
End Sub

Et ci-joint ton fichier avec des noms et des prénoms ayant un nombre de caractère différent.

Restant à disposition

Édit : Salut xorsankukai ! On est tout les deux d'accord sur l'utilisation du InStr et Left ;D

Nos soluces sont semblables

Bonjour tseo, le forum,

Voir l'exemple ci-joint en modifiant ta présentation...

Cordialement,

EDIT: bonjour Juice, nos posts se sont croisés . Nickel ta soluce

Merci à vous deux.

tseoy