graphique à bulle avec libellé

excalibur

XLDnaute Impliqué

• 30 Octobre 2007

• #2

Re : graphique à bulle avec libellé

bonjour Berg1664 le forum un ex a adapter pas mal d infos
salutations

 

Pièces jointes

• graphiquebulle.zip

  34.5 KB · Affichages: 316

Vote positif 0 Vote négatif

Berg1664

XLDnaute Occasionnel

• 30 Octobre 2007

• #3

Re : graphique à bulle avec libellé

Merci Excalibur
Mais dans cet exemple il n' y a que deux variables en plus du libellé, j'en voudrai une troisieme + le libellé dans la bulle, c'est la que je bloque
Bonne soirée
Berg1664

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 30 Octobre 2007

• #4

Re : graphique à bulle avec libellé

Bonsoir
Avecl'exemple d'Excalibur
regarde si cela te convient

 

Pièces jointes

• graphiquebulle1.zip

  35 KB · Affichages: 377

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Octobre 2007

• #5

Re : graphique à bulle avec libellé

Bonsoir,


Voir PJ

Code:

Sub Etiquettes()
   ActiveSheet.ChartObjects(1).Activate
   ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel
   ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 7
   ActiveChart.SeriesCollection(1).DataLabels.Border.LineStyle = xlNone
   For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
     ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = _
     ActiveSheet.Cells(i + 1, 1) & ":" & ActiveSheet.Cells(i + 1, 4) & " kE"
     ActiveChart.SeriesCollection(1).Points(i).DataLabel.Interior.ColorIndex = 36
   Next i
End Sub

JB

 

Pièces jointes

• GrapheBulleEtiquettes.xls

  46.5 KB · Affichages: 607

Vote positif 0 Vote négatif

Berg1664

XLDnaute Occasionnel

• 4 Novembre 2007

• #6

Re : graphique à bulle avec libellé

Merci à vous
C'est top

 

Vote positif 0 Vote négatif