[AC-2007] Splitter une chaîne toute les x occurences

[JiB@]

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 :

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 :

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 :

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.

[Kloun]

Bonjour,

Je ferais le truc en 2 temps :
1 - Split de la chaine pour récupérer un tableau avec toutes les occurrences
2 - Construction d'un autre tableau à partir du premier avec changement d'occurrence sur le 2 tableau toutes les 5 occurrences du 1er tableau.

[Glherbier]

As tu lu cette page? Elle contient des descriptions de fonctions pour manipuler les caractères qui pourraient t'aider.

http://silkyroad.developpez.com/VBA/...nesCaracteres/

Bon courage

[JiB@]

D'accord mais si j'ai une ligne de 10000 caractères avec 2000 occurrences, ça ne va pas.

Merci pour le lien mais j'avais déjà visité ces tuto's avant de poster.

Quelqu'un aurait-il une piste?

Merci d'avance.

[pier.antoine]

Bonjour

Voici un exemple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim cpt As Long
Dim txt As String
Dim res As Long
 
 
 
txt = "25-56-58-78-86-4587-1548-44"
Debug.Print txt
 
 
' on initialise le nombre d'occurence cherchée
nbr = 0
 
 
' pour chaque caractère du texte
 
For cpt = 1 To Len(txt)
    If Mid$(txt, cpt, 1) = "-" Then ' si le caractère est égal à celui qu'on recherche
        nbr = nbr + 1 ' on augmente le nombre d'occurence de 1
        res = nbr Mod 2 ' on calcul le reste du nombre d'occurence par 2
        If res = 0 Then 'si le reste est 0,
            Mid$(txt, cpt, 1) = vbCrLf ' on remplace le caractère par un saut de ligne
        End If
    End If
Next
 
Debug.Print
Debug.Print txt

Au début le texte est

Code :

25-56-58-78-86-4587-1548-44

A la fin on a

Code :

1
2
3
4
5
6
 
 
25-56
58-78
86-4587
1548-44

En fait il faut utiliser la fonction "MOD" qui permet de connaître le reste d'une division.
Dans mon exemple, j'ai divisé par 2, il faudra donc modifier et faire

Code :

res = nbr Mod  5

Bonne journée

Pierre