Discussion :

[Olive2011]

Bonjour,

j'ai une série de données dans excel comme suit:
Libellé X Y
ma réf N°1 5 1
ma réf N°2 9 9
ma réf N°3 3 8
ma réf N°4 6 3
ma réf N°5 8 2
ma réf N°6 1 7
ma réf N°7 4 4
ma réf N°8 7 5
ma réf N°9 2 6

J'ai besoin de mettre en forme un nuage de points réalisé à partie des valeurs X et Y:
=> les points de la partie supérieure droite ont une marque et un libellé en bleu
=> les points de la partie supérieure gauche ont une marque et un libellé en vert
=> les points de la partie inférieure droite ont une marque et un libellé en rouge
=> les points de la partie inférieure gauche ont une marque et un libellé en vert
Les parties gauche et droite sont définies à partie de la médiane de X. Les parties inférieure et supérieure à partir de la médiane de Y.

Une belle usine à gaz pour moi...

Pour le moment, j'arrive seulement écrire une macro qui met un libellé et colore de la même couleur tous les points... C'est déjà un exploit pour moi!

Pouvez-vous m'aider? Merci!

Olive.

[Bear the french]

Bonjour Olive,

Si tu peux nous mettre ton début de code entre deux balises, on verrai mieux ce qu'il reste à faire

Bertrand

[mercatog]

Exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Tracer()
Dim Lastlig As Long, i As Long, Klr As Long
Dim mX As Double, mY As Double
Dim PlageX As Range, PlageY As Range
Dim Ch As ChartObject
 
Application.ScreenUpdating = False
 
'Definition des plages de cellules (ici X en B2:Bxx et Y en C2:Cxx de Feuil3)
With Worksheets("Feuil3")                          ' à adapter
    Lastlig = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set Ch = .ChartObjects.Add(200, 100, 400, 270)
    Set PlageX = .Range("B2:B" & Lastlig)
    Set PlageY = .Range("C2:C" & Lastlig)
End With
 
'Medianes de X et Y
mX = Application.WorksheetFunction.Median(PlageX)
mY = Application.WorksheetFunction.Median(PlageY)
 
'Traçage graphique
With Ch.Chart
    .ChartType = xlXYScatter
    .HasLegend = False
    With .SeriesCollection.NewSeries
        .XValues = PlageX
        .Values = PlageY
 
        For i = 1 To Lastlig - 1
            'Définition de la couleur en fonction du quadrant
            Klr = IIf(PlageX(i) > mX, IIf(PlageY(i) > mY, RGB(0, 0, 255), RGB(255, 0, 0)), IIf(PlageY(i) > mY, RGB(0, 255, 0), RGB(255, 255, 0)))
            .Points(i).Format.Fill.ForeColor.RGB = Klr
        Next i
    End With
End With
Set PlageX = Nothing
Set PlageY = Nothing
Set Ch = Nothing
End Sub

[kiki29]

Salut, faire une recherche sur : Andy Pope XY scatter colouration plot . Une mine.

[Olive2011]

Merci pour vos réponses.

Mercatog,
ton code ne fonctionne pas et mes compétences très limitées ne me permettent pas de corriger:
.Points(i).Format.Fill.ForeColor.RGB = Klr
Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet

Vois-tu d'où cela vient?

Merci de ton aide.

Olive.

[mercatog]

J'ai oublié de préciser que j'ai testé sur excel 2007.
Essaie d'utiliser l'enregistreur de macro pour changer la couleur du marqueur de ton graphique
Ensuite, remplace la ligne enclenchant l'erreur par le résultat obtenu par l'enregistreur de macro.