Cacher automatiquement des légendes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Steph67000
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 9 août 2019
Version d'Excel : 2016 FR

Message par Steph67000 » 9 août 2019, 14:34

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.
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'022
Appréciations reçues : 84
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 10 août 2019, 08:05

Bonjour Steph67000 et :bv: ,

voir l'exemple
exemple.xls
(32 Kio) Téléchargé 5 fois
bonne journée
S
Steph67000
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 9 août 2019
Version d'Excel : 2016 FR

Message par Steph67000 » 12 août 2019, 14:14

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...
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'022
Appréciations reçues : 84
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 13 août 2019, 00:36

:joindre:
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'014
Appréciations reçues : 302
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 13 août 2019, 07:52

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
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message