Etiquettage d'un nuage de point en VBA Résolu/Fermé

Question

Bonjour, 

J'essaye d'affecter une étiquette à chaque point de mon nuage. Ces étiquettes viennent d'une autre colonne, la colonne AM, qui est donc la 39ème colonne. 

Pour cela, j'enregistre une macro, et le fait manuellement avec un point du graphe. J'obtiens la macro suivante

Sub etiquettage()

' Touche de raccourci du clavier: Ctrl+e '

    ActiveSheet.ChartObjects("ACP").Activate
    ActiveChart.FullSeriesCollection(1).Select
    ActiveChart.FullSeriesCollection(1).Points(17).ApplyDataLabels
    ActiveChart.FullSeriesCollection(1).Points(17).DataLabel.Select
    Selection.Formula = "=ACP!R17C39"

End Sub


C'est à dire que j'ai pris le 17ème point du nuage, et que son étiquette provient de la cellule R17C39 (row 17, column 39)

Le problème c'est que quand j'essaye d'automatiser cette opération pour l'ensemble de mes points, je mets cette procédure dans une boucle:

For i = 1 to 35

    ActiveSheet.ChartObjects("ACP").Activate
    ActiveChart.FullSeriesCollection(1).Select
    ActiveChart.FullSeriesCollection(1).Points(i).ApplyDataLabels
    ActiveChart.FullSeriesCollection(1).Points(i).DataLabel.Select
    Selection.Formula = "=ACP!RiC39"

Next
End Sub

Et là.. c'est le drame: impossible de faire tourner la macro: Elle beug sur la ligne :
 Selection.Formula = "=ACP!RiC39", et vu que la seule modification faite ici et le 17 que j'ai changé en i. Je dois trouver la bonne manière d'écrire cette ligne afin que VBA comprenne que la source de l'étiquette est en ligne i et colonne 39... 

Vous avez une idée ? 

Merci d'avance :)

Configuration:  Office 365 / Windows 7 / Firefox 36.0

via55 · Answer

Bonsoir 

Il faut recomposer par concatenation, essaie :
Selection.Formula = "=ACP!R" & i & "C39" 

Cdlmnt
Via

Boisgontierjacques · Answer

Bonsoir,


Exemple

http://boisgontierjacques.free.fr/fichiers/graphe/GrapheNuagesEtiquettes.xls

Sub Etiq()
  ActiveSheet.ChartObjects(1).Activate
  On Error Resume Next
  ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel
  On Error GoTo 0
  For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
    ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
    Selection.Interior.Color = ActiveSheet.Cells(i + 1, 1).Interior.Color
    Selection.Font.Size = 7
    Selection.Text = ActiveSheet.Cells(i + 1, 1)
    ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 4
    ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColor = ActiveSheet.Cells(i + 1, 1).Interior.Color
  Next i
End Sub


Jacques Boisgontier

Etiquettage d'un nuage de point en VBA

2 réponses

Discussions similaires