XL 2016 Changer la couleur d'un histogramme sur un graphique en vba

[hutch57]

Bonjour le forum,
Je bute sur un problème de changement de couleur d'un histogramme sur un graphique si l'objectif est dépassé, j'ai fait un code vba qui fonctionne mais ne change pas la couleur pour autant. Une idée ? Je joint un petit fichier test, d'avance merci

 

[sylvanu]

Bonjour Hutch,
Quelques remarques sans avoir essayer d'approfondir :
1- Ce n'est pas "Rejet prod Gr/M2" mais "'Rejet prod Gr/M2", un apostrophe qui fait la différence.
2- J'ai remplacé ser.Values.count par UBound(ser.Values)
3- votre "objectif" est de 680 donc jamais atteint, j'ai mis 40 en dur. "Objectif" est à revoir.
4- J'ai rajouté à la fin "Charts(1).Select" pour rafraichir le graphique, on doit trouver mieux comme solution.

 

[hutch57]

Bonjour Sylvanu,
Ahh cet apostrophe mince, ok pour l'objectif je vais voir et bien joué le fait de rafraichir le graphique a la fin, merci pour le dépannage c'est top.