Opération inverse de "concatener"

S

Sylvain

Guest
Bonjour à tous,

dans une cellule, je possède le nom et le prénom de personnes séparés par un espace.
Existe t il une formule permettant de découper ce texte en deux : le nom et le prénom ?

Merci à tous
 
E

elodie

Guest
Dim Str As String
Str = Range("A1").Value

Dim i As Integer
For i = 1 To Len(Str)
Dim lettre As String
lettre = Mid(Str, i, 1)
If lettre = " " Then
Dim prenom As String
prenom = Mid(Str, 1, i - 1)
Dim nom As String
nom = Mid(Str, i + 1)
i = i + 1
End If
Next i

Range("B1").Value = prenom
Range("C1").Value = nom
 

Discussions similaires

Statistiques des forums

Discussions
314 210
Messages
2 107 304
Membres
109 798
dernier inscrit
NAJI2005