Discussion :

[parp1]

Bonjour a tous, voila je remplis un tableau avec des données arrivant par 4
Pour cela je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If i = 0 Then
ReDim nbclic(3)
nbclic(0) = Slider1.Value
nbclic(1) = rouge
nbclic(2) = vert
nbclic(3) = bleu
Else
ReDim Preserve nbclic(4 * (i + 1))
nbclic(i * 4 + 1) = Slider1.Value
nbclic(i * 4 + 2) = rouge
nbclic(i * 4 + 3) = vert
nbclic(i * 4 + 4) = bleu
End If

J'incremente i plus loin.

Cependant je souhaite lancer une fonction tant qu'il y a des valeurs dans mon tableau, pour cela je fait.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
While nbclic(i * 4) = True
    If i = 0 Then
        Set coloring = propertyF(0, 1, Int(nbclic(0)), nbclic(1), nbclic(2), nbclic(3))
        volume.SetProperty coloring
    Else
    Set coloring = propertyF(0, 1, Int(nbclic(i * 4 + 1)), nbclic(i * 4 + 2), nbclic(i * 4 + 3), nbclic(i * 4 + 4))
    End If
    volume.SetProperty coloring
    Urender.AddActor volume
    Urenwin.render
 
Wend

Je n'entre jamais dans la boucle! Auriez vous un lien, ou une solution afin que je puisse faire mes actions tant que mon tableau peut me donner les arguments.

Merci!

[Vld44]

nbclic(i * 4) n'est pas une expression logique et ne peut donc pas renvoyer de booléen.

[pc75]

Bonjour,

Tu peux peut être utiliser la fonction ubound(MonTableau) qui te renvoie la taille d'un tableau ?

[parp1]

Laisser tomber j'ai fait ca avec un for! Et ca fonctionne. Ba oui comme la taille de mon tableau depends de i, et que je le connais... c'est simple.

Merci Quand même