Discussion :

[Chagui]

Bonjour,

je souhaite découper des chaines de caractères avec la fonction split.

Je me demande si cette facon d'écrire le code est bonne. En faite je voudrais savoir si je dois mettre toutes les chaines de caractères entre deux guillemets ou mettre des guillemets pour chaque chaine comme dans mon code si dessous et les séparer avec --> ;
Si je mets l'ensemble dans des guillemets, est ce que --> ; c'est génant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim st As String
Dim arrPartiesControle() As String
 
st = "chk_75_KO";"chk_75_OK";"chk_75_IDOC";"chk_75_IFI";"chk_76_KO";"chk_76_OK";...etc...
 
arrPartiesControle() = Split (st, "_")

arrPartiesControle(0) -> "chk"
arrPartiesControle(1) -> "75" (Id Libellé)
arrPartiesControle(2) -> "KO" (Colonne)


Merci pour votre aide !!!

[ClaudeLELOUP]

Bonjour,
vois si ceci te convient mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim st As String
Dim i As Integer
Dim arrPartiesControle() As String
st = "chk_75_KO;chk_75_OK;chk_75_IDOC"
arrPartiesControle = Split(st, ";")
For i = 0 To UBound(arrPartiesControle)
Debug.Print arrPartiesControle(i)
Next i

[Chagui]

Merci toujours là pour m'aider, vraiment qsympa !!

Par contre je ne comprend pas trop le code en faite...

Tu as mis comme séparateur ";" . Sachant que je veux séparer les chaines "chk", "75" et "ok" et que le séparateur est : _ comment ce code s'y prend t-il.

pourrais -tu juste m'expliquer comment il fonctionne ( J'apprend un peu plus comme cela...)

merci !

[Jean-Philippe André]

Salut,
tu peux utiliser le separateur que tu veux.
Un exemple d'utilisation de la fonction Split sur plusieurs niveaux est donne dans le tutoriel suivant :
http://jpcheck.developpez.com/tutori...tres/#LXII-E-2

Pour des raisons de facilite, le caractere que j'emploie le plus souvent est le caractere | (se prononce "paillepeu" ), car il est quasiment jamais utiliser dans les chaines de caracteres

[Chagui]

Ok donc si je dois utliser le "_" mais il n'y aura pas de souci avec le ";", ce que je me demande c'est que si mon séparateur est "_" le point virgule ne posera pas de problème pour differencier 2 chaine de caractere.

donc le code serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim st As String
Dim i As Integer
Dim arrPartiesControle() As String
st = "chk_75_KO;chk_75_OK;chk_75_IDOC"
arrPartiesControle = Split(st, "_")
For i = 0 To UBound(arrPartiesControle)
Debug.Print arrPartiesControle(i)
Next i

mais il faut que j'integre ca dans le code

arrPartiesControle(0) -> "chk"
arrPartiesControle(1) -> "75"
arrPartiesControle(2) -> "KO"

En gros j'suis nul en VBA, je manque de logique...

[Jean-Philippe André]

En fait, tu dois d'abord decomposer les elements avec le separateur ";"
puis tu appliques le separateur "_"

ca te donnera donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim st As String
Dim i As Integer, j As Integer
Dim arrPartiesControle As Variant
Dim arrPartiesControle2 As Variant
st = "chk_75_KO;chk_75_OK;chk_75_IDOC"
arrPartiesControle = Split(st, ";")
For i = 0 To UBound(arrPartiesControle)
     arrPartiesControle2 = Split(arrPartiesControle(i), "_")
     For j = 0 to UBound(arrPartiesControle2)
           Debug.Print arrPartiesControle2(j)
     Next j
Next i

[Chagui]

Merci infiniment !!!!!

Ok je comprend mieux et je me rend mieux compte comment le code se déroule

bonne continuation