Re : Supprimer les étiquettes 0 dans un histogramme
Re,
ceci fonctionne dans ton fichier :
Code:
Option Explicit
Sub test()
Dim s As Series, p As Point
For Each s In Feuil1.ChartObjects(1).Chart.SeriesCollection
For Each p In s.Points
If CDbl(p.DataLabel.Text) = 0 Then p.DataLabel.Delete
Next p
Next s
End Sub