Insérer un vbCrLf après les ";"

Bonjour à tous,

Tout d'abord j'extrais une partie de texte bien définie entre deux balises : ok

Puis cette partie de texte, mText admettons, je check pour savoir si elle contient des ";" : ok

Et là, dans le cas positif j'aimerais ajouter un vbCrLf après chaque ";" dans mon String mText.

j'ai pensé à faire une boucle pour avancer au fur et à mesure dans mText et checker si il y a besoin mais je m'y perds à vrai dire... Alors peut-être il existe une fonction pour identifier un terme précis dans un String (Instr) et d'insérer un caractère à la suite et ce après chaque caractère identifié : une fonction qui combine les deux =)

Alors ? =) =)

Bonjour,

La fonction Replace() donnera je pense toutes satisfactions :

Sub Test()

    Dim Texte As String

    Texte = "voici le texte avec des points-virgules; pour tester si il est possible; de rajouter un VbCrLf; après chaque points-virgules !"

    MsgBox Replace(Texte, ";", ";" & vbCrLf)

End Sub

merci beaucoup Theze !! Effectivement pourquoi aller chercher plus loin

Petit bonus : et si je veux en plus de vbCrLf ajouter une puce genre le petit rond noir ?

--> Chr(149) !

Re,

MsgBox Replace(Texte, ";", ";" & vbCrLf & Chr(149))

merci Theze, c'est bien ce que j'avais trouvé =)