VBA, Graphique, supprimer le contour des marques d'une série

[danielco]

Bonjour,

L'enregistreur donne ceci :

  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.FullSeriesCollection(1).Format.Line.Visible = msoFalse

Ca ne fonctionne pas.

Merci de votre aide.

Daniel

 

[danielco]

Bonjour danielco

ActiveSheet.ChartObjects("Chart 1").Activate

Cordialement

Bonjour,

Je n'ai pas compris.

Daniel

 

[danielco]

Les deux syntaxes fonctionnent, mais le problème subsiste.

Daniel

 

[job75]

Bonjour danielco, Efgé,

Chez moi ceci efface bien l'encadrement des points sur le fichier post #1 :

Sub Macro7()
With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line
    .Visible = msoTrue
    .Visible = msoFalse
End With
End Sub

A+

 

[danielco]

Oui, mon code est équivalent et il ne fonctionne pas :

  ActiveSheet.ChartObjects(1).Activate
  ActiveChart.FullSeriesCollection(1).Format.Line.Visible = msoFalse

J'ai aussi essayé par acquis de conscience :

ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse

Daniel

 

[danielco]

Bonjour danielco, Efgé,

Chez moi ceci efface bien l'encadrement des points sur le fichier post #1 :

Sub Macro7()
With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line
    .Visible = msoTrue
    .Visible = msoFalse
End With
End Sub

A+

Bonjour et merci. le problème est résolu

 

[danielco]

Déjà si tu mettais ton code dans le code la feuille concernée, tu serais sûr de la feuille active ce qui est loin d'être le cas avec le code dans un module 🙄

Je te remercie pour ton intervention, mais tu dois adresser ta remarque à l'enregistreur de macro, comme précisé, pas à moi 🙂

Cordialement.

 

[Efgé]

Bonjour

Je te remercie pour ton intervention, mais tu dois adresser ta remarque à l'enregistreur de macro, comme précisé, pas à moi

Il te serais peut-être utile de savoir lire et interpréter le code brut de l'enregistreur.... 🙄

Bon courage
Cordialement

 

[danielco]

Bonjour danielco, Efgé,

Chez moi ceci efface bien l'encadrement des points sur le fichier post #1 :

Sub Macro7()
With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line
    .Visible = msoTrue
    .Visible = msoFalse
End With
End Sub

A+

Pourrais m''indiquer comment marquer la discussion comme résolue ?

Merci.

Daniel

 

[job75]

Mettre le préfixe Résolu à la place du préfixe XL2016 dans le titre de la discussion.