Tableau et valeurs décimales

[francois1955]

Bonjour,
J'ai des affichages bizarres dans la séquence suivante avec des nombres décimaux.
J'ai essayé de déclarer les variables avec Single ou Double.
J'ai essayé de modifier aussi le format de mes cellules (Standard, Nombre...) mais je n'ai pas de progrès.

*******************
Dim t(10)

For k = 0.1 To 0.5 Step 0.1
t(k) = k
Cells(k * 10, 1) = t(k)
Next

For k = 0.1 To 0.5 Step 0.1
Cells(k * 10, 2) = t(k)
Next
*****************
Dans la colonne A, l'affichage me donne: 0.1, 0.2, 0.3, 0.4 (et étrangement pas 0.5)
Dans la colonne B, l'affichage me donne: 0.4, 0.4, 0.4, 0.4
Pour quelles raisons svp?
Merci

 

[vgendron]

Bonjour

déjà. tu déclares t comme un tableau de 10 éléments..
ensuite pour accéder aux éléments de ce tableau tu écris t(k)..
sauf que k est un décimal.. les indices d'un tableau sont des entiers..
et tu ne remplis que 5 élements de ce tableau..

Que souhaites tu faire exactement?
avec un fichier exemple, ce serait pas mal non plus

 

[vgendron]

exemple

Sub test()
Dim t(10)

For i = 1 To UBound(t)
    t(i) = (i) / 10
Next i

For i = 1 To UBound(t)
    Cells(i, 1) = t(i)
Next i

End Sub

 

[francois1955]

Bonjour,

ensuite pour accéder aux éléments de ce tableau tu écris t(k)..
sauf que k est un décimal.. les indices d'un tableau sont des entiers..

Ok, c'est ce que je croyais mais...
************
Dim t(10)
For k = 0.1 To 1.1 Step 0.1
t(k) = k
Cells(k * 10, 1) = t(k)
Next
*******
le code ci-dessus n'avait pas posé de problème malgré des indices décimaux. Il est vrai, comme tu l'a fait remarquer plus haut, les 11 éléments du tableau étaient définis.
J'espérais donc pouvoir aller plus loin dans cette voie.

Que souhaites tu faire exactement?

Ce n'est pas très clair pour l'instant...
J'espérais boucler sur les valeurs décimales d'un tableau.
Mais tu as raison, je vais donc me restreindre à des indices entiers et essayer d'adapter ma boucle à cette nécessité.
Merci.