Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Graphique - couleur etiquettes de données

Graphique - couleur etiquettes de données

12 réponses
Avatar
JacquesH
Bonjour à toutes et tous,

Dans un graphique avec plusieurs courbes, je souhaiterais différencier
certaines étiquettes de données. Je ne sais pas si c'est réalisable ?

Si oui et de manière plus concrète :
J'ai un ensemble de données avec des pourcentages de 1 à 100.
J'ai trois courbes qui correspondent à 3 séries, les étiquettes de
données sont de couleur identique pour chacune des courbes.
Je souhaite "mettre en valeur" (colorer le fond par exemple) des
étiquettes qui correspondent à des valeurs inférieures à la valeur d'une
cellule de mon fichier.

Merci de vos réponses.

Jacques
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JacquesH
OK, tout fonctionne.

Merci beaucoup.

Jacques


Re,

Par rapport à l'exemple précédent,

Sub zaza()
Dim C, dSrces As Range
Set aC = ActiveCell
Set dSrces = Range("Feuil1!$B$2:$B$10")
Application.ScreenUpdating = False
If Not IsNumeric(Range("D14")) Then GoTo Fin
On Error Resume Next
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Delete
For i = 1 To dSrces.Rows.Count
With ActiveChart.SeriesCollection(1).Points(i)
.ApplyDataLabels AutoText:=True, ShowValue:=True
If dSrces.Cells(i).Value > Range("D14") Then _
.DataLabel.Interior.ColorIndex = 3
End With
Next i
aC.Select
Fin:
End Sub


ChrisV


"JacquesH" a écrit dans le message de
news:

Bonjour et merci pour ta réponse,

Cela ressemble à ce que je souhaitais réaliser.

Est-il possible de faire apparaître les Etiquettes de données des autres
valeurs "en format classique" ?

Pour les autres adaptations, je pense que je me débrouillerai.

Jacques


Oups... oublié le lien...
http://cjoint.com/?ktmmd7zyyY


ChrisV


"ChrisV" a écrit dans le message de news:
%


Bonjour JacquesH,

Un petit exemple avec 1 courbe mais facilement transposable...
par VBA, ou avec une "barre de seuil"


ChrisV


"JacquesH" a écrit dans le message
de news:


Non, non ce n'est pas la solution !!!

J'ai au total 50 ou 60 valeurs.

Je vois bien une solution avec du code, du genre :
- Pour chaque étiquette de données.
- Si la valeur de l'étiquette est supérieure à celle de ma cellule de
référence,
- Alors : fond rouge.

Mais malheureusement, malgré différents essais, je ne sais pas écrire
cela en VBA.

D'avance merci.

Jacques



il suffit de rajouter les étiquettes des courbes A, B et C en format
classique (je n'ai mis que celles des courbes Abis, Bbis et Cbis avec
un fond coloré différent)
environ 12 clics de souris !

Stéphane



"JacquesH" a écrit dans le
message de news:



Bonjour et merci pour ta réponse,

Effectivement, je n'avais pas pensé à cette idée et je l'utiliserai si
on ne peut pas faire mieux.

Avec ton exemple, ce que je souhaite avoir, c'est :
- La présence de toutes les étiquettes de données.
- Celles qui sont supérieures à 35 (la majorité) avec un format commun
et classique.
- Seulement celles qui sont inférieures à 35 avec le fond coloré.

Sais-tu si c'est possible ? Peut-être en VBA ?

Merci

Jacques



Bonjour

Un petit exemple vaux mieux qu'un long discours
http://cjoint.com/?ktiYy2ESA8
J'espère avoir bien compris la problèmatique.

ça marche ?

Stéphane


"JacquesH" a écrit dans le
message de news: %




Bonjour à toutes et tous,

Dans un graphique avec plusieurs courbes, je souhaiterais
différencier certaines étiquettes de données. Je ne sais pas si
c'est réalisable ?

Si oui et de manière plus concrète :
J'ai un ensemble de données avec des pourcentages de 1 à 100.
J'ai trois courbes qui correspondent à 3 séries, les étiquettes de
données sont de couleur identique pour chacune des courbes.
Je souhaite "mettre en valeur" (colorer le fond par exemple) des
étiquettes qui correspondent à des valeurs inférieures à la valeur
d'une cellule de mon fichier.

Merci de vos réponses.

Jacques





















Avatar
ChrisV
Waste !


ChrisV >:-)


"JacquesH" a écrit dans le message de
news:
OK, tout fonctionne.

Merci beaucoup.

Jacques


Re,

Par rapport à l'exemple précédent,

Sub zaza()
Dim C, dSrces As Range
Set aC = ActiveCell
Set dSrces = Range("Feuil1!$B$2:$B$10")
Application.ScreenUpdating = False
If Not IsNumeric(Range("D14")) Then GoTo Fin
On Error Resume Next
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Delete
For i = 1 To dSrces.Rows.Count
With ActiveChart.SeriesCollection(1).Points(i)
.ApplyDataLabels AutoText:=True, ShowValue:=True
If dSrces.Cells(i).Value > Range("D14") Then _
.DataLabel.Interior.ColorIndex = 3
End With
Next i
aC.Select
Fin:
End Sub


ChrisV


"JacquesH" a écrit dans le message
de news:

Bonjour et merci pour ta réponse,

Cela ressemble à ce que je souhaitais réaliser.

Est-il possible de faire apparaître les Etiquettes de données des autres
valeurs "en format classique" ?

Pour les autres adaptations, je pense que je me débrouillerai.

Jacques


Oups... oublié le lien...
http://cjoint.com/?ktmmd7zyyY


ChrisV


"ChrisV" a écrit dans le message de news:
%


Bonjour JacquesH,

Un petit exemple avec 1 courbe mais facilement transposable...
par VBA, ou avec une "barre de seuil"


ChrisV


"JacquesH" a écrit dans le
message de news:


Non, non ce n'est pas la solution !!!

J'ai au total 50 ou 60 valeurs.

Je vois bien une solution avec du code, du genre :
- Pour chaque étiquette de données.
- Si la valeur de l'étiquette est supérieure à celle de ma cellule
de référence,
- Alors : fond rouge.

Mais malheureusement, malgré différents essais, je ne sais pas écrire
cela en VBA.

D'avance merci.

Jacques



il suffit de rajouter les étiquettes des courbes A, B et C en format
classique (je n'ai mis que celles des courbes Abis, Bbis et Cbis avec
un fond coloré différent)
environ 12 clics de souris !

Stéphane



"JacquesH" a écrit dans le
message de news:



Bonjour et merci pour ta réponse,

Effectivement, je n'avais pas pensé à cette idée et je l'utiliserai
si on ne peut pas faire mieux.

Avec ton exemple, ce que je souhaite avoir, c'est :
- La présence de toutes les étiquettes de données.
- Celles qui sont supérieures à 35 (la majorité) avec un format
commun et classique.
- Seulement celles qui sont inférieures à 35 avec le fond coloré.

Sais-tu si c'est possible ? Peut-être en VBA ?

Merci

Jacques



Bonjour

Un petit exemple vaux mieux qu'un long discours
http://cjoint.com/?ktiYy2ESA8
J'espère avoir bien compris la problèmatique.

ça marche ?

Stéphane


"JacquesH" a écrit dans le
message de news: %




Bonjour à toutes et tous,

Dans un graphique avec plusieurs courbes, je souhaiterais
différencier certaines étiquettes de données. Je ne sais pas si
c'est réalisable ?

Si oui et de manière plus concrète :
J'ai un ensemble de données avec des pourcentages de 1 à 100.
J'ai trois courbes qui correspondent à 3 séries, les étiquettes de
données sont de couleur identique pour chacune des courbes.
Je souhaite "mettre en valeur" (colorer le fond par exemple) des
étiquettes qui correspondent à des valeurs inférieures à la valeur
d'une cellule de mon fichier.

Merci de vos réponses.

Jacques























1 2