Graphique référence toujours sur la feuille active

[boulou85]

Bonjour, je n'arrive pas à maintenir le range d'un graphique dans une variable d'une macro. pour la réutiliser ensuite (la même plage) !

et ainsi ne changer que le nom de la feuille active comme suit :
la formule ne fonctionne pas !

Dim ref As String

ActiveChart.SetSourceData Source:=Sheets().range(ref)

ActiveChart.SetSourceData Source:=Sheets(ActiveSheet.Name).range(ref)

auriez-vous une idée pour m'aider ?

ou peut être existe-t-il une autre solution pour faire qu'un graphique ne change que de feuille et non pas de plage de référence ! !

Merci d'avance

 

[Catrice]

Re : Graphique référence toujours sur la feuille active

Bonjour,

Ci-joint un fichier avec une solution sans macro.

 

[Catrice]

Re : Graphique référence toujours sur la feuille active

Re,

Dans le fichier joint une solution avec macro.

 

[boulou85]

Re : Graphique référence toujours sur la feuille active

Merci bien Catrice ! ça m'aide déja beaucoup !

est-il possible pour chaque graphique de retenir son Range et ensuite changer sa page de référence ?

Avec Chart et Source, peut on faire du range une constante ?

pour la remettre ensuite dans

ActiveChart.SetSourceData Source:=Sheets(ActiveSheet.Name).range(ref)

Parceque j'ai en fait énormément de pages avec graphiques et je voudrais que les graphs soient visibles sur les feuilles ! en aillant le même range qu'au départ...

désolé d'être si têtu !

 

[Catrice]

Re : Graphique référence toujours sur la feuille active

Bonsoir,

Oui ca semble tout à fait possible comme tu l'as ecrit.
J'ai testé le code suivant qui fonctionne tres bien :

Sub Test()
Ref = "A1:A6"
ActiveSheet.ChartObjects("Graphique 4").Chart.SetSourceData Source:=Sheets(Sheets("Feuil1").Range("I1").Value).Range(Ref)
End Sub

 

[boulou85]

Re : Graphique référence toujours sur la feuille active

Bonjour Catrice,

Yes, ça marche comme ça !

Mais aurais-tu une idée pour ne pas avoir à écrire : "A1:A6"

mais retenir juste le range de référence du graph ?
ça je n'y arrive pas ! je ne trouve pas la ligne à écrire.

En gros je voudrait dire :

Ref = activeChart.range mais ça n'existe pas comme ça !

Aurais-tu une idée ?

Merci

 

[boulou85]

Re : Graphique référence toujours sur la feuille active

ou Cette formule par exemple serait intéressante

=RIGHT(CELL("filename");LEN(CELL("filename"))-SEARCH("]";CELL("filename");ROW(1:255)))

Elle donne le nom de la feuille !

Mais on ne peut apparemment pas la reprendre dans une référence de graphique.

 

[Catrice]

Re : Graphique référence toujours sur la feuille active

Bonjour,

Oui on peut utiliser une formule de ce type...

Je propose une solution macro (voir fichier joint).
J'avais travaillé sur une sujet approchant il y a qqs temps je m'en suis inspiré.

La macro balaye tous les graphiques, récupere les references de cellules de chaque serie et change le nom de la feuille à laquelle elle refere par le nom choisi.

Dis moi ce que tu en penses...

 

[boulou85]

Re : Graphique référence toujours sur la feuille active

Merci beaucoup !

C'est exactement ce que je voulais faire !

Merci pour ton aide ! j'n'y serais jamais arrivé !

J'ai juste remplacé Newsheet pas ActiveSheet.name dans la macro et ça tourne parfaitement !

Cheers Boy !

 

[CB60]

Re : Graphique référence toujours sur la feuille active

Bonjour à tous
un autre exemple sans macro, chaque liste est évolutive, zone de liste pour le choix des feuilles en c1

 

[Catrice]

Re : Graphique référence toujours sur la feuille active

Bonjour CB60,

C'est la premiere solution que j'avais proposée à Boulou mais c'est justement ce qu'il ne veut pas faire. 🙁

Il veut que le graphe change de feuille mais pas de reference.
Donc, données ou pas données, si un graphe faire refererence à Feuil1!A1:A10, il devra respectivement faire reference à Feuil2!A1:A10, Feuil3!A1:A10 etc ...
De plus, la plage A1:A10 n'est pas "fixe", elle est contextuelle à chaque graphique ...

 

[boulou85]

Re : Graphique référence toujours sur la feuille active

yep, c'est absolument ça ! !

Mais merci quand même CB60 !

au fait c'est bizarre j'arrive pas à faire tourner ton fichier sur Office 2007 ! !
c'est p't'être mon ordi remarque ! !
parce que ça marchait très bien sur 2000 (ou 2003)...

 

[Catrice]

Re : Graphique référence toujours sur la feuille active

Malheureusement, je n'ai pas Excel 2007 pour tester ....