Problème étiquettes du graphe

[roisabri]

Bonjour,

Je cherche une propriété pour supprimer des étiquettes d'un graphe si elle valent 0

If ObjChart.SeriesCollection(1).Points(1).value = 0 Then
ObjChart.SeriesCollection(1).Points(1).DataLabel.Delete
End If

Je ne sais trop c'est quoi la manière pour lui dire dès que la valeur vaut 0 ne l'affiche pas dans l'étiquettes

Si joint un exmple que je veux l'obtenir à la fin.

Merci pour votre aide

 

[phlaurent55]

Re : Problème étiquettes du graphe

Bonjour roisabri,

il suffit de modifier le format d'affichage des étiquettes

à+
Philippe

 

[Gardien de phare]

Re : Problème étiquettes du graphe

Bonsoir (jour ?),

Si tu veux le faire en Vba

' Un graphique doit etre activé
Option Base 1
Dim tablo()
Dim i As Integer, j As Integer
Sub test()
With ActiveChart
    For i = 1 To .SeriesCollection.Count
        tablo() = .SeriesCollection(i).Values
        For j = 1 To UBound(tablo, 1)
        If tablo(j) = 0 Then
        .SeriesCollection(i).Points(j).HasDataLabel = False
        End If
        Next
    Next i
End With
End Sub

HTH

 

[roisabri]

Re : Problème étiquettes du graphe

Merci beaucoup Gardien de Phare, c'est ça que je cherche ^^