Discussion :

[Charlesraheb]

Bonjour,

J’ai une feuille excel ou j’ai un graph qui se rafraichi en function de la saisie dans les cellules B1 et B2 grace a une procedure ByVal Target As Range.

Cette procedure cache les lignes du tableau source du graph qui ne correspond pas a la valeur saisie dans B1, B2 et ainsi le graph se rafraichi. Il s’agit d’un graph type scatter (voir exemple ci-joint) ou j’ai ajoute des labels avec le addin excel XY Chart Labels.

Mon probleme est que les labels ne se rafraichissent pas et reste figes. Exemple: si je saisie dans ma case pays: Espagne mon label est Carr qui est un nom francais Carrefour…

Comment je peux rafraichir les labels?

Merci,

[Charlesraheb]

Je pense qu'il faut coder l'attribution des labels. j'ai trouve ce code la mais je ne sais pas comment l'adapter a mon cas. sOURCE: http://support.microsoft.com/kb/914813

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
25
26
27
28
Sub AttachLabelsToPoints()
 
   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String
 
   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False
 
   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula
 
   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop
 
   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
         True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
   Next Counter
 
End Sub