XL 2019 Format personnalisé d’étiquettes

VbaBesoindAide · 16 Décembre 2021

Bonjour,
J’ai fait une macro qui génère des graphiques, mais je voudrais que les étiquettes de valeur du graphique affichent “NS” si la valeur est inférieure à 1. Et si supérieur à 1, la valeur s’affiche normalement.
J’ai tenté un .DataLabels.Selection.NumberFormat = “[<1]” “”;# ##0.00”

Mais sans succès; Est-ce que quelqu’un aurait une idée svp ? Merci d’avance

sylvanu · 16 Décembre 2021

Bonjour, et bienvenu sur XLD,
Il semblerait que cette notation soit correcte :

VB:

[<1]"NS";# ##0,00

ou celle ci, peut être plus visuelle :

Code:

[Rouge][<1]"NS";# ##0,00

Voir PJ

VbaBesoindAide · 16 Décembre 2021

sylvanu à dit:
Bonjour, et bienvenu sur XLD,
Il semblerait que cette notation soit correcte :

VB:

[<1]"NS";# ##0,00

ou celle ci, peut être plus visuelle :

Code:

[Rouge][<1]"NS";# ##0,00

Voir PJ

Bonjour Sylvanu,

Merci pour ton accueil et ta réponse. J’ai essayé ton code

ActiveChart.SeriesCollection(2).DataLabels.NumberFormat = [<1]"NS";# ##0.00

Mais j’ai une erreur de compilation. « Erreur de compilation : Attendu : fin d’instruction » en me surlignant le « NS »

sylvanu · 16 Décembre 2021

Bonjour,
Dans ma PJ je ne suis pas passé en VBA mais directement dans le format des labels dans le graphique.
En VBA, j'ai trouvé :

VB:

ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "[<1]""NS"""

Mais le format n'est pas tout a fait le même.
Ou basé sur votre exemple :

Code:

ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "[<1]""NS"";# ##0.00"

VbaBesoindAide · 16 Décembre 2021

sylvanu à dit:
Bonjour,
Dans ma PJ je ne suis pas passé en VBA mais directement dans le format des labels dans le graphique.
En VBA, j'ai trouvé :

VB:

ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "[<1]""NS"""

Mais le format n'est pas tout a fait le même.
Ou basé sur votre exemple :

Code:

ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "[<1]""NS"";# ##0.00"

Super ça marche très bien maintenant. Merci beaucoup Sylvanu

XL 2019 Format personnalisé d’étiquettes

VbaBesoindAide

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

VbaBesoindAide

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

VbaBesoindAide

XLDnaute Nouveau

Discussions similaires