Séparer deux mots d'une même cellule espasés.

[siva]

Bonjour
J'ai un fichier qui contient 6000 lignes, chaque cellule de la collen A contient le nom et le prénom séparés par des espaces (+ de 2 espaces). Je souhaiterais séparé les données de la colonne A le nom dans la colonne B et le prénom dans la colonne C. Et également pourra-t-on mettre le prénom en miniscule. J'ai besoin de votre aide.
Voir le fichier en PJ.

Merci d'avance

SIVA

 

[fanfan38]

Re : Séparer deux mots d'une même cellule espasés.

Bonjour
Je mettrai en b10 (pour la ligne 10) =SUPPRESPACE(GAUCHE(A10;NBCAR(A10)/2))
et en c10 =MINUSCULE(SUPPRESPACE(DROITE(A10;NBCAR(A10)/2)))

A+ François

 

[siva]

Re : Séparer deux mots d'une même cellule espasés.

bonjour Francois,

la formule en b10 fonction
mais la formule en c10 j'ai un message d'erreur

siva

 

[fanfan38]

Re : Séparer deux mots d'une même cellule espasés.

La différence entre les 2 est minuscule, gauche et droite...
C'est bien une version 2007 que tu as?
essaie: SUPPRESPACE(DROITE(A10;NBCAR(A10)/2))
Quel est le message d'erreur?

A+ François

 

[pierrejean]

Re : Séparer deux mots d'une même cellule espasés.

Bonjour à tous

Un essai

 

[david84]

Re : Séparer deux mots d'une même cellule espasés.

Bonjour, salut pierrejean,
2 fonctions personnalisées :

Function Nom(Machaine As String) As String
Dim oRegExp As Object, s As Variant
If Machaine = "" Then Exit Function
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
    .Pattern = "(\s){2,}"
    If .test(Machaine) = True Then Machaine = .Replace(Machaine, "#")
    s = Split(Machaine, "#")
End With
Nom = Trim(s(0))
End Function

Function Prénom(Machaine As String) As String
Dim oRegExp As Object, s As Variant
If Machaine = "" Then Exit Function
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
    .Pattern = "(\s){2,}"
    If .test(Machaine) = True Then Machaine = .Replace(Machaine, "#")
    s = Split(Machaine, "#")
End With
Prénom = Trim(s(1))
End Function

Appeler la fonction dans la cellule et sélectionner la valeur en colonne A
=Nom(A2)
=Prénom(A2)
A+

 

[siva]

Re : Séparer deux mots d'une même cellule espasés.

Merci à vous tous,
ça fonctionne
siva