Discussion :

[tarnx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ESVBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B5").End(xlToRight)

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

ESVBA

[tarnx]

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

[Yoyo57]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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