Créer un graphique en VBA en cliquant sur un bouton

Bonjour à toutes et à tous,

D'abord je remercie infiniment les personnes qui auront lues ces quelques lignes et compris mon problème !

Je vous expose mon problème, ca semble trivial mais je n'y arrive pas :

Besoin :

=> Créer un graphique à bâton automatiquement lorsqu'on l'on clique sur un bouton

But :

=> Obtenir une évolution des dépenses par mois et par catégorie

Contraintes :

=> Le bouton est placé sur une feuille appelée "Launcher"

=> Le graphique à créer est à insérer dans une autre feuille appelée "BDD"

=> Les données à exploiter par le graphique sont dans la feuille "BDD" :

• Il y a 3 colonnes, 1 colonne "Montant", 1 colonne "Catégorie" et 1 colonne "Mois"
• Le tableau de données est exposé comme une base de données

Expérience :

J'ai déjà utilisé des morceaux de code retrouvés sur internet comme :

ActiveSheet.Shapes.AddChart.Select 
 '   ActiveChart.ChartType = xlColumnStacked 
 '   ActiveChart.SeriesCollection.NewSeries 
 '   ActiveChart.SeriesCollection(1).Name = "=Analyse_2014!$C$16" 
 '   ActiveChart.SeriesCollection(1).Values = "=Analyse_2014!$D$16:$O$16" 
 '   ActiveChart.SeriesCollection(1).XValues = "=Analyse_2014!$D$3:$O$3"  

Mais une fois adapté pour mon utilisation, cela ne marche pas, je dois toujours être dans la feuille où je créé mon graphique pour compléter le graphique sinon le code s'arrête à la ligne "ActiveChart.SeriesCollection.NewSeries"

Si vous avez des idées ou même des solutions à me proposer je prends tout de suite !

Je vous laisse en pièce jointe un fichier qui reprend mon énoncé de problématique.

Bien à vous, Valentin

Bonsoir

et merci à vous de me dire merci pour ma participation à votre problème, problème qui commence par le fichier joint qui est au format .xlsx, c'est à dire un format SANS macro....

@ bientôt

LouReeD

Bonjour LooReeD,

Merci pour ta réponse

En effet petite erreur de fichier, je l'avais enregistré en version sans macro sur mon PC avec le même intitulé C'est rectifié!

Dis moi LooReeD aurais tu une idée de comment faire apparaître un graphique sur une plage de cellule d'une feuille excel et commandé par un bouton sur une autre feuille feuille excel, le tout en VBA?

Cordialement

A mon avis ça peut resservir, j'ai trouvé la solution par ci par là donc je la poste :

Mettre ce code dans un module

Option Explicit
Sub CreaGraph()
Dim c As ChartObject, s As Series
With Feuil2
    Set c = .ChartObjects.Add(.Range("G1").Left, .Range("G1").Top, _
        .Range("G1:K1").Width, .Range("G1:G11").Height)
End With
With c.Chart
    .HasTitle = True
    .ChartTitle.Caption = "NomGraph"
    .ChartType = xlColumnClustered
    .SetSourceData Source:=Feuil2.Range("A1:E7")
End With
End Sub

Encore merci et bonne soirée

Bien à vous, Valentin