Discussion :

[halaster08]

Bonjour,
Je galère avec un graphique casse-pieds et j'aurai besoin d'aide.
J'ai essayé sans VBA avec une formule décaler mais je n'ai pas réussi, j'essaye donc en VBA et a mon grand regret ce n'est pas mieux.
J'ai actuellement un graphique dont la source est

Code :

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

.ChartObjects("Graphique 7").SetSourceData Source:=Range("CZ5:DP7,CZ10:DP10")

Je souhaiterais changer les colonnes de cette source
J'ai essayé ceci

Code :

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

1
2
 Set plg = Union(.Range(.Cells(5, coldest - 24), .Cells(7, coldest)), .Range(.Cells(10, coldest - 24), .Cells(10, coldest)))
.ChartObjects("Graphique 7").SetSourceData Source:=plg

J'obtiens une erreur 438 propriété ou méthode pas supportée
Si je fais un plg.select j'ai bien la plage que je souhaitais, il n'y a pas d'erreur dans les variables.
je ne comprends pas pourquoi il n'en veux pas.

J'ai voulu essayé au format R1C1, la plage est Evo_pays_TC!R5C103:R7C120;Evo_pays_TC!R10C103:R10C120
Mais je ne sais pas comment comment lui rentré ça dans le setsourcedata, est-ce possible?

Si quelqu'un a une piste je suis prenneur.
Merci d'avance.

[Invité]

bonjour,

Code :

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

Source:= .name & "!" & plg.address

[halaster08]

Malheureusement ça ne marche pas non plus. (toujours la même erreur)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
Dim col As Long, coldest As Long, dl As Long, lig As Long
Dim plg As Range
 
    With Sheets("Evo_pays_TC")
        col = .Range("val_Evo_pays_TC1").Column
        lig = .Range("val_Evo_pays_TC1").Row
        coldest = .Cells(lig, col).End(xlToLeft).Offset(0, 1).Column
 
       Set plg = Union(.Range(.Cells(5, coldest-24), .Cells(7, coldest)), .Range(.Cells(10, coldest-24), .Cells(10, coldest)))
       'plg.Select
       .ChartObjects("Graphique 7").SetSourceData Source:=.Name & "!" & plg.Address, PlotBy:=xlColumns

[halaster08]

En fait j'ai réussi sans VBA avec décaler, mais j'aimerais quand même comprendre ce qui ne va pas avec mon code.