Discussion :

[olibn14]

Bonjour à tous les experts,

Mon problème Excel est le suivant : j’ai un graphique à bulles en 3 dimensions (axe x, axe y et le cercle), et je désirerais intégrer une 4ème dimension, sous forme de code couleur. L’idée serait d’associer une couleur au cercle en fonction d'une note attribuée (sur une échelle de 1 à 5 : par exemple 1=vert, 2=bleue...), et donc indépendamment des axes x, y,z.
J'ai effectué quelques recherches, et il faut apparemment utiliser VBA. J'ai essayé d"appliquer quelques codes (voir fichier joint), mais sans succès. Je ne parviens pas à déchiffrer correctement les codes en VBA, peut être pourriez-vous m'aider?

Je vous remercie,

Cordialement,

Olivier

[Daniel.C]

Bonjour,

Essaie :

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
Sub Couleur2()
    Dim S As Series
    With Sheets("Prioriser_les_PP")
        Set S = .ChartObjects(1).Chart.SeriesCollection(1)
        For I = 1 To S.Points.Count
            Select Case .[G25].Offset(I).Value
                Case 1: S.Points(I).Interior.ColorIndex = 4
                Case 2: S.Points(I).Interior.ColorIndex = 32
                Case 3: S.Points(I).Interior.ColorIndex = 6
                Case 4: S.Points(I).Interior.ColorIndex = 46
                Case 5: S.Points(I).Interior.ColorIndex = 3
                Set Var = S.Points(I)
            End Select
        Next I
    End With
End Sub

[olibn14]

Merci pour votre réponse rapide et efficace, cela fonctionne ! !
Encore une petite chose bonus : dans le cas ou 2 bulles se superposent, est-il possible d'ajouter un effet de transparence, afin d'avoir un meilleur visuel?

Bien Cordialement,

Olivier

[Daniel.C]

Ca ne va pas être aisé. L'ajout de transparence fait que les couleurs se mélangent : rouge +bleu =violet...
Est-ce que tu peux me renvoyer ton classeur en ayant mis les couleurs à ton idée afin que je puisse m'en inspirer ?

[olibn14]

Bien sur, voici le classeur avec les couleurs choisies.

Cordialement,

Olivier

[Daniel.C]

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
Sub Couleur2()
    Dim S As Series
    With Sheets("Prioriser_les_PP")
        Set S = .ChartObjects(1).Chart.SeriesCollection(1)
        For I = 1 To S.Points.Count
            Select Case .[G25].Offset(I).Value
                Case 1: S.Points(I).Interior.Color = 10092543
                Case 2: S.Points(I).Interior.Color = 52479
                Case 3: S.Points(I).Interior.Color = 39423
                Case 4: S.Points(I).Interior.Color = 26367
                Case 5: S.Points(I).Interior.Color = 13209
            End Select
        Next I
    End With
End Sub

[olibn14]

C'est parfait, merci beaucoup !

Olivier