Autres XL2007 Récupérer dans un tableau avec SPLIT

erics83

XLDnaute Impliqué
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():
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..................
'..................................
et je souhaiterai récupérer dans un Tblo, les valeurs en utilisant SPLIT, j'ai donc essayé :
Code:
For i = 1 To n
    Tblo = Split(r(i), "|")
Next i
' mais je ne récupère que les valeurs tblo de i...
après j'ai fait :
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)
, en fait j'aimerai avoir/récupérer les valeurs en format
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
, donc que le tblo prenne la "taille" suivant le nombre de variables entre 2 "|"...

merci pour votre aide,
 

danielco

XLDnaute Accro
Bonjour,

Voici le fonctionnement de Split :

VB:
Sub test()
  Dim R As String, Tblo, I
  R = "a|b"
  Tblo = Split(R, "|")
  For I = 0 To UBound(Tblo)
    Debug.Print Tblo(I)
  Next I
End Sub

Tu récupères :

Annotation 2020-05-29 150209.jpg


Cordialement.

Daniel
 

erics83

XLDnaute Impliqué
Merci Daniel,

merci pour ce rappel de la fonction SPLIT, j'avais déjà trouvé le fonctionnement grace au supers tutos de Silkyroad. Mon problème est qu'il y a une boucle ..un peu comme si ton "R" était modifié à chaque fois...et donc le format de Tblo change et je souhaite récupérer les Tblo(n,1), etc....

merci pour ton aide,
 

erics83

XLDnaute Impliqué
Ok, merci Daniel,

c'est surtout que je voulais que mes Tblo aient tous le "même" format..et j'ai résolu mon problème en rajoutant des "|" lorsque j'avais que 1 ou 2 variables....

merci pour ton aide qui m'a permis de re-travailler mon raisonnement,

A+
 

Discussions similaires

Réponses
6
Affichages
202

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib