Extraire le titre d'un graphique d'une cellule ?

[Baside]

Bonsoir le Forum

Ce code .ChartTitle.Characters.Text = 'Essai' met Essai comme titre du graphe. Comment faire pour que le titre soit le contenu d'une cellule de la feuille où est le graphique ?

Merci de votre aide, Hervé.

 

[CBernardT]

Bonsoir Baside,

Essayes ce code :

Dim Nom As String

Nom = Range('C1').Value

.ChartTitle.Text = Nom

Cordialement

CBernardT

 

[Baside]

Re:Extraire le titre d'un graphique d'une cellule

Bonjour CBernard T, le Forum

Hélas, ne fonctionne pas, mais j''espère que c'est réalisable.

Merci, Hervé.

 

[CBernardT]

Re:Extraire le titre d'un graphique d'une cellule

Re Baside,

Comment ça marche pas ???

Colles un bout plus important de ton code.

A+

CBernardT

 

[Baside]

Re:Extraire le titre d'un graphique d'une cellule

Hello.

Le clic sur le graphique déclenche:

Sub Courbe()
' Ote la protection de la feuille
ActiveSheet.Unprotect
' Active le graph
ActiveSheet.ChartObjects('Graphique 1').Activate
' Met le titre du graph.
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Essai'
End With
' Cache la cellule active derrière le graph.
Range('C10').Select
' Protège la feuille.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merci.

 

[CBernardT]

Re:Extraire le titre d'un graphique d'une cellule

Re Baside,

Ca doit marcher maintenant ?

Sub Courbe()
Dim Nom As String
' Ote la protection de la feuille
ActiveSheet.Unprotect
Nom = Range('C1').Value
' Met le titre du graph.
ActiveSheet.ChartObjects('Graphique 1').Activate
ActiveChart.ChartArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Nom
End With
' Cache la cellule active derrière le graph.
Range('C10').Select
' Protège la feuille.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Bonne nuit

CBernardT

 

[Baside]

Re:Extraire le titre d'un graphique d'une cellule

Bonjour CBernardT, Le Forum

Grand merci pour ton aide

Bonne journée, Hervé.