Adapter un graphique lié à un TCD

[Ardamire]

Bonjour à toutes et tous,

Suite à une importante concentration de données à traiter et manipuler, je me suis lancé dans la création d'un TCD. Je trouvai cet outil intéressant car il intégre la fonction directe des filtres sur plusieurs niveaux et permet de tracer un graphique directement depuis les filtres.

Or il est impossible de tracer un graphique de type "nuage de points" et c'est malheureusement ce qu'il y a de plus visuel par rapport à mes attentes. Je me suis donc dit que j'allais enregistrer une macro permettant d'enlever le trait dans les séries de données mais tout en conservant le marqueur.

Voilà le code obtenu via l'enregistreur :

Sub boucle_for()

For i = 1 To 1000 'Valeurs mises par défaut que j'adapterai au besoin

    Sheets("Plot").Select
    ActiveChart.ChartArea.Select
    ActiveChart.Legend.Select
    ActiveChart.SeriesCollection(i).Select
    Selection.Format.Line.Visible = msoFalse
    
    Next

End Sub

Outre le fait de ne pas avoir désactivé la mise à jour de l'affichage faisant perdre du temps, cette macro, lorsque je la lance, efface aussi les marqueurs de certaines séries. Auriez-vous une idée de la provenance de ce soucis et si cela provient du code généré?

Merci d'avance pour votre contribution et bonne journée.

Cédric

 

[Ardamire]

Re : Adapter un graphique lié à un TCD

Dans le pire des cas, je laisserai les lignes des séries mais si vous avez une idée, je suis preneur