Macro pour Mise en forme d'un graphique issu d'un TCD
Bonjour à tous,
Je vous sollicite car j'ai à peu près le même problême que dans d'autre post, à savoir reprendre la mise en forme d'un tcd sur mon graphique. En ayant fait pas mal de forum je n'ai pas réussi à résoudre celui ci.
Je cherche à reprendre la mise en forme que j'ai appliqué à mon TCD, sur mon graphique.
J'ai vu les solutions sur la superposition des graphiques mais je n'arrive pas à le faire avec un TCD.
Si cela n'est pas possible, il devrait être possible de créer une macro qui puisse donner une couleur à l'histogramme en fonction de seuil défini. Or n'étant pas expert en VBA, je ne sais pas comment lui dire de modifier les barres de l'histogramme en fonction des valeurs du TCD.
Je vous joins le fichier sur lequel je travail.
Merci d'avance pour vos réponse
Bonjour,
Avant de te basculer un code VBA, le seuil défini est toujours situé entre - 500 et 500 ou peut varier ?
S'il peut varier, on pourrait mettre les deux valeurs en A1 et A2. Dans le cas contraire on le met dans le code.
Si l'on doit pouvoir remettre le tout à la même couleur, quel serait la couleur de base de l'histogramme ?
A te relire
Bonjour,
Merci de ton aide, le seuil peut en effet varier. pour ce qui est dela couleur de base cela serait le bleu ciel.
En esperant que cela soit possible.
Re,
Ok si on mets les deux seuils dans B1 et B2 ???
A te relire
Re bonjour
Oui il n y a pas de contrainte a ce niveau.
On peur mettre les seuils en b1 b2
Re,
Désolé de revenir seulement aujourd'hui, le fichier était prêt mais je n'avais pas accès à mon ordi hier.
Vois donc le fichier joint avec une proposition par VBA.
Mets tes seuils minimum et maximum en B1 et B2 puis clique sur le bouton "colorise"
Si B1 et B2 sont à 0, cela te mettre le graphe en bleu. Si tu as une valeur min et max, les couleurs seront adaptées.
Amicalement
Bonjour,
Merci pour le fichier,
par contre en mettant des seuils mini et maxi dans B1 et B2, il y 'a une erreur dans la macro.
A ce niveau de la macro plus précisement:
valeur = CDbl(.DataLabel.Characters.Text)
Merci de ta réponse.
Re,
Je n'ai aucune erreur à ce sujet. Le fichier fonctionne bien chez moi.
Afin de tester :
- Quelle est la valeur des seuils que tu utilises ?
- Es-tu sûr que tes cellules sont bien au format "Standard"
A te relire
J'ai repris les seuils à -500 et 500, mais même quand je test avec d'autre valeurs cela ne fonctionne pas.
cela marche quand je laisse 0 dans les deux cellules.
J'ai bien vérifié et les cellules sont bien en standards.
Re,
Bizarre j'ai aucun souci (avec 0, 200 -300, 500 - 500 etc..)
Est-ce que le fichier que tu as mis est l'original ?
L'erreur arrive toujours au même endroit ?
Ta version d'excel est 2007 ? et si oui ton fichier est-il bien enregistré en format xlsm ?
Essaie aussi d'enlever le CDbl dans le code.
A te relire
RE,
En 2003 cela marche par contre en 2007, cela ne marche pas.
En enlevant la commande CDbl il ne tiens pas compte des seuils
Re,
Quid des deux autres questions que je t'ai posées ??
Edit :
essaie une fois cette instruction en lieu et place --> valeur = CDbl(.DataLabel.Caption)
Cela fonctionne sur les deux versions avec ce changement de code.
Merci beaucoup pour ton aide