XL 2010 [graph] Spécifier des étiquettes différentes des données sujet

Bonjour
Sur l'exemple joint, je crée un graph en barres, basé sur deux séries de données.
Je donne les mêmes couleurs aux barres de chaque série, de manière à avoir des blocs.
Par exemple, pour l'abscisse B, 20 et -15, ce qui donne visuellement une barre d'une hauteur de 35.

Mon problème, est que je veux le résultat du dessous : pour le bloc B, je voudrais que l'étiquette affiche 35 (C3 + abs(C4)) et pas 20.

Pour mon fichier exemple, j'ai forcé/écrasé à la main l'étiquette concernée, mais y a-t-il un moyen de lier les étiquettes, non pas à la série de données, mais à d'autres valeurs ?


(au pire, je m'en sortirai avec une macro Selection_Change, qui forcera les étiquettes, mais c'est lourd)

Merci !

Fichiers attachés

• 
  
  etiquettes_barres1.xls‎
  (26,0 Ko)
  

XL 2007 Nommer un graphique / Supprimer un graphique spécifier sujet

Bonjour à toutes et tous,

Je génère à partir de données (plage non constante) un graphique.

Le code ci-dessous fonctionne très bien et effectue ce que je souhaite.

Par contre, il peut être nécessaire d'avoir à régénérer la feuille où se situe ce graphique (gf1) et d'autres non générés via VB. Dans ce cas il faudrait que je puisse supprimer spécifiquement le graphique gf1 qui sera actualisé avec les nouvelles données. Et là je sèche : je ne parviens pas à nommer mon objet chart dans mon code.

Je pense que c'est la solution pour pouvoir supprimer gf1 sans supprimer les autres graphes. En bonus, histoire d'être sur si vous avez le code pour bien supprimer le graphique gf1 nommé.

Merci d'avance pour votre assistance et avec du retard bonne année.

Sub graphiques()

Dim i As Integer
Dim graphclient As ChartObject
Dim tdb As Worksheet

Sheets(ongtdb).Select
i = 4
Range("Q4").Select
While ActiveCell.Value <> ""
i = i + 1
Range("Q" & i).Select
Wend

Set tdb = Sheets(ongtdb)
Set graphclient = tdb.ChartObjects.Add(0, 75, 180, 150)
With graphclient.Chart
.ChartType = xlPieExploded
.ClearToMatchStyle
.ChartStyle = 6
.ClearToMatchStyle
.ApplyLayout (4)
.Parent.RoundedCorners = True
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = tdb.Range("Q4", "Q" & i - 1)
.SeriesCollection(1).Values = tdb.Range("T4", "T" & i - 1)
.SeriesCollection(1).DataLabels.Font.Size = 6
.SeriesCollection(1).DataLabels.ShowValue = False
.SeriesCollection(1).DataLabels.ShowPercentage = True
End With

End Sub