Ajouter un point à un graphique en VBA

[ludo27]

Bonjour,

Le code suivant met à jour un graphique :

Function refreshGraph(Graph As ChartObject, stNom As String, _
    rgX As Range, rgY As Range, rgXPtSup As Range, rgYptSup As Range) As Boolean

Dim l As Long
Dim sSerie As Series

On Error GoTo error_refreshGraph

    'Mise à jour de l'alimentation du graphique avec des données
    Set sSerie = Graph.Chart.SeriesCollection(1)
        
    sSerie.XValues = rgX 
    sSerie.Values = rgY 
    
    refreshGraph = True
    Exit Function
    
error_refreshGraph:
    refreshGraph = False
End Function

A la place de

 sSerie.XValues = rgX 
 sSerie.Values = rgY

Je souhaiterais mettre quelquechose du style

sSerie.XValues = Range(rgX, rgXPtSup)
sSerie.Values = Range(rgY, rgYptSup)

Pour tenir compte du point supplémentaire de coordonnées rgXPtSup, rgYptSup.

Mais cette syntaxe ne marche pas; si quelqu'un a une idée ...

Merci.

 

[pierrejean]

Re : Ajouter un point à un graphique en VBA

bonjour ludo27

en esperant que rgXPtsup soit un objet Range

A tester

sSerie.XValues  = Application.[B]Union[/B](rgX, rgXPtSup)

 

[ludo27]

Re : Ajouter un point à un graphique en VBA

bonjour ludo27

en esperant que rgXPtsup soit un objet Range

A tester

sSerie.XValues  = Application.[B]Union[/B](rgX, rgXPtSup)

Bonjour PierreJean,
Ca n'a pas l'air de marcher :

Impossible de définir la propriété XValues de la classe Series.

Oui, rgX et rgXPtSup sont bien des ranges.

 

[pierrejean]

Re : Ajouter un point à un graphique en VBA

Re

peut-etre alors

set newrgx=Application.[B]Union[/B](rgX, rgXPtSup)
sSerie.XValues  =newrgx

sinon un fichier exemple sera necessaire

 

[ludo27]

Re : Ajouter un point à un graphique en VBA

Bonjour PierreJean,
j'ai toujours le même message d'erreur.

Même zippé je n'arrive pas à descendre en dessous de 63 Ko pour joindre mon fichier XLS.