enlever valeur null ou zero dans un graph

**dawaman** · 21/09/2011, 09h41

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** · 21/09/2011, 10h11

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 21/09/2011, 10h30

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

**Runsh63** · 21/09/2011, 11h17

Salut,

Tu fais Alt+F11 / Insérer / Modules

Tu colles ta macro et voilà !

**dawaman** · 21/09/2011, 11h25

merci pour tout,

J'ai une erreur maintenant:

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

**Daniel.C** · 21/09/2011, 11h34

Peux-tu joindre un fichier simplifié ?

**dawaman** · 21/09/2011, 11h38

bien sur

Un fichier source et le fichier "dashboard"

**Daniel.C** · 21/09/2011, 12h10

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.