Bonjour

Je manipule une chaîne de caractères. Exemple " PETIT JEAN Marie Jeanne" dans une chaîne passée en paramètre dans UneString
Je tire les morceaux par

TabChaine = Split(UneString, " ")

Je détecte le nom en majuscule puis je sépare le nom du prénom par une tabulation (vbTab). Je concatène tout cela dans Chaine. Il semble que le dernier TabChaine prend la marque de paragraphe or il faut, dans certain cas, que je place une tabulation avant la marque de paragraphe.
Je m'en sors avec

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Chaine = Replace(Chaine, vbCr, "-+")
Chaine = Replace(Chaine, "-", vbTab)
Chaine = Replace(Chaine, "+", vbCr)
Ce bout de code est particulièrement peu élégant.
Existe t-il une solution plus... esthétique ?

Cordialement
Jean-Jacques