[EXCEL] Points d'un nuage de points de couleurs différentes

[invite7db6ca85]

Bonjour !
J'ai absolument besoin de votre aide car si je ne trouve pas de solution rapide je vais devoir faire manuellement ce que je suis sûre est faisable en 30 sec en s'y connaissant bien en 5 jours
Je fais donc appel à vos connaissances en matière d'EXCEL.

Voici le souci :
J'ai un fichier excel avec :
colonne 1 --> des dates
colonne 2 --> une moyenne de muscles
colonne 3 --> une moyenne de gras

Je réalise avec ces données un nuage de points avec en abscisse le gras et en ordonnée le muscle. Jusqu'ici pas de souci.
Ce que je cherche à faire c'est d'attribuer à chaque point une couleur en fonction du mois qui lui correspond.

Je pensais utiliser la technique de colorier les cellules correspondantes sur le tableau pour que les mêmes couleurs se retrouvent sur le graphe mais je ne sais pas comment m'y prendre.

Sauriez vous comment faire ? Merci d'avance. Cela m'aiderait énormément.

Je vous laisse le fichier excel en question.
-----

[Yoruk]

Re,

J'ai pas excel sous la main. Pour colorer des cellules en fonction du contenu d'une case, facile (titite macro VBA). Par contre, je ne sais pas si le fait de colorer la cellule à une répercussion sur le nuage de point tracé. Si oui alors ça va effectivement prendre 30 secs.

Dans le cas contraire, ça risque d'être un peu plus compliqué. A voir si avec des macros il est possible d'automatiser l'opération de changement de couleur des points...

[Dormeur74]

Peut-on voir ce fichier Excel ?
Quelle version ? Pour moi 2003 maxi.

[invite2313209787891133]

Bonjour

Une solution peut consister à filtrer les valeur par mois et les afficher dans des colonnes différentes, puis faire une série par mois avec une couleur unique. Il n'y a même pas besoin d'utiliser de macro pour le faire.

[A voir en vidéo sur Futura]

[invite2313209787891133]

La solution évoquée plus haut en pièce jointe.

[Dormeur74]

Quel boulet je fais. Désolé, manque d'attention.

[Dormeur74]

VBA permet de ne pas toucher au tableau. J'ai donc une préférence pour une petite macro de rien du tout.

- Alt+F11 pour aller dans l'éditeur VB.
- Menu Insérer...Module
- double clic sur Module1 (colonne de gauche)
- tu remplaces tout le contenu par :

Option Explicit

Sub Nuage()
  Dim I As Integer
  Dim Couleur As Integer
  
  ' On crée le graphe
  Range("B4:C69").Select
  Charts.Add
  ActiveChart.ChartType = xlXYScatter
  ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:C69"), PlotBy:=xlColumns
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

  ' on affecte aux points la couleur du mois
  ActiveSheet.ChartObjects(1).Activate
  For I = 1 To ActiveChart.SeriesCollection(1).Points.Count
    ' On calcule le n° du mois comme le ferait la fonction MOIS( )
    Couleur = Val(Mid(Range("A" & I + 4), 4, 2))
    ' On affecte la couleur du mois au point
    ActiveChart.SeriesCollection(1).Points(I).MarkerBackgroundColorIndex = Couleur
  Next I
End Sub

Il suffit ensuite d'exécuter la macro "Nuage". Le nuage de points s'affiche, chaque point ayant une couleur de 1 à 12 (couleur du mois).

[Dormeur74]

J'espère que je ne me suis pas tapé tout ça pour rien, ça m'arrive assez souvent en ce moment.

[invite61d2fef4]

Super intéressant comme macro mais quand on a un fichier texte en première colonne que modifier dans la macro pour étiqueter ?

Merci d'avance

[Dormeur74]

Si tu as un besoin proche de celui-ci, ouvre un nouveau fil ; ici, je ne reprendrai plus, car je n'ai pas du tout envie de prolonger une discussion où j'ai l'impression d'avoir été pris pour une bille. Pour rester poli.

[invite61d2fef4]

Ok, je vais faire ça.
Dommage que les gens disponibles et efficaces comme vous soient dégoutés de répondre. Mais je comprends.
C'est un problème tout proche de celui là que je vais poser sur un nouveau fil....

Merci de la réponse quoi qu'il en soit