Condition sur graphe à données variables

[rafou29]

Bonjour à tous,

Je souhaiterais mettre une condition sur mon graphe pour que celui-ci n'affiche que les cellules avec des valeurs, en sachant que mon tableau à un nombre de colonnes fixes mais à lignes variables.

Mon problème est que je n'ai jamais adapté de condition dans un graphe !

Voici une bribe de code utile comme condition mais l'adapter à un graphe dépasse mes compétences.

Range([B3], [C5000].End(xlUp)).Select

Voici mon code :

Sheets("Sheet3").Select
Range("C3:D30").Select
    Application.CutCopyMode = False
    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("C3:D30") _
        , PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).XValues = "=Sheet3!C3:C30"
    ActiveChart.SeriesCollection(1).Name = "=""1"""
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
    With ActiveChart
        .HasTitle = True
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "%"
    End With
    ActiveChart.HasLegend = False
    ActiveChart.HasDataTable = False

    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .CrossesAt = 1
        .TickLabelSpacing = 1
        .TickMarkSpacing = 1
        .AxisBetweenCategories = True
        .ReversePlotOrder = False
    End With
    
    With ActiveChart.Axes(xlCategory).TickLabels
    .NumberFormat = "m/d/yyyy"
    .Orientation = 45
    End With

Je vous joint aussi mon fichier pour que vous ayez un meilleur aperçu de mon problème.


Merci de votre attention !