XL 2010 Mise en forme d’un graphique spécifique

[jeanmi]

Bonjour à tous,

Je recherche à faire une mise en forme de mon graphique :

a) La courbe et les points qui représentent l’année 2025 d’une couleur, puis 2026 d’une autre etc…. ou au minimum les points de couleurs différentes suivant les années.
J’ai fait un essai avec ma macro couleur, mais ce n’est pas concluant.

b) Serait-il possible de tracer les données avec l’axe x sur un cercle afin de créer une forme géométrique du graphique qui est actuellement tracé à plat dans mon fichier ?

En vous remerciant par avance pour l’aide, si c’est réalisable ?

Cordialement

 

[sylvanu]

Bonsoir Jeanmi,
N'y connaissant rien, je ne sais si le résultat est probant ou non pour le second point.

 

[sylvanu]

Re,
Le même en couleur par année.

 

[jeanmi]

Re,
Le même en couleur par année.

Bonjour @sylvanu à tous,

Un grand merci pour ces deux reponses très rapides.

Il faut que je regarde de plus près, mais la frome me semble correcte.
je vais annalyser dans le détail les points de départ et d’arrivée, si j’ai bien pris les bonnes ref.

c'est super. merci, merci et encore merci

 

[jeanmi]

Re,
Le même en couleur par année.

Bonjour @sylvanu à tous,

Le graphique est superbe, j’ai remarqué avec ce beau graphique que j’avais mal défini certaines dates, je vais changer cela après.

Là je cherche à mettre des points partout sur le graphique de la couleur de chaque courbe, mais avec des points de taille déférente qui sont défini dans la colonne f que j’ai ajouté (représentation de la magnitude de l’astre donc en gros ça taille visuelle)

Mais ce que j’ai fait n’est pas très beau. (Petite macro qui est pas très rapide mais ça ce n’est pas très grave)

Si tu as une solution pour rendre le graphe plus agréable visuellement et plus représentatif de la taille des astres par rapport aux magnitudes.

Merci pour l’aide

Cordialement

 

[sylvanu]

Bonjour,
Difficile de vous aider car :

N'y connaissant rien

Peut être pour être plus lisible :
1- Fond plus clair
2-Points non remplis avec :

Selection.MarkerBackgroundColor = xlNone

3- Traits plus fins avec :

Sub EpaisseurCourbe()
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
    For i = 1 To cht.SeriesCollection.Count
        With cht.SeriesCollection(i).Border
            .Weight = xlMedium ' ou xlThin
        End With
    Next
End Sub

Difficile de faire plus, d'autant que la lisibilité est assez subjective, dépendant aussi de ce que vous voulez voir. 😉

 

[jeanmi]

Bonjour,
Difficile de vous aider car :

Peut être pour être plus lisible :
1- Fond plus clair
2-Points non remplis avec :

Selection.MarkerBackgroundColor = xlNone

3- Traits plus fins avec :

Sub EpaisseurCourbe()
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
    For i = 1 To cht.SeriesCollection.Count
        With cht.SeriesCollection(i).Border
            .Weight = xlMedium ' ou xlThin
        End With
    Next
End Sub

Difficile de faire plus, d'autant que la lisibilité est assez subjective, dépendant aussi de ce que vous voulez voir. 😉

Bonjour @sylvanu à tous,

Merci encore une fois pour l'aide, c'est très bien comme dans la proposition, je dirai même parfait.

Je n'ai plus qu'à mettre toutes les bonnes informations pour boucler cette vue du déplacement d’une planète, là Venus, du point de vu visuel depuis la Terre, système géocentrique, avec la taille apparente de la planète représentée par la taille du point donc la proximité avec la terre.

Un grand merci pour la résolution de mon projet.

Cordialement