Microsoft 365 VBA - Dynamiser plages de données graphiques

[patricko-13]

Bonjour à vous,

J'essaie de dynamiser les plages de données de graphiques que je crée au fur et à mesure par ce code en exemple:

With Sheets("Feuil4").Range("X1:X50")
Set x = .Find("eer", LookIn:=xlValues)


Sheets("Feuil4").ChartObjects(cat).Activate
        ActiveChart.FullSeriesCollection(1).XValues = Cells(x.Row, 24)
        ActiveChart.FullSeriesCollection(1).Values = Cells(x.Row, 25)
        ActiveChart.FullSeriesCollection(2).Values = Cells(x.Row, 27)

Cela marche bien, cependant je bute sur un autre type de graphique, en camembert, qui contient deux données.

Lorsque j'enregistre une macro le code généré me donne:

ActiveChart.FullSeriesCollection(1).Values = "=Feuil4!$Y$5,Feuil4!$AA$5"

J'essaie de le dynamiser par quelque chose du style:

ActiveChart.FullSeriesCollection(1).Values = Cells(x.Row, 25) & Cells(x.Row, 27)

En tentant de remplacer le caractère & par d'autres mais sans succès.

Auriez vous une piste pour y arriver ?

Je vous remercie par avance et vous souhaite une bonne journée !

 

[sylvanu]

Bonjour Patricko,
Sans fichier test, difficile d'être affirmatif.
Alors un peu au pif deux suggestions :

ActiveChart.FullSeriesCollection(1).Values = Sheets("Feuil4").Range(Cells(x.Row, 25), Cells(x.Row, 27))

Ou par nommage de plage :

Sheets("Feuil4").Range(Cells(x.Row, 25), Cells(x.Row, 27)).Name = "PlageGraphique"
ActiveChart.FullSeriesCollection(1).Values = [PlageGraphique]

 

[job75]

Bonjour,

Avec un fichier on pourrait tester mais bon essayez :

ActiveChart.FullSeriesCollection(1).Values = "=" & Union(Cells(x.Row, 25), Cells(x.Row, 27)).Address(External:=True)

A+

 

[patricko-13]

Merci beaucoup grâce à vos propositions cela fonctionne!

 

[job75]

J'ai testé : ma solution du post #3 avec Address ne fonctionne pas.

Par contre ceci fonctionne :

ActiveChart.FullSeriesCollection(1).Values = Union(Cells(x.Row, 25), Cells(x.Row, 27))