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
Ce bout de code est particulièrement peu élégant.
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)
Existe t-il une solution plus... esthétique ?
Cordialement
Jean-Jacques
Partager