Discussion :

[Kutoh]

Bonjour,
Je suis entrain de faire une macro me permettant de mettre à jour mon graphique. J'ai écri le code suivant:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Type Données
 contenu As Long
End Type
 
Sub MiseAJourGraph()
 
'---------------------Graph VL-------------------------
Dim comptage As Long, i As Long
 
Sheets("Calcul de la VL").Select
    comptage = 0
        For i = 10 To 65536
        If Range("O" & i).Value <> "" Then
            comptage = comptage + 1
            Else
            comptage = comptage
        End If
    Next i
 
Dim TabDonnées() As Données
 
For i = 10 To comptage
        ReDim Preserve TabDonnées(1 To i)
        TabDonnées(i).contenu = Range("O" & i).Value
Next i
 
Sheets("-1- Graph VL").Select
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Chart 1124").Activate
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Values = TabDonnées(1).contenu
 
End Sub

Mais quand je lance la macro, un message d'erreur apparait et me dit
"paramètre non valide"

Ce que je voudrais c'est que les valeurs constituées dans mon tableau puissent servir à mettre à jour mon graphique. I need Help please!!

[Invité]

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim comptage As Long
comptage = Sheets("Calcul de la VL").UsedRange.Rows.Count 
'si ta première est en linge 10
'comptage = Sheets("Calcul de la VL").UsedRange.Rows.Count  +10
Sheets("-1- Graph VL").SeriesCollection(2).Values = Sheets("Calcul de la VL").Range("O10:O" & comptage).Value
End Sub

[Kutoh]

Ca me met le même message d'erreur.
En fait je ne comprend pas votre code.
surtout cette ligne

Code :

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

Sheets("-1- Graph VL").SeriesCollection(2).Values = Sheets("Calcul de la VL").Range("O10:O" & comptage).Value

[Kutoh]

La solution de cette question était juste ceci

Code :

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

ActiveChart.SeriesCollection(2).Values = TabDonnées

l'erreur se trouvait dans l'attribution de mon tableau de valeurs à mon graphique
j'ai écris ceci :

Code :

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

=TabDonnées(1).contenu

au lieu de mettre juste

Code :

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

= TabDonnées

Merci

[Henri-gp]

Bonjour,

Je viens mettre mon grain de sel dans vos échanges !
Que veut dire

=TabDonnées(1).contenu

Est-ce que ç’a veut dire que l’on peut passer que le premier index d’un tableau ?
je n’avais jamais vu cette commande

Merci de votre réponse
Henri

[Kutoh]

Si tu regarde mon code, tu veras que j'ai fait une déclaration de type au tout début :

Code :

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

1
2
3
Type Données
 contenu As Long
End Type

et je déclare mon tableau de type sur cette ligne de code

Code :

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

Dim TabDonnées() As Données

donc TableauDonnées(1).contenu c'est le premier élément de mon tableau de type