Créer et nommer grap selon cellule

[Ken Hutchinson]

Bonjour Le forum,

Dans une macro je créé un graph que je voudrais nommer "Evolution des ventes (texte de AC6) à (texte de AC10)" mais je ne sais pas comment le dire...

code :

Range("AC5:AI10").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("ENG02 ").Range("AC5:AI10"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="ENG02 "
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Evolution des ventes"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

 

[CB60]

Re : Créer et nommer grap selon cellule

bonjour
tu devrais mettre ton fichier sur le post avec seulement ce que l'on doit avoir comme info pour réalisé ce que tu souhaite, mais il me semble que tu devras concatener toutes les cellules dans une seule si tu souhaite reprendre une cellule pour le nom de ton graph

 

[Pierrot93]

Re : Créer et nommer grap selon cellule

Bonjour Ken, Bruno

Si j'ai bien compris, essaye peut être comme ci dessous :

Range("AC5:AI10").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("ENG02 ").Range("AC5:AI10"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="ENG02 "
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Evolution des ventes " & Range("AC6").Value & " à " Range("AC10").Value
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

bonne soirée
@+

 

[Ken Hutchinson]

Re : Créer et nommer grap selon cellule

Bonjour à tous,

Bon cette solution ne fonctionne pas : "Erreur de compilation"

Il serait peut être plus simple de créer ce nom dans une cellule et de nommer le graph comme cette cellule non ?

 

[Pierrot93]

Re : Créer et nommer grap selon cellule

Bonjour Ken

il manquait un "&" :

.ChartTitle.Characters.Text = _
"Evolution des ventes " & Range("AC6").Value & " à " [COLOR="Red"][B]&[/B][/COLOR] Range("AC10").Value

@+

 

[CB60]

Re : Créer et nommer grap selon cellule

Bonjour
Je continue de penser qu'il faut concaterner l'ensemble des cellules sur une seule, car je n'ai pas essayé mais la formule que tu propose me laisse penser que nous aurons d'affiché sur le graph les valeurs de la cellule " c6 et ac10" mais pas "ac7, ac8,ac9", je me trompe peut être?

 

[Pierrot93]

Re : Créer et nommer grap selon cellule

Bonjour Bruno

dans mon esprit il s'agit de donner un TITRE a un graph, à partir du contenu de 2 cellules, en l'occurence C6 ET C10, qui d'après mes déductions doivent contenir 2 dates, mais bon je me trompe sans doute, pas plus de détails que toi.

bon après middi
@+