Discussion :

[youvi]

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.

Code :

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

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