Source de données d'un graphique variable

Bonjour à tous,

Je souhaite créer un brin de code qui permette de modifier la source de données d'un graphique.
Grâce à l'enregistreur de macro j'ai récupéré ce code:

Code:

---

1 2	ActiveChart.SetSourceData Source:=Sheets("Feuil3").Range("B3:G3,B5:G8"), _ PlotBy:=xlRows

---

Cependant la dernière colonne change (ici 'G' qui deviens H puis I,etc...) et je ne parviens pas à mettre ce paramètre en variable.

Quelqu'un aurait-il une solution?

Merci.

N'y a-t-il que la dernière colonne qui change ? Pas la ligne ?


Vas voir du côté ".END()"

Remplace le "G8" qui deviendra la dernière colonne par le code suivant :

Code:

---

Range("B5").End(xlToRight)

---

Et du même coup adapate de la même manière pour le "G3".

ESVBA

Le hic, c'est que lorsque je change la plage de données, la dernière colonne n'est pas encore renseignée donc j'ai l'impression que le xlToRight ne fonctionne pas :?

Essaie avec la méthode Union et la propriété Cells

Code:

---

1 2 3 4

With Sheets("Feuil3") ActiveChart.SetSourceData Source:=Application.Union(.Range(.Cells(3, 2), .Cells(3, 7)), .Range(.Cells(5, 2), .Cells(8, 7))), _ PlotBy:=xlRows End With

---

Si tu veux remplacer G par H ce code devient

Code:

---

1 2 3 4

With Sheets("Feuil3") ActiveChart.SetSourceData Source:=Application.Union(.Range(.Cells(3, 2), .Cells(3, 8)), .Range(.Cells(5, 2), .Cells(8, 8))), _ PlotBy:=xlRows End With

---