Question sur MSchart

Bonjour,

j'essaye de créer un contrôle qui affiche des barres, mais les barres ne s'affichent pas pour les valeurs avec virgules.
Pièce jointe 498323Pièce jointe 498324

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Command2_Click() Dim Y As Integer Dim Z() As Double Y = Val(Text2.Text)   Dim i As Integer For i = 0 To Y - 1 ReDim Preserve Z(i)   Z(i) = Val(Text3(i).Text)   Next i   MSChart1.ChartData = Z End Sub

---

Salut

La fonction val(), pour un chiffre à virgule retourne la partie entière,

Code:

---

1 2	Chaine = "123,456" MsgBox Val(Chaine) ' renvoie 123

---

Tu peux modifier/remplacer la virgule par un point décimal.

Code:

---

1 2 3

Chaine = "123,456" Chaine = replace(Chaine,",",".") MsgBox Val(Chaine) ' renvoie 123.456

---

Merci beaucoup pour votre réponse,

mais moi je veux que le graphe s'affiche avec des barres qui ont les mêmes valeurs que les cases,

les cases ont un nom de text3(i)

la valeur de y = 5

Re

Il faut adapter

Code:

---

1 2 3 4 5 6

For i = 0 To Y - 1 ReDim Preserve Z(i) Z(i) = Val(replace(Text3(i).Text,",",".")) Next i   MSChart1.ChartData = Z

---

merci infiniment pour votre aide:D:D