Modifier source d'un graphique

Bonsoir à tous et toutes.
Quelqu'un peut t'il m'éclairer avec mon petit problème. J'aimerais pouvoir à
l'aide d'un bouton modifier la source des données d'un graphique. .c.a.d.
après l'ajout de données dans la feuille pouvoir les ajouter aux graphiques.
La ligne suivante fonctionne bien.
ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Sheets("Feuil1").Range("E1:G6")
mais je voudrais pouvoir utiliser la fonction range( cells(1,1),cells(ma
variable,6) par exemple mais ça échoue seul la forme range("E1:G6")
fonctionne.

Bonjour Papou,

Chez moi, XL2000, ce qui suit fonctionne comme escompté
Dim malig, macol
malig = 5
macol = 7
ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Sheets("Feuil1").Range(Cells(1, 5), Cells(malig, macol))

--
François L

Merci François pour la suggestion, malheureusement avec Office 97 ça ne
fonctionne pas. Une autre suggestion peut être ????

Encore merci

Bonsoir à tous et toutes.
Quelqu'un peut t'il m'éclairer avec mon petit problème. J'aimerais pouvoir à
l'aide d'un bouton modifier la source des données d'un graphique. .c.a.d.
après l'ajout de données dans la feuille pouvoir les ajouter aux graphiques.
La ligne suivante fonctionne bien.
ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Sheets("Feuil1").Range("E1:G6")
mais je voudrais pouvoir utiliser la fonction range( cells(1,1),cells(ma
variable,6) par exemple mais ça échoue seul la forme range("E1:G6")
fonctionne.

Merci pour votr aide.

Bonjour papou,

Je vais peut-être dire une c...nnerie, mais en concaténant l'adresse de
ta plage :
Sub test()
mavariable = 1
Coin1 = Cells(1, 1).Address
Coin2 = Cells(mavariable, 6).Address
Orig = Coin1 & ":" & Coin2
ChartObjects("Graphique 1").Chart.SetSourceData
Source:=Sheets("Feuil1").Range(Orig)
End Sub

Ca passe sous Excel2002...mais pour 97 ????
Remarque, notre ami Bilou traînait sur le forum ce matin, demande-lui un
coup de pouce pour acheter une version plus récente :-)))))))))

@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------

Merci François pour la suggestion, malheureusement avec Office 97 ça ne
fonctionne pas. Une autre suggestion peut être ????

Encore merci

Bonsoir à tous et toutes.
Quelqu'un peut t'il m'éclairer avec mon petit problème. J'aimerais pouvoir à
l'aide d'un bouton modifier la source des données d'un graphique. .c.a.d.
après l'ajout de données dans la feuille pouvoir les ajouter aux graphiques.
La ligne suivante fonctionne bien.
ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Sheets("Feuil1").Range("E1:G6")
mais je voudrais pouvoir utiliser la fonction range( cells(1,1),cells(ma
variable,6) par exemple mais ça échoue seul la forme range("E1:G6")
fonctionne.

Merci pour votr aide.

Merci François pour la suggestion, malheureusement avec Office 97 ça ne
fonctionne pas. Une autre suggestion peut être ????


Re,

En nommant les plages ? tu peux rendre ça dynamique avec "Décaler" et ça
donne en VBA
ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Sheets("Feuil1").Range("Zone1")

--
François L

Un gros merci Thierryp ça fonctionne.

Bonjour papou,

Je vais peut-être dire une c...nnerie, mais en concaténant l'adresse de
ta plage :
Sub test()
mavariable = 1
Coin1 = Cells(1, 1).Address
Coin2 = Cells(mavariable, 6).Address
Orig = Coin1 & ":" & Coin2
ChartObjects("Graphique 1").Chart.SetSourceData
Source:=Sheets("Feuil1").Range(Orig)
End Sub

Ca passe sous Excel2002...mais pour 97 ????
Remarque, notre ami Bilou traînait sur le forum ce matin, demande-lui un
coup de pouce pour acheter une version plus récente :-)))))))))

@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------

Merci François pour la suggestion, malheureusement avec Office 97 ça ne
fonctionne pas. Une autre suggestion peut être ????

Encore merci

Bonsoir à tous et toutes.
Quelqu'un peut t'il m'éclairer avec mon petit problème. J'aimerais pouvoir à
l'aide d'un bouton modifier la source des données d'un graphique. .c.a.d.
après l'ajout de données dans la feuille pouvoir les ajouter aux graphiques.
La ligne suivante fonctionne bien.
ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Sheets("Feuil1").Range("E1:G6")
mais je voudrais pouvoir utiliser la fonction range( cells(1,1),cells(ma
variable,6) par exemple mais ça échoue seul la forme range("E1:G6")
fonctionne.

Merci pour votr aide.

Merci François pour la suggestion, malheureusement avec Office 97 ça ne
fonctionne pas. Une autre suggestion peut être ????

Bonjour,

Bizarre, je viens de tester avec XL97 (sous NT4) et ça fonctionne.
Problème de micro-climat ?

--
François L