Affichage d'une étiquette de valeur en fonction de sa valeur

Bonjour,

J'aimerais automatisé l'affichage d'une étiquette sur mon graphique seulement si sa valeur est supérieure à 5%.

J'ai essayé de récupérer la valeur du DataLabel mais sans succès :c

Quelqu'un serait il en mesure de m'aider ?

Cordialement,

Lunta

Bonjour,

Essayez ceci, (crée les étiquettes, puis supprime celles dont la valeur est inférieure à 5%)

    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.NumberFormat = "0.00%"

    For i = 1 To 10
        If Cells(i + 1, "G") < 0.05 Then
            On Error Resume Next
            ActiveChart.SeriesCollection(1).DataLabels.Select
            ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
            If Err.Number = 0 Then
                Selection.Delete
            End If
            On Error GoTo 0
        End If
    Next i

Cdlt

Bonjour Lunta, Arturo83

Un essai avec :

clic droit sur une étiquette, puis,

clic sur "Mettre en forme les étiquettes de données"

Sous "Format des étiquettes"

Développez "Nombre"

Sous "Catégorie", Mettre à "Personnalisé"

Sous "Code de format" mettre:

[>=0,05]#%;""

puis "ajouter";

Cela ne mettra que les valeurs supérieures ou égales à 5 %;

pour que 5% s'affiche sur "moulage", il faudra plutôt écrire:

[>=0,045]#%;""

Cordialement

Merci pour vos retours, la solution de Arturo83 fonctionne parfaitement.

haonv, je rencontre un souci avec ta proposition. On dirait que excel arrondi la formule, cad que lorsque je copie ta formule pour la mettre dans "Code format" il me la transforme en :

[>=0]#%;""

Cordialement,

Lunta

Re,

J'ai eu le même problème à la première validation.

Je pensais que j'avais fait une mauvaise manip.

En reprenant ce format et en le corrigeant, tout est rentré dans l'ordre.

Mystère...

Cordialement