E erics83 XLDnaute Impliqué 20 Février 2022 #1 Bonjour, Je pense que ça doit être super simple, mais...je ne 'ai pas trouvé......comment compter le nombre de split : j'aurais besoin de savoir combien de variable "a" existent...... VB: a = Split(tbl(i, 16), ",") J'ai essayé a.count marche pas..... car dans le cadre d'un code et dictionaire, j'ai besoin de faire Code: dico(tbl(i,16), a(0)="" et Code: dico(tbl(i,16), a(1)="" etc.....et naturellement "a" peut être de 0 à 9....d'où mon "besoin" de connaitre le nombre de "a"...... Merci pour votre aide,
Bonjour, Je pense que ça doit être super simple, mais...je ne 'ai pas trouvé......comment compter le nombre de split : j'aurais besoin de savoir combien de variable "a" existent...... VB: a = Split(tbl(i, 16), ",") J'ai essayé a.count marche pas..... car dans le cadre d'un code et dictionaire, j'ai besoin de faire Code: dico(tbl(i,16), a(0)="" et Code: dico(tbl(i,16), a(1)="" etc.....et naturellement "a" peut être de 0 à 9....d'où mon "besoin" de connaitre le nombre de "a"...... Merci pour votre aide,
Staple1600 XLDnaute Barbatruc 20 Février 2022 #2 Bonsoir A vue de nez, je dirais avec Ubound , non ? Vote positif 0 Vote négatif
E erics83 XLDnaute Impliqué 20 Février 2022 #3 Merci Staple1600, Tellement simple....que j'avais oublié qu'on pouvait....donc : VB: a = Split(tbl(i, 16), ",") For j = LBound(a) To UBound(a) dico(tbl(i, 1) & "|" & a(j)) = "" Next j MERCI !!! Vote positif 0 Vote négatif
Merci Staple1600, Tellement simple....que j'avais oublié qu'on pouvait....donc : VB: a = Split(tbl(i, 16), ",") For j = LBound(a) To UBound(a) dico(tbl(i, 1) & "|" & a(j)) = "" Next j MERCI !!!
Staple1600 XLDnaute Barbatruc 20 Février 2022 #4 R Je m'étais fait ce petit test pour vérifier mes dires Code: Sub test() tbl = Array("a,b,c", "e,f,g,h", "b,b,b,b,b,b") For i = 0 To 2 a = Split(tbl(i), ",") MsgBox UBound(a) + 1 Next End Sub Vote positif 0 Vote négatif
R Je m'étais fait ce petit test pour vérifier mes dires Code: Sub test() tbl = Array("a,b,c", "e,f,g,h", "b,b,b,b,b,b") For i = 0 To 2 a = Split(tbl(i), ",") MsgBox UBound(a) + 1 Next End Sub