Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquer des éléments de légende avec VBA!

  • Initiateur de la discussion Initiateur de la discussion DiaboLo42
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DiaboLo42

XLDnaute Nouveau
Bonjour,

Je me tourne vers vous après de longues heures de recherche sans l'obtention du résultat escompté.

En effet, comme le titre je souhaite afficher seulement la légende des courbes que j'affiche.

Dans mon cas, je dispose de 4 courbes (dont une fixe) et je choisi parmi les 3 autres celle à afficher et j'aimerai que la légende n'affiche que 2 lignes correspondants au nom des 2 listes

Je dispose déjà d'une macro me permettant de réaliser le choix entre les 3. Je voudrais savoir si il est possible de faire ce que j'aimerai? Si oui, comment?

Si jamais quelqu'un a une idée sur cette question, cela m'éclairerait un peu!

Merci d'avance,
 

Pièces jointes

Re : Masquer des éléments de légende avec VBA!

Bonjour DiaboLo42,

Il suffit de modifier correctement les noms des séries.

Voir le fichier joint.

Nota : j'ai mis en commentaires les instructions qui paraissent inutiles.

A+
 

Pièces jointes

Re : Masquer des éléments de légende avec VBA!

Re,

La macro mérite tout de même d'être simplifiée :

Code:
Sub Affichage_courbe_souhaitée()
Dim tablo, i As Byte, test As Boolean
tablo = Array("DSPF", "Demi-sinus", "Créneau")
With ActiveSheet.ChartObjects(1).Chart.ChartGroups(1)
  For i = 1 To 3
    test = i = [F2]
    .SeriesCollection(i).Name = IIf(test, tablo(i - 1), "=""""")
    .SeriesCollection(i).Border.LineStyle = IIf(test, xlAutomatic, xlNone)
    .SeriesCollection(i).Border.ColorIndex = IIf(test, xlAutomatic, xlNone)
  Next
End With
End Sub
A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
379
Réponses
3
Affichages
298
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…