tableaux de taille indeterminé

Question

Bonjour
comment faire pour detecter la derniere colonne d'un tableau dont on ne connais pas la taille?
(detecter la 1&#232;re colonne vide)
je vous remercie pour votre aide

Slyders · Answer

Je sais pas si sa marche mais enfaite tu li toute les case de ton tableau et enfaite quand il n'y aura plus de case a lire ca va planter et le on error te renvera le numero de la derniere case incr&#233;ment&#233; (faire -1 pour le r&#233;sultat car il incr&#233;mente et il plante apres donc c le pr&#233;c&#233;dent de bon) :x

for i = 0 to 99999999
   test = tableau(i)
   on error goto resultat
Next

resultat : msgbox (test)

BasicInstinct · Answer

taille=ubound(Tableau)

et a chaque fois que tu ajoutes un element 
redim preserve tableau(taille)

 BasicInstinct

imanolle · Answer

ca n'a pas marcher .ca me mets memoire unssufisante ou type incompatible
mais merci pour ton aide

cs_MasterHack · Answer

moi je vote pour le code de vbinstincte

Life is short...Learn more Copy Rights <> Rights to Copy

Slyders · Answer

c kler que ma m&#233;thode c du bidoullage :x

imanolle · Answer

je te remercie Kan meme.

cs_MasterHack · Answer

Slyders non mais pas du mais g voter pour la plus simple. ;)

Life is short...Learn more Copy Rights <> Rights to Copy

crenaud76 · Answer

D'accord le code de BasicInstinct est simple mais ne r&#233;pond pas &#224; la
demande de Imanolle : Celui-ci veut l'index de la 1ere colonne vide ?
Pas l'index de la derni&#232;re colone du tableau !!

Alors faut savoir qu'en VB, un &#233;l&#233;ment de tableau comme n'importe
qu'elle autre variable (autre que les objets) ne peux pas &#234;tre vide. Si
c'est du Num&#233;rique, cela vaudra &#233;ventuellement 0,et si c'est du string,
ce sera une chaine vide : ""

Alors le plus simple est de faire une boucle entre lBound et Ubound du
tableau et de s'arr&#234;ter sur la 1ere colonne r&#233;pondant au crit&#232;re de
"Vide" si l'on peut dire. Pour un tableau T de Long ca donnera



Dim i As Long

Dim T() As Long  'Cr&#233;ation du tableau

''' Bout de code vari&#233;

Redim T(2 To 30) 'Dimensionnement du tableau

''' Bout de code vari&#233; remplissant plus ou moins le tableau, comme par exemple

For i = lBound(T) to 20

  T(i) = rnd*100

Next

''' Bout de code vari&#233;

For I = lbound(T) To ubound(T)

  If t(i)=0 Then   Msgbox "1er indice vide = " & i

Next






 Christophe R

BasicInstinct · Answer

bon d'accord mon code etait limite trop court, et ne repondait pas vraiment a la question.

Mais personnellement, j'ai pas l'habitude de gerer des tableaux de 30 entrees qd y'en a que 20 d'utilis&#233;es. 



++


 BasicInstinct

Tableaux de taille indeterminé

9 réponses

Discussions similaires