Discussion :

[philo6]

Bonsoir
Voici une macro qui gére plusieures séries.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AfficherEtiqu()
Dim s As Series, i As Integer
Dim choix As Range
With ActiveSheet.ChartObjects(1).Chart
  .ApplyDataLabels Type:=xlDataLabelsShowValue
  For Each s In .SeriesCollection
     Set choix = Application.InputBox(prompt:=" Sélectionner la premiere cellule à afficher sur le graph ", Type:=8)
    For i = 1 To s.Points.Count
      s.Points(i).DataLabel.Text = [choix].Offset(i - 1)
    Next
  Next
End With
End Sub

il permet de selectionner le premier graphique d'une feuille
de boucler sur les séries et ensuite sur les points.
Il faut selectionner la premiere étiquette et la boucle fais le reste pour la premiere série, ensuite ça passe à la seconde série et de nouveau selectionner la premiere étiquette.

[dralym]

Merci beaucoup pour le code, et aussi pour l'explication (comme ca je comprend ce que je fais, c'est toujours mieux...)