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

[ProgElecT]

Salut

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

Code :

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

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

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

Code :

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

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

[youvi]

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

[ProgElecT]

Re

Il faut adapter

Code :

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

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

[youvi]

merci infiniment pour votre aide