Bonjour,
Je souhaite mettre récupérer dans un tableau des données séparées par un "|". Mon code "initial" (=celui qui "stocke" en r():
et je souhaiterai récupérer dans un Tblo, les valeurs en utilisant SPLIT, j'ai donc essayé :
après j'ai fait :
, en fait j'aimerai avoir/récupérer les valeurs en format
, donc que le tblo prenne la "taille" suivant le nombre de variables entre 2 "|"...
merci pour votre aide,
Je souhaite mettre récupérer dans un tableau des données séparées par un "|". Mon code "initial" (=celui qui "stocke" en r():
VB:
For i = 1 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row * 2
For j = i + 1 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row * 2
For k = j + 1 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row * 2
If (Abs(a(i)) <> Abs(a(j)) And Abs(a(i)) <> Abs(a(k)) And Abs(a(j)) <> Abs(a(k))) Then
n = n + 1
r(n) = a(i) & "|" & a(j) & "|" & a(k)
End If
Next k
Next j
Next i
'.................................................
'Différents calculs et autres..................
'..................................
Code:
For i = 1 To n
Tblo = Split(r(i), "|")
Next i
' mais je ne récupère que les valeurs tblo de i...
Code:
ReDim tblo(n, 1)
For i = 1 To n
tblo(i, 1) = Split(r(i), "|")
Next i
'mais mes valeurs Tblo s'inscrivent en format : Tblo(n,1)(0)
Code:
Admettons que r(1) = "1|2" j'aimerai que Tblo(n,1) = 1 et Tblo(n,2)=2
de même si r(2)="5|" j'aimerai que Tblo(n,1) = 5
et si r(3) = "6|7|8" j'aimerai que Tblo(n,1) = 6 et Tblo(n,2)=7 et Tblo(n,3)=8
merci pour votre aide,