Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 [RESOLU] Problème de code VBA pour colorier nuage de points

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion THL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

THL

XLDnaute Nouveau
Bonjour à tous,

J'utilise cette macro pour colorier les points (où autre marquage du graph losange, triangle...) d'un graphique selon la couleur des cellules où se trouvent les données:

Sub ModifCouleur2()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
ActiveSheet.Cells(i + 3, 3).Interior.ColorIndex
Next i
End Sub

Par contre cette macro ne fait que colorier le contour du marquage mais pas l'intérieur qui reste blanc (voir feuille Complex).

Pourriez vous svp m'aider pour que l'intérieur du point (où autre marquage du graph losange, triangle...) soit également colorié avec la même couleur?

De plus cela ne fonctionne pas tout le temps (voir feuille Simple).

Ci-joint le fichier exemple.

Merci d'avance à tous.
 

Pièces jointes

Trier par date Trier par votes
Bonjour,

Merci. Cela fonctionne au moins à moitié puisque le contour des marques se colorie bien dans la même couleur que celle de la cellule, mais le problème est de pouvoir colorié également l'intérieur de ses points.

Cdlt
 
Vote positif 0 Vote négatif
...alors, je ne sais pas...j'ai juste essayé ceci :

Sub Colorpoint()
Dim Coul As Double

ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
Coul = ActiveSheet.Cells(i + 3, 3).Interior.Color
With ActiveChart.SeriesCollection(1).Points(i)
.Format.Line.ForeColor.RGB = Coul
.Format.Fill.ForeColor.RGB = Coul
End With
Next i
End Sub

qui fonctionne avec des couleurs normales de cellules mais pas avec les couleurs MFC...

Désolé de ne pouvoir en dire plus...

Cordialement
 
Vote positif 0 Vote négatif
Merci tout de même de votre contribution mais j'ai besoins de la MFC car ce sera appliqué à plus de 1000 lignes donc manuellement ça va être long sauf à faire un tri par valeur et colorier manuellement (solution par défaut).
Encore merci.
J'espère que quelqu'un aura une idée.
Cdlt
 
Vote positif 0 Vote négatif
Au cas où je l'ai modifié un peu car la VBA coloriait les les marques à la suite sans prendre en compte le nom de la série donc si deux premières lignes étaient rouges les deux premières marques du graphique étaient rouges, donc sans prise en compte de l'ordonnée.
Mais toujours pas de solution en MFC...

Sub Colorpoint()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).Format.Line.ForeColor.RGB = _
ActiveSheet.Cells(i + 3, 3).Interior.Color
ActiveChart.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = _
ActiveSheet.Cells(i + 3, 3).Interior.Color
Next i
End Sub
 
Vote positif 0 Vote négatif
Dans ce que j'ai donné plus haut, si l'on remplace la ligne :

Coul = ActiveSheet.Cells(i + 3, 3).Interior.Color

par :

Coul = ActiveSheet.Cells(i + 3, 3).DisplayFormat.Interior.Color

cela fonctionne avec une MFC...

Cordialement
 
Vote positif 0 Vote négatif
Merci beaucoup, problème résolu!!!
Donc voici la macro finale si elle devait servir à d'autres:

Sub Colorpoint()
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).Format.Line.ForeColor.RGB = _
ActiveSheet.Cells(i + 3, 3).DisplayFormat.Interior.Color
ActiveChart.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = _
ActiveSheet.Cells(i + 3, 3).DisplayFormat.Interior.Color
Next i
End Sub

Cdlt
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
XL 2013 Problème de checkboxes et lecteurs partagés
Réponses
1
Affichages
893
Ptrs32
P
M
  • Question Question
XL 2016 Nuage de points - différente couleurs selon données
Réponses
2
Affichages
4 K
Michel_ja
M
B
  • Question Question
XL 2016 Macro pour empêcher superposition étiquettes sur nuage de points [RESOLU]
Réponses
13
Affichages
9 K
Pme83
I
  • Question Question
XL 2016 Etiquettes pour nuage de points à plusieurs séries
Réponses
0
Affichages
2 K
Imperium
I
  • Question Question
importation données sauf des lignes précises (Code de Job)
Réponses
6
Affichages
1 K
an@s
D
  • Question Question
RESOLU - Ma legende ne correspond pas au graphique (nuage de point)
Réponses
1
Affichages
2 K
DELANNOY
D
T
  • Question Question
VBA: Affichage de données dans bulles d'un nuage de points
Réponses
0
Affichages
974
ted75
T
D
  • Question Question
Résolu - Problème de généraion de graphique en VBA
Réponses
1
Affichages
1 K
DELANNOY
D
R
  • Question Question
XL 2013 Graphique double anneau et code VBA pour labels
Réponses
2
Affichages
2 K
ruhlito
R
D
  • Question Question
[VBA] Problème sur une plage de valeurs variables d'un graphique
Réponses
2
Affichages
2 K
Djihell
D
  • Question Question
Un bon livre pour amélioration code VBA adressé à mapomme et autres personnes trés compétentes
Réponses
0
Affichages
2 K
JBARBE
  • Question Question
Problème de code VBA demande aide pour correction
Réponses
11
Affichages
2 K
abtony
B
  • Question Question
VBA Etiquettes et couleurs pour graphique à Bulles
Réponses
8
Affichages
6 K
bast0504
B
  • Question Question
VBA corréler les couleurs des pts d'un nuage aux couleurs de remplissage des cellules
Réponses
2
Affichages
7 K
Tioums
R
  • Question Question
[RESOLU] Lien à partir d'un nuage de points
Réponses
12
Affichages
2 K
richert90
R
B
  • Question Question
[RESOLU] [VBA] Problème pour remplacer les points par rien
2
Réponses
24
Affichages
8 K
benzeboss
B
J
  • Question Question
Problème de compatibilité VBA Excel 2010 avec versions 2007 et 2003
Réponses
4
Affichages
2 K
jacky128
J
  • Question Question
Etiquettes de données et nuage de points vba
Réponses
12
Affichages
6 K
Vilain
A
  • Question Question
Nuage de points : étiquette et mise en couleur des points (besoin de macro?!)
Réponses
5
Affichages
28 K
Misange
C
  • Question Question
Etiquette "nom" sur graphique nuage de points
Réponses
9
Affichages
9 K
Cefiroth
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…