MFC sur axe d'un graphique

Bonjour le forum,

Voici l'exposé de ce que je souhaiterai faire:

A partir d'une table de données je créé un histogramme avec - en abscisse le n° de class (1 à 10)

- en ordonnée la valeur de la class

Dans ma table de données j'ai mis une MFC (sur la ligne des class).

Lorsque j'ai fait l'histogramme, je pensais que cette MFC serait en place sur l'axe des abscisses mais malheureusement non.

y'a-t-il un moyen de la rajouter ?

Je mets en PJ un exemple.

Merci à vous et bonne journée

bonjour

habituellement, on met en couleur les barres et non les abscisses

sais-tu mettre en vert les barres D5<>0;D5>20 ?

Bonsoir,

Voir fichier avec VBA et le module de feuille 'Worksheet_Change'.

Cdlt

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaValeur1 As String, MaValeur2 As String
Dim p As Long
Dim col As Long
    Application.ScreenUpdating = False
    col = 20
    With Worksheets("Feuil1").ChartObjects("Graphique 1").Chart
        For p = 1 To .SeriesCollection(1).Points.Count
            .SeriesCollection(1).Points(p).HasDataLabel = True
            MaValeur1 = .SeriesCollection(1).Points(p).DataLabel.Text
            If Val(MaValeur1) > col Then
                .SeriesCollection(1).Points(p).Interior.ColorIndex = 4
            Else
                .SeriesCollection(1).Points(p).Interior.ColorIndex = 3
            End If
        Next p
        .HasLegend = False
    End With
End Sub

Bonjour Jean-Eric,

Merci beaucoup pour ton aide, ta macro fonctionne super bien, c'est ce qu'il me fallait.

@+ et bonne journée