Discussion :

[patricktoulon]

Bonjour a tous
Dans ma précedente discussion ,dans divers exemple que l'on m'a proposé il y en a un qui m'interesse

la fonction evaluate sur join(une chaine splitée) donne un tableau
exemple

Code :

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

1
2
chaine=split("1 2 3 4 5 6 7 8 9")
tablo2 = Evaluate("{" & Join(chaine),"," & "}") 'DONNE UN TABLEAU A 1 LIGNE

pour plusieur ligne il a été dis que la chaine soit scinder par un ";"

donc normalement si je fait

Code :

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

1
2
chaine=split("1 2 3 4 5 6 7 8 9 ;10 20 30 40 50 60 70 80 90")
tablo2 = Evaluate("{" & Join(chaine),"," & "}") 'DONNE UN TABLEAU A 2 LIGNE

non?? ou je n'ai pas compris quelque chose ??

join(tablo) donne bien une chaine string non??

donc si je met

Code :

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

1
2
chaine="1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90"
tablo2 = Evaluate("{" & chaine & "}") 'DONNE UN TABLEAU A 2 LIGNE

merci pour le retour

[mercatog]

Bonjour Patrick
Pour voir, mets un

Code :

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

1
2
Debug.Print Tablo2(1, 3)
Debug.Print Tablo2(2, 4)

[Marc-L]

Salut Patrick !

Comme je l'avais précisé en préambule dans ta précédente discussion,
comme indiqué dans l'aide VBA des fonctions texte Filter, Join & Split,
c'est uniquement pour une matrice d'une seule dimension …

chaine = Split("1 2 3 4 5 6 7 8 9 ;10 20 30 40 50 60 70 80 90") :

ici comme le délimiteur n'est pas précisé, c'est donc par défaut l'espace
et tu obtiens donc une variable tableau unidimensionnelle, le ; étant un caractère comme un autre …

Pour créer une matrice de deux dimensions : tablo = [{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90}] …

En passant par Split, il faut décomposer :

tablo = Evaluate("{" & Join(Split("1 2 3 4 5 6 7 8 9"), ",") & ";" & Join(Split("10 20 30 40 50 60 70 80 90"), ",") & "}") …


Mais vu la chaine source, c'est plus simple sans Split via la fonction Replace :

Code :

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

1
2
    chaine = "1 2 3 4 5 6 7 8 9 ;10 20 30 40 50 60 70 80 90"
    tablo2 = Evaluate("{" & Replace(Replace(chaine, " ;", ";"), " ", ",") & "}")

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[davido84]

Bonjour,
peut-être comme cela si j'ai bien compris ta demande :

Code :

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

1
2
chaine = Split("1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90", ";")
tablo2 = Evaluate("{" & chaine(0) & ";" & chaine(1) & "}")

A+

[patricktoulon]

re
Bonjour Davido
Ok ca fonctionne
et maintenant comment intégrer plus de ligne
sans devoir faire chaine(1) & chaine(2) etc......
car ma chaine peut aller de 55 à 74 lignes

[Marc-L]

Si tu pars d'une table HTML, connaissant déjà le nombre de colonnes et de lignes,
je passerais directement par une variable tableau et une classique boucle imbriquée …

[davido84]

Pourquoi passer par un Split ?

Code :

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

1
2
chaine = Array("1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900")
tablo2 = Evaluate("{" & Join(chaine) & "}")

ou

Code :

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

chaine = Evaluate("{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900}")

Ne fait-il pas l'affaire ?
A+

[patricktoulon]

salut Marc
je ne passe pas par un tablo en 2 boucleS imbriquées parce que le code html des tables est une véritable infestation
des cellules vide des sous elemS etc...

exemple

sur la page web

1,,2,3,,,4

OU
1.2,3;4

parfois même 3 éléments dans un même TH

Voila comme tu peut le voir je suis obligé de traiter le innertext de chaque éléments

bref
j'arrive a la fin
avec un texte du genre
exemple
nom1 |1|2|3|4|5|6|7|8|9
NOM2|1|2|3|4|5|6|7|8|9
un replace sur les saut de ligne par un point virgules et le"|" par une virgule et voila
Les numéros étant différents bien sur

davido
quand je met le texte comme tel dans le evaluate ca ne fonctionne pas

du genre

Code :

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

chaine = Evaluate("{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900}")