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!!