Bonjour,Bonjour danielco
CordialementVB:ActiveSheet.ChartObjects("Chart 1").Activate
Sub Macro7()
With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line
.Visible = msoTrue
.Visible = msoFalse
End With
End Sub
ActiveSheet.ChartObjects(1).Activate
ActiveChart.FullSeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
Bonjour et merci. le problème est résoluBonjour danielco, Efgé,
Chez moi ceci efface bien l'encadrement des points sur le fichier post #1 :
A+VB:Sub Macro7() With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line .Visible = msoTrue .Visible = msoFalse End With End Sub
Je te remercie pour ton intervention, mais tu dois adresser ta remarque à l'enregistreur de macro, comme précisé, pas à moiDé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
Il te serais peut-être utile de savoir lire et interpréter le code brut de l'enregistreur....Je te remercie pour ton intervention, mais tu dois adresser ta remarque à l'enregistreur de macro, comme précisé, pas à moi
Pourrais m''indiquer comment marquer la discussion comme résolue ?Bonjour danielco, Efgé,
Chez moi ceci efface bien l'encadrement des points sur le fichier post #1 :
A+VB:Sub Macro7() With ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line .Visible = msoTrue .Visible = msoFalse End With End Sub