vba excel compter un nombre de valeurs dans un tableau

Version imprimable

Bonjour à tous le monde!!

J'aimerais afficher les valeurs d'un tableau dans une message box.Ce que j'arrive à peu près à faire.Mais je n'ai que 3 valeurs dans mon tableau et j'aimerais indiquer à l'ordi qu'il s'arrête lorsque les 3 valeurs sont passées.
Donc comment faut-il faire s'il vous plaît?
Merci et bonne journée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Test_V05()
 
    Dim tableau(20) As Voiture 'tableau(20) est le nb de valeurs que l'on va mettre dedans
    Dim i As Integer
 
 
    'Remplissage de 1ere ligne Tableau
    tableau(0).Couleur = "Rouge"
    tableau(0).Cylindree = 2000
    tableau(0).anneeAchat = #4/21/2004#
 
    'Remplissage de 2ieme ligne Tableau
    tableau(1).Couleur = "Bleu"
    tableau(1).Cylindree = 1500
    tableau(1).anneeAchat = #3/25/2001#
 
    'Remplissage de 3ieme ligne Tableau
    tableau(2).Couleur = "Rose"
    tableau(2).Cylindree = 2500
    tableau(2).anneeAchat = #8/12/1999#
 
    'Lecture contenu tableau
 
    Do While Not i = UBound(tableau)
 
        MsgBox "Cette voiture " & tableau(i).Couleur & " a une cylindrée de " & _
        tableau(i).Cylindree & " cc, année " & tableau(i).anneeAchat
        i = i + 1
    Loop
        MsgBox "Fin du tableau"
 
End Sub

21/09/2010, 14h08
EvaristeGaloisBis

n'est ce pas déja ce que tu fais avec ton Ubound? °_°
21/09/2010, 14h19
Marc31

Ca marche pas!! apparemment le UBound délimite la valeur du tableau. Et le tableau dans les déclarations, je l'ai mis à 20 donc il me mets 20 fois la msgbox avec 3 msgbox avec des valeurs et le reste sans valeurs!!
21/09/2010, 14h50
EvaristeGaloisBis

ahhhhhhhhhh je viens de percuter ! Mea culpa, mea maxima culpa!

Alors tu as trois solutions qui valent ce qu'elles valent.
Soit tu mets un flag dans ton type (je suppose que tu n'as pas la main dessus!) (Degueulasse)

Soit tu changes la condition de ton while genre While i<=ubound(tableau) and tableau(i).Value<>"" Mais là tu as des conditions en coins a gérer (bof bof)

Soit tu dimensionnes ta structure proprement en fonction de tes besoins. Quitte a la faire très large au debut tableau(1 to 50000) et une fois que tu as fini de le remplir, tu conclus par un redim preserve tableau(1 to max) et donc là tu pourras pleinement utiliser le ubound. (le must du must)

Amuse toi bien
21/09/2010, 14h58
Marc31

Merci mais j'ai pas tous compris...est ce qu'un petit exemple de code serait possible s'il vous plaît...

Methode 1:
Code:

1 2 3 4 5 6 public type Voiture Couleur as string Cylindree as long anneeAchat as date isFill as boolean end type
Methode 2:
le code est déja donné.

Méthode 3:

Code:

redim preserve montableau(0 to 3) as Voiture

21/09/2010, 15h09
Marc31

Merci je vais opter pour la dernière!!