enlever valeur null ou zero dans un graph

[dawaman]

Bonjour à tous,

Voilà, j'aimerai enlever mes valeurs égales à 0 dans le graph. Ils viennent d'une formule qui mets la cellule à vide si condition non rempli.

Comment faire?

[Daniel.C]

Bonjour,

Tu peux utiliser cette macro (en changeant le nom du graphique) :

Code :

1
2
3
4
5
6
7
8
9
Sub test()
Dim Valeurs
With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1)
    Valeurs = .Values
    For i = 1 To .Points.Count
        If Valeurs(i) = 0 Then .Points(i).DataLabel.Text = ""
    Next i
End With
End Sub

... et pour examiner toutes les séries du graphique :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim Valeurs, i As Long, j As Long
    For j = 1 To ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection.Count
    With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(j)
        Valeurs = .Values
        For i = 1 To .Points.Count
            If Valeurs(i) = 0 Then .Points(i).DataLabel.Text = ""
        Next i
    End With
    Next j
End Sub

[dawaman]

je n'y connais pas grand chose en macro. Je les mets ou.

[Runsh63]

Salut,

Tu fais Alt+F11 / Insérer / Modules

Tu colles ta macro et voilà !

[dawaman]

merci pour tout,

J'ai une erreur maintenant:

erreur execution 1004
Impossible de définir la propriété texte de datalabel

[Daniel.C]

Peux-tu joindre un fichier simplifié ?

[dawaman]

bien sur

Un fichier source et le fichier "dashboard"

[Daniel.C]

Je n'ai pas eu cette erreur, cependant la macro supposait que les séries avaient des étiquettes. J'ai ajouté un test pour éviter de planter quand il n'y en a pas; par contre, faut-il également effacer les légendes d'abscisses quand la valeur des points est égale à 0 ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    Dim Valeurs, i As Long, j As Long
    With ActiveSheet.ChartObjects("Graphique 1").Chart
        For j = 1 To .SeriesCollection.Count
            With .SeriesCollection(j)
                Valeurs = .Values
                For i = 1 To .Points.Count
                    If .Points(i).HasDataLabel = True Then
                        If Valeurs(i) = 0 Then .Points(i).DataLabel.Text = ""
                    End If
                Next i
            End With
        Next j
    End With
End Sub

PS. Indique ta version d'Excel, il y a eu pas mal de changements avec XL2007.

[dawaman]

J'utilise Excel 2003.

Les légendes d'abscisses s'effacent automatiquement.

J'ai toujours l'erreur. J'avais déjà effectué ce test.

[Daniel.C]

Bonjour,

Poste ton classeur avec la macro.