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