Discussion :

[benoit70]

Salut a tous, je cherche a faire un truc tout con mais ca a pas l air de marcher. Gestion d'un tableau dynamique comme en C++.

Comment faire pour ajouter un élément ?????

Apperement faut redimensionner le tableau mais ca ne marche pas avec le premier element ! car UBound plante si le tableau est vide.
Comment faire alors? (si ce n'est de mettre une valuer bidon au début mais c du bricolage)
Merci les confrères

[zazaraignée]

Salut

Je fais à peu près comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim monTableau() As Integer
Dim i as Integer   ' compteur et indice
For i = 0 to 9
    Redim Preserve monTableau(i)
    monTableau(i) = i
Next i

L'option Preserve est importante pour conserver les valeurs déjà entrées dans le tableau.

[benoit70]

merci mais ce n'est pas le problème en fait.

1. je crée un tableau avec une taille null. Je ne SAIS PAS combien d'elements je vai y introduire
2. je n ajoute pas d'element et je fais UBound(tableau) mais ca explose car le tableau a une taille nulle mais est kan meme un tableau.

---> comment lire la taille d'un tableau qui a une taille nulle???

[plegat]

Salut,

---> comment lire la taille d'un tableau qui a une taille nulle???

Comment veux-tu lire la taille d'un tableau de taille nulle???

Tu sais qu'en utilisant ubound sur un tableau de taille nulle tu obtiens une erreur. Il ne te reste qu'à la gérer... Dès que tu as l'erreur, le tableau est de taille nulle...

[DarkVader]

Veuillez faire l'effort d'effectuer une recherche sur le forum avant de poser une question SVP
Récemment : http://www.developpez.net/forums/viewtopic.php?t=397438

[benoit70]

vraiment désolé mais j'ai bien cherché avant sur le forum et meme sur google. Y a quelqu'un qui a posé la meme question sur un autre forum mais personne n'a répondu.

Ma question était super simple et super précise et j'ai eu une seule réponse, partielle de surcroit : "gestion par l'erreur".

Comment gérer l'erreur sur UBound afin de pas avoir la boite de dialogue d'erreur de VB?
Désolé je débute. Mais ce serait cool d'etre plus précis car parmi les langages que je maitrise j'ai jamais vu ca de ma vie. 1 tableau c'est le B-A BA de la prog et faire tout ca pour ajouter un élement a un tableau vide ça frole le pitoyable.
Cordialement

[AlainTech]

En reprenant le code de zazaraignée et avec une petite modif, ça donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  Dim monTableau() As Integer
  Dim i As Integer   ' compteur et indice
  ReDim monTableau(0)
  For i = 0 To 9
    ReDim Preserve monTableau(i)
    monTableau(i) = i
  Next i

L'astuce vient d'un ReDim en plus.

Plus de message d'erreur à gérer.

Par contre, dans ton cas, il faudra, sans doute, faire un test de contenu pour éviter d'avoir le contenu de l'indice 0 vide.

[Mandalar]

Si les réponses données ci dessus ne te conviennent pas, voici un exemple de fonction qui renvoie la taille d'un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Function TailleTab(Tableau() As String) As Integer
 
On Error GoTo vide
TailleTab = UBound(Tableau)
Exit Function
 
vide:
TailleTab = 0
 
End Function

[benoit70]

Non ça va. Je suis juste un peu choqué de voir que y a tant de choses à faire pr seulemnt ça.... Mais bon on s'y fait.
Merci