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

[DiaboLo42]

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,

 

[job75]

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+

 

[DiaboLo42]

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

Merci beaucoup, c'est exactement ce que je souhaitais faire.

encore merci a+

 

[job75]

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

Re,

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

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+

 

[DiaboLo42]

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

D'accord, je ne pensais pas que l'on pouvait autant la simplifier!

Merci beaucoup,

A+

 

[DiaboLo42]

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

Bonjour,

je voudrais savoir si le code change si je dois le faire sous Excel 2007?

Merci d'avance,