Bonjour,

je souhaiterais personnaliser le texte des info-bulles s'affichant lorsque la souris passe sur les éléments d'un graphique excel (en l'occurrence un nuage de points).

Je viens d'écrire une macro pour personnaliser les étiquettes pour chaque point (voir ci-dessous), mais le résultat est difficilement lisible. D'où le souhait de faire quelque chose de similaire mais avec les info-bulles. Or je n'arrive pas à trouver la propriété qui convienne. Y a-t-il une manière d'adapter ce code pour faire cela? Existe-t-il une autre solution?

D'avance merci

EL

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
Sub étiquettes()
   Dim Counter As Integer, ChartName As String, xVals As String
   Application.ScreenUpdating = False
   With Worksheets("Taux cit-Prod").ChartObjects(1).Chart
       xVals = .SeriesCollection(1).Formula
    End With
  gauche = InStr(xVals, "!")
   xVals = Right(xVals, Len(xVals) - gauche)
   droite = InStr(xVals, ",")
   xVals = Left(xVals, droite - 1)
   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
    With Worksheets("Taux cit-Prod").ChartObjects(1).Chart
    .SeriesCollection(1).Points(Counter).HasDataLabel = False
    .SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
     End With
   Next Counter
Next i
End Sub