Mise en forme graphique
Bonjour
Je sollicite votre votre aide pour la mise en forme d'un graphique.
je souhaiterais, svp, que les écart ressortent en vert quand ils sont positifs et en rouge quand ils sont négatif .
je souhaiterais aussi qu' ils soient dissociés en deux dans la légende avec un petit carré vert pour gains et un rouge pour perte.
Et si possible je souhaiterais passer l'étiquette des écarts négatifs en dessus, comme les autres en fait.
Merci pour votre aide.
Bonjour,
Voici un premier jet.
Les couleurs des écarts , OK
Les étiquettes au-dessus pour les écarts négatifs, C'est bon, mais pas complètement satisfait. je continue à essayer de l'améliorer.
Dissocier les 2 légendes, ça, pas sûr d'y arriver.
Un clic sur le graphique le réactualise.
Cdlt
Bonjour
Merci Arturo pour ton retour.
En fait j'ai oublié de préciser que les données sont amenées a changer et donc le positif peut devenir négatif et donc de passer de vert au rouge et cela de façon auto si possible.
Perds pas ton temps sur les étiquettes et la légende. c'est que du + mais pas prioritaire.
Merci beaucoup pour ton temps.
Bonjour,
La répartition des couleurs est recalculée à chaque clic sur le graphique.
Cdlt
Bonjour
Ah je dois mal faire quelques choses alors car cela ne fonctionne pas de mon coté.
Je vais regarder.
Merci.
Les macros sont -elles bien activées sur votre PC?
Oui elles tournent bien sur d'autres fichiers.
Rien ne se fait si je clique sur le graph, par contre si j(attache la macro a un bouton elle s'exécute bien.
est il possible de la modifier pour que celle ci s'exécute en auto ?
Si ça marche avec un bouton, et pas avec le graphique, c'est que la macro n'est pas affectée au graphique.
Clic droit sur le graphique est y affecter la macro.
en effet en rattachant la macro au graph cela fonctionne.
Vous avez crée 2 macro dans votre fichier :
Couleur_écart et MAcro 1.
Pour essayez de comprendre pourriez vus svp me dire la fonction de chacune ?
Merci.
La macro 1 ne sert à rien , c'était pour faire des essais, vous pouvez la supprimer.
Bonjour Arturo83
Pourriez vous svp me dire a quoi correspondont le (i - 4) ?
Merci.
Sub Couleur_Ecart()
Dim DerLig As Long, i As Long
Application.ScreenUpdating = False
DerLig = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select
For i = 5 To DerLig
If Cells(i, "D") > 0 Then
ActiveChart.SeriesCollection(3).Points(i - 4).Interior.Color = RGB(0, 176, 80)
ElseIf Cells(i, "D") < 0 Then
ActiveChart.SeriesCollection(3).Points(i - 4).Interior.Color = RGB(255, 0, 0)
ActiveChart.SeriesCollection(3).Points(i - 4).DataLabel.Select
Selection.Top = 300
End If
Next
End Sub
Bonjour damien7338, Arturo83, bonjour le forum,
Ayant travaillé sur votre demande, je poste quand même ma solution.
Pour pouvoir dissocier les gains et les pertes, je créé à l'aide d'une formule simple une 3ème et une 4ème série permettant de les colorer.
La position des étiquettes devient un problème mais une petite macro réajuste l'ensemble.
Si vous modifiez la valeur en cellule 'A4', l'étiquette changera automatiquement de position. Également si vous changez les données du graphique.
À tester.
Le classeur :
Bonne fin de journée à tous.
AL 22