Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Graphique référence toujours sur la feuille active

  • Initiateur de la discussion Initiateur de la discussion boulou85
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

boulou85

Guest
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
 
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 !
 
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
 
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
 
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.
 
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...
 

Pièces jointes

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 !
 
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 ...
 
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)...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
253
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…