Cacher automatiquement des légendes

Bonjour à tous,

Je cherche en vain depuis de longues heures comment faire une opération qui me semble pourtant basique :

j'ai un graphique avec des valeurs à 0. J'aimerais faire disparaitre les libellés associés dans la légende.

Par exemple, pour un camembert avec les valeurs :

lundi 1

mardi 2

mercredi 0

jeudi 4

vendredi 0

samedi 0

j'aimerais que seul lundi mardi et jeudi soient affichés dans la légende étant donné que les valeurs ne sont pas visibles sur mon graphique.

Bonjour Steph67000 et

voir l'exemple

5exemple.zip (6.52 Ko)

bonne journée

Salut m3ellem1 et merci mille fois pour ta solution !

Malheureusement elle ne fonctionne pas pour ce que je veux faire (je génère le fichier excel en c# avec la bibliotèque EPPLUS pour tout te dire), car l'ajout d'un nom avec la fonction DECALER est une solution que j'avais testé mais qui génère une erreur lors de la génération du fichier...

Peut être qu'il y a une solution avec un tableau et des filtres, je ne sais pas...

Bonjour,

Je n'ai pas creusé plus loin mais voici une piste en partant du principe que les valeurs numériques se trouvent en colonne B de B1 à B6 :

Sub Test()

    Dim Graph As Chart
    Dim Legende As LegendEntries
    Dim I As Integer

    Set Graph = ActiveSheet.ChartObjects("Graphique 1").Chart
    Set Legende = Graph.Legend.LegendEntries

    For I = Legende.Count To 1 Step -1

        If Cells(I, 2).Value = 0 Then 'en colonne B à partir de B1, à adapter !

            Graph.Legend.LegendEntries(I).Delete

        End If

    Next I

End Sub
Rechercher des sujets similaires à "cacher automatiquement legendes"