Enlever les étiquettes de données nulles sur tous les graph

Bonjour,

J'essaye d'enlever sur mon fichier toutes les étiquettes de données qui sont nulles (le format des étiquettes est en pourcentage),sachant que ce même fichier dispose de plusieurs graphiques sur chaque feuille. Voici mon code :

Sub formatetiquettes()
Dim cht As ChartObject
Dim ws As Worksheet

For Each ws In Worksheets
ws.Activate
For Each cht In ws.ChartObjects
cht.Activate
On Error Resume Next
With ActiveChart

    For k = 1 To .SeriesCollection.Count
        For J = 1 To .SeriesCollection(k).Points.Count
           If .SeriesCollection(k).Points(J).Text = 0 Then
           .SeriesCollection(k).Points(J).HasDataLabel = False
           End If
        Next J
    Next k
End With
Next cht
Next ws
End Sub

Or le problème c'est qu'en regardant en mode arrêt, le code rentre à chaque fois dans la condition, y compris pour des données dont la valeur est 83% par exemple, ce qui fait qu'il supprime toutes les étiquettes de données de tous mes graphiques à chaque fois.

Auriez-vous quelques pistes pour résoudre mon problème ?

Je vous en remercie par avance

Bonjour,

Voici un essai sans conviction :

Sub formatetiquettes()
Dim cht As ChartObject
Dim ws As Worksheet
For Each ws In Worksheets
    For Each cht In ws.ChartObjects
        With cht.chart
            For k = 1 To .SeriesCollection.Count
                For J = 1 To .SeriesCollection(k).Points.Count
                    with .SeriesCollection(k).Points(J)
                         if .datalabel.text = 0 then .hasdatalabel = false
                    end with
                Next J
            Next k
        End With
    Next cht
Next ws
End Sub

On s'intéresse au texte de l'étiquette et non au texte du point (qui renvoie une erreur chez moi).

Je poste ici le lien de ma recherche : https://docs.microsoft.com/fr-fr/office/vba/api/excel.point.datalabel

Cdlt,