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

CBernardT

XLDnaute Barbatruc

• 6 Avril 2005

• #2

Bonsoir Baside,

Essayes ce code :

Dim Nom As String

Nom = Range('C1').Value

.ChartTitle.Text = Nom

Cordialement

CBernardT

 

Vote positif 0 Vote négatif

B

Baside

Guest

• 6 Avril 2005

• #3

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é.

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 6 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

B

Baside

Guest

• 6 Avril 2005

• #5

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.

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 6 Avril 2005

• #6

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

 

Vote positif 0 Vote négatif

B

Baside

Guest

• 6 Avril 2005

• #7

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

Bonjour CBernardT, Le Forum

Grand merci pour ton aide

Bonne journée, Hervé.

 

Vote positif 0 Vote négatif