Discussion :

[babybell]

Amis du forum bonsoir

J'ai un graphique en barre simple dans lequel je voudrais rajouter un commentaire et le contenu d'une cellule qui est dans une variable. J'aimerai placer ces renseignements au-dessus de chaque barre, tout en laissant la valeur inscrite dans la barre et sans changer la légende.
Ce problème est-il réalisable ?

Merci de votre aide

[Qwazerty]

Salut
Pourquoi recréer ce qui existe déjà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Essai()
'a adapter pour pointer ton graphique
With Feuil1.ChartObjects(1).Chart.SeriesCollection(1)
    'On affiche les etiquette de données (on les crée même)
    .ApplyDataLabels
    'On modifie le texte qui est placé au dessus de la premiere barre
    .DataLabels(1).Caption = "Essai" ' a toi de faire une boucle sur tous les element de la collection DataLabels
 
End With
End Sub

++
Qwaz

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
Dim Ch As ChartObject
Dim Lbl As Shape
Dim Pt As Point
Dim i As Integer
 
Set Ch = Sheets("Feuil2").ChartObjects("Graphique 1")
'supprime les labels éventuels
For Each Lbl In Ch.Chart.Shapes
   If Lbl.Type = 17 Then Lbl.Delete
Next Lbl
 
With Ch.Chart.SeriesCollection(1)
   .ApplyDataLabels
   For Each Pt In .Points
      Set Lbl = Ch.Chart.Shapes.AddLabel(msoTextOrientationHorizontal, Pt.DataLabel.Left, Pt.DataLabel.Top - 10, 40, 20)
      Lbl.TextFrame.Characters.Text = Sheets("Feuil2").Range("C" & i + 2).Value
      i = i + 1
      Set Lbl = Nothing
   Next Pt
End With
Sheets("Feuil2").Range("A1").Select
Set Ch = Nothing
End Sub

[babybell]

Merci à toi mercatog, mais entretemps j'ai trouvé dans
le forum un code de SilkyRoad qui correspondait à ce que je cherchais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 130, 20, 70, 40).Select
Selection.Characters.Text = total_A

Merci encore à toi