cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 6 févr. 2003 à 18:27
Salut vbMarco
Après avoir mis quelques minutes à déchiffrer ton français par facile à lire :
- UBound renvoie le nombre d'éléments dans un tableau, et c'est vrai que le UBound d'un tableau qui ne contient pas de données renverra quand même le nombre d'éléments
- Par contre, ce n'est pas normal que ton rogramme "plante" quand tu utilises UBound d'un tableau vide !
- Pour connaitre le nombre de datas non vide contenues dans ton tableau, il te faut les compter :
Dim r as Long, Nbre as Long
Nbre = 0
For r = LBound(Tableau) to UBound(Tableau)
If not Tableau(r) isnull and Tableau(r) <> "" then _
Nbre = Nbre + 1
Next r
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 7 févr. 2003 à 00:25
Le moyen est simple : Dans ta Form_Load, tu fais un premier dimensionnement :
Redim unTableau(0) as Integer
et quand tu as besoin de modifier sa taille :
Redim Preserve unTableau(x) as Integer