Var dans un titre de graphique

[Fab]

Bonjour,
Je souhaiterais si possible reprendre le texte inscrit dans un cellule pour l'intégrer dans une partie du titre d'un graphique. Cela est-il possible ?

Ex. : B1 : "VP291"
Titre du graphique : "Evolution du modèle"; xxx; "lors du dernier trimestre"

Merci d'avance et bonne journée.

 

[albert]

bonjour Fab,
voici un code qui pourrait te convenir, à travailler à ta guise :
1/ tu inscrits un titre constant

Worksheets("Feuil1").ChartObjects(1).Chart.ChartTitle.Text = "Evolution du modèle :"
2/ tu déplaces la légende qui prend le titre de la colonne :

ActiveSheet.ChartObjects(1).Activate
ActiveChart.Legend.Select
Selection.Left = 230
Selection.Top = 7

albert

 

[Fab]

OK, merci, je vais essayer

 

[Jean-Marie]

Bonjour

Autre solution mais elle nécessite de mettre le texte avant et après ta valeur dans la cellule. Mais cela supprime la macro.

Sélectionne la zone du titre du graphe, dans le champ de saisie des formules dans la barre d'outil formule, tu tapes = et tu cliques sur la cellule qui contient ton texte.

@+Jean-Marie

 

[Duriz]

Bonjour à tous !

Très cool Jean Marie... j'avais cherché mais.....

Pour " compléter " la solution de JM, on peut passer par la fonction " CONCATENER " :

Dans l'exemple de Fab:

Variable du titre du graph dans B1: VP291

Dans C1 on Tape la 1ere partie du titre : Evolution du modèle_

Dans D1 on Tape la 2èmepartie du titre : _lors du dernier trimestre.

[les" _ " matérialisent un espace]

Dans E1 on tape la formule magique =CONCATENER(C1;B1;D1)

[On a maintenant le titre lisible]

On reprend la manip expliquée par JM :

Sélectionne la zone du titre du graphe, dans le champ de saisie des formules dans la barre d'outil formule, tu tapes = et tu cliques sur la cellule E1.
Voilà A+

Duriz

 

[albert]

bonjour Fab, Jean-Marie, Duriz,
c'est vrai qu'on peut concaténer :
Worksheets("Feuil1").ChartObjects(1).Chart.ChartTitle.Text = "Evolution du modèle :" & Cells(1, 3) & ""

on cumule alors plusieurs informations


albert