Extraire chaine

[ericTA]

Bonjour à tous
je cherche a extraire des valeurs d'une chaîne:
j'ai dans une cellule une chaîne de type 67,56,2,987,3
et je cherche un moyen en VB extraire chaque valeur dans un tableau array
pour ensuite pouvoir exploter chaque valeur
merci
Eric

 

[Robert]

Re : Extraire chaine

Bonjour Éric, bonjour le forum,

Supposons que ta valeur soit dans A1, la macro ci-dessous de dispatche dans la colonne B les différrentes valeurs :

Sub Macro1()
tbl = Split(Range("A1").Value, ",")
For x = 0 To UBound(tbl)
    Cells(x + 1, 2).Value = tbl(x)
Next x
End Sub

 

[ericTA]

Re : Extraire chaine

Merci beaucoup
Eric

 

[kjin]

Re : Extraire chaine

Bonjour,

j'ai dans une cellule une chaîne de type 67,56,2,987,3

67,56
2,987
3
Ou peut-être
67
56,2
987,3
Ou peut-être...
Je suis un peu tordu des fois
A+
kjin

 

[Robert]

Re : Extraire chaine

Bonjour le fil, bonjour le forum,

Ha ces montpellierains ! ils sont fadas... Heureusement qu'il y a le Georges pour remonter le niveau... Heu ! m... pas sûr que ce soit le meilleur exemple. Mais depuis qu'ils brillent au hand et au foot on ne les tiens plus...

 

[kjin]

Re : Extraire chaine

Re,
Je ne vois pas ce que Georges Moustaki vient faire là-dedans !
Mais, il est vrai quà l'altitude 0 (voire moins) on vois beaucoup moins bien
A+
kjin

 

[Robert]

Re : Extraire chaine

Bonjour le fil, bonjour le forum,

Georges Moustaki !!!! Non mais t'as pas les idées fraîches Kjin... T'aurais pu, non pardon ! tu aurais dû citer Georges Brassens !!!! Et pour l'altitude 0, tu repassseras aussi. Viens au sommet du Mont Saint Clair tu verras la culminance sétoise à plus de 175 mètres... Ouffff, j'en ai des vertiges. Mais il y a bien plus haut si on se met à mesurer la c... sétoise ha ha ha.
Pour Dull le chauvin (voir autre post...), j'suis même pas sétois en vrai mais un voisin agathois arrivé à Sète par la plage...