Créer un graphique

Bonjour à tous,

J'aimerais réaliser une macro permettant de créer un histogramme empilé. Cependant, j'aimerais que le graphique s'adapte lors de l'insertion de nouvelle ligne. J'ai utilisé l'enregistreur de macro. Cependant ce dernier ne fonctionne que pour une plage de données spécifiée. 8)

Je vous joins un exemple du résultat espéré.

Merci de votre aide

John89

Bonjour,

A mettre dans un module et tester

Sub Graph()

    Dim DL As Long
    Sheets(1).Activate
    DL = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:E" & DL).Select
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$E" & DL)
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.SetElement (msoElementLegendRight)
    ActiveChart.ChartTitle.Select
    Selection.Delete
    Range("A1").Select
End Sub

Bonjour M12,

Merci de ton aide. J'ai une petite erreur d'exécution à la ligne:

ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select

As-tu une solution?

Merci

John89

Re,

Créé un macro automatique avec l'enregistreur et regarde les differences entre ton module et le mien

Cela vient peut-être de la version d'Excel

Re,

Voir même mieux, sans aucune macro :

Selectionne une cellule de ton tableau et INSERTION - TABLEAU

C'est automatique

Bonjour M12,

La macro fonctionne parfaitement. Effectivement c’était un problème de compatibilité. Pour finir j'ai retenu ta proposition sans macro, elle correspond exactement à ce dont j'avais besoin. MERCI