Valeur série sans nom de la feuille-VBA
Salut tous
Je reviens avec une demande commencé hier dans le sujet Copier/coller du code VBA (Le sujet a été validé par moi , mais cette demande est resté sans réponse)
Ma demande est celle si:
Lorsque je créé un graphique en vba que j'insère des nouvelles séries, la valeur de celles si, s'écrit comme si:
ActiveChart.SeriesCollection(1).Name = "='Cogé Mureaux'!$H$3"
ActiveChart.SeriesCollection(1).Values = "='Cogé Mureaux'!$H$4:$H$15"
ActiveChart.SeriesCollection(1).XValues = "='Cogé Mureaux'!$G$4:$G$15"
soit: ="='nom de feuille'!plage de cellule"
Mon problème est que je ne veux pas le nom de feuille afin de copier cette macro dans n'importe qu'elle feuille et qu'elle puisse fonctionner
En cherchant sur internet j'ai trouvé:
ActiveChart.SeriesCollection(1).Name = Cells(3, 8 ).Value
Sa marche pour le nom de la série, mais quand j'essaye de l'adapter à .Values ou à .XValues
Soit sa bug, soit mon graphique n'affiche rien
Merci à vous
Ps voici mon fichier "partiel" certain onglet ont étés enlevés pour respecter la taille
Bonjour
n'ayant pas trouvé le code dans tes modules, je te propose cette syntaxe à tout hasard
vfl=activesheet.name' recupère le nom de la feuille active
ActiveChart.SeriesCollection(1).Name = "=''"&vfl&"'!"&$H$3"
ActiveChart.SeriesCollection(1).Values ="=''"&vfl&"'!""$H$4:$H$15"
ActiveChart.SeriesCollection(1).XValues = "='"&vfl&"'!"&$G$4:$G$15"
vérifier le nb de guillemets et la syntaxe du nom de la feuille ( ') et (!)
Cordialement
FINDRH
Le code de mes graphiques sont sur la feuille pas dans les modules
Je test ta formule et redis sa
La formule vient de mettre donnée sur un autre sujet:
ceci permet de récupérer le nom de la feuille
=STXT(CELLULE("nomfichier";$A$1);TROUVE("]";CELLULE("nomfichier";$A$1))+1;100)
Cela permet de le mettre ou je veux
" & ActiveSheet.Range("H22") & "
donc d'écrire ceci:
ActiveChart.SeriesCollection(1).Values = "='" & ActiveSheet.Range("H22") & "'!$H$4:$H$15"
A la place de cela:
ActiveChart.SeriesCollection(1).Values = "='Cogé Mureaux'!$H$4:$H$15"
Cela me permet de copier mon code VBA et qu'il soit opérationnel sur la nouvelle feuille
Merci à gmb