Bonjour,


Je cherche à splitter une chaîne de caractère à chaque fois que l'on arrive au cinquième séparateur.

Voici mon champs "Note" contenant la chaîne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
14-8954-556-2-545-1-5-1-551-56-125-1-521-5-15-6-.....................
Je voudrais avoir ce résultat pour le champs "Note":

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
14-8954-556-2-545
1-5-1-551-56
125-1-521-5-15
Donc au cinquième séparateur "-", il y a un retour à la ligne

Voici mon code de départ:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim i As Integer
 
i = 0
 
Do Until i = 5
If Note.Value Like "*-*" Then i = i + 1
Loop
If i = 5 Then Note.Value = Replace(Note.Value, "-", vbNewLine, 1, i)
Pour le reste, je ne vois pas comment procéder.

Merci d'avance pour votre aide.