Discussion :

[patricktoulon]

Bonjour a tous
comment créer un variable tableau en splittant un chaine numérique sans boucle sur le len()
exemple j'ai une chaine"123456789" je voudrais la transformer en "1,2,3,4,5,6,7,8,9"
des idées ????

[cerede2000]

Hey Patrick !
En VBA sans boucle je ne vois pas....

Il y a bien StrConv avec vbFromUnicode qui va te donner un array de la valeur ASCII de chaque nombre et donc après avec un Chr tu aura le nombre

Code :

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

1
2
3
4
5
6
7
Sub test()
    Number = "123456789"
    Dim bytes() As Byte
    bytes = StrConv(Number, vbFromUnicode)
    Debug.Print Chr(bytes(0))
    Debug.Print Chr(bytes(1))
End Sub

[patricktoulon]

bon pas en vba alors je m'arrangerais pour me faire une idée

[cerede2000]

Mon StrConv ne te plait pas ?

[patricktoulon]

je travaillais justement sur le vbfromunicode
merci cerede

[Theze]

Bonjour Patrick, bonjour tout le monde !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Test()
 
    Dim Tbl
    Dim Chaine As String
    Dim I As Integer
 
    Chaine = "123456789"
 
    Chaine = Format(Chaine, Application.Rept(",@", Len(Chaine)))
 
    Chaine = Right(Chaine, Len(Chaine) - 1) 'vire la 1ère virgule
 
    Tbl = Split(Chaine, ",")
 
    For I = 0 To UBound(Tbl)
 
        Debug.Print Tbl(I)
 
    Next I
 
End Sub

[cerede2000]

Ben sinon en C# ou Java on ne peux plus simple....

Code :

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

String.ToCharArray

Et en JS un simple .Split('');


Edit : @Theze pas mal mais un peu lourd pour juste ça

[patricktoulon]

oui cerede en js je savais

Theze pal mal ton truc je vais essayer
car le vbfromUnicode me donne un ubound -1 soit 4 pour 12345 pour boucler dessus c'est difficile car les index sont importants pour mon petit projet

merci les gars

ps:
celui qui a mis un -1 a theze est un gros null il n'a pas vu la subtilité de la valeur de ce qu'a présenté theze

a savoir que avec application.rept on peut modifier une chaine sans boucle d'incrémentation et ca je savais pas et dieu sais que je m'en sert a gogo de ce .rept avec mes html dynamique

merci theze
voila c'était mon coup de gueule du dimanche

[cerede2000]

Sinon tu fais un fonction Javascript que tu appel en VBA

[Invité]

Bonjour,
Pour moi l'instruction mid c'est un split

Code :

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

1
2
3
4
 
Dim a as integer
A=123455789
D= mid(""& a,3,1)

Mais ça ne fait pas de notre texte un tableau

Voir xml comme notre base64 mais en base10?

[patricktoulon]

d'accords meme soucis abec application .rept

je vais donc revoir l'index de départ dans mon moulin



merci encore

[cerede2000]

C'est le paradox VBA ça... Des trucs qui commencent à 0 et d'autres à 1....