Mise à jour des données d'un graphique avec VBA

[jlripoll]

Bonjour,

Je cherche à faciliter la mise à jour des données d'un graphique avec VBA.
Si ma plage de donnée se suit aucun problème ça fonctionne, par contre si ma plage de donnée n'est pas continue vba me renvoie une erreur d'exécution.

Connaissez vous une astuce ?

Merci d'avance pour l'aide que vous pourrez m'apporter,



voici ma sub :

Private Sub CommandButton2_Click()
ligne = 10
NomAgent = Sheets("Performance des agents").Cells(28, 31).Value
chercheLigneAgent:
TestNom = Sheets("Performance des agents").Cells(ligne, 4).Value
If TestNom <> NomAgent Then ligne = ligne + 1: GoTo chercheLigneAgent

LigneLet = Right(Str$(ligne), Len(ligne))
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Name = "='Performance des agents'!$D$" + LigneLet
ActiveChart.SeriesCollection(1).Values = _
"='Performance des agents'!$G$" + LigneLet + ":$J$" + LigneLet + Chr$(59) + "'Performance des agents'!$R$" + LigneLet + ":$AA$" + LigneLet


End Sub

 

[gilbert_RGI]

Re : Mise à jour des données d'un graphique avec VBA

Bonjour

faire un test pour voir si TestNom est vide
si oui ne pas continuer mais incrémenter d'une ligne

 

[jlripoll]

Re : Mise à jour des données d'un graphique avec VBA

bonsoir,

Merci, mais non, testNom n'est pas vide, en fait je crois que c'est le ";" donc CHR$(59) qui pose problème mais je vois pas comment faire autrement ...