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

Efgé à dit:

Bonjour danielco

VB:

ActiveSheet.ChartObjects("Chart 1").Activate

Cordialement

Cliquez pour agrandir...

job75 à dit:

Bonjour danielco, Efgé,

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

VB:

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

A+

Cliquez pour agrandir...

Efgé à dit:

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

Cliquez pour agrandir...

danielco à dit:

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

Cliquez pour agrandir...

job75 à dit:

Bonjour danielco, Efgé,

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

VB:

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

A+

Cliquez pour agrandir...