Créer un graphique grâce à une macro
Bonjour à toutes et à tous !
Je suis actuellement en stage et je dois réaliser un tableau récapitulant l'ensemble des financeurs intervenant dans la construction de logements sociaux. Afin d'avoir un visuel plus pratique sur la part de chacun dans le financement de projet, j'aurai aimé créer une macro pour proposer un camenbert pour chaque ligne du tableau permettant de visualiser l'ensemble des financeurs (commune, département...) pour chaque opérations.
Pour le moment j'ai enregistrer la macro pour faire le graphique de la première ligne du tableau. Quand je l'exécute le graphique (un camenbert) ne reconnait qu'une seule série, c'est à dire que le camenbert est tout bleu avec une série 1 à 100% alors que j'avais bien fait le graphique lors de l'enregistrement.
La voila:
Sub Macro4()
'
' Macro4 Macro
'
'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPie
ActiveChart.ApplyLayout (6)
ActiveChart.SetSourceData Source:=Range("D2:L3")
ActiveChart.SetSourceData
ActiveChart.SeriesCollection(1).Name = "=Feuil1!$M$2:$M$3"
ActiveChart.SeriesCollection(1).Name = "=""Parts de chaque financeurs"""
End Sub
la ligne "activechart.setsourcedata pose problème...
D2 L3 correspond au noms et au montant des finaneurs
M2 M3 c'est la colonne du montant total de l'opération
Merci beaucoup pour vos réponses !
Salut et bienvenue sur le Forum,
A tout hasard, j'ai essayé de supprimer la ligne
ActiveChart.SetSourceDatadans le fichier ci-joint et ça passe.
Mais comme je ne sais pas ce que tu désires comme résultat final, c'est difficile de savoir si ça te convient.
L'idéal serait que tu nous fournisses à ton tour une fichier dans lequel tu placerais d'une manière manuelle le graphique final que tu désirerais.
Cordialement.
Merci ! je suis arrivé à faire le graphique comme voulu. Mon dernier soucis est le fait que malgré avoir enlever les zéros sur le graphique, les noms des étiquettes correspondant à ces 0 sont toujours présent. Saurais-s tu comment je pourrais dans ma macro faire en sorte qu'elles n'apparaissent plus?
Je te met le fichier !
Je t'ai mis un exemple sur la première feuille !
Merci beaucoup, ça me sauverais que tu m'aide
Salut,
J'ai ouvert ton fichier et j'ai lancé les deux macros qu'il y avait sur la feuille visible à l'écran (est-ce bien celle que tu appelles la "première feuille" ? Il aurait mieux valu en citer le nom précis) et j'ai lancé les macros reliées aux deux boutons que j'ai trouvés. Deux graphiques sans zéro sont alors apparus, selon le fichier ci-joint. Je ne vois pas où tu y vois des zéros gênants.
Quel est le résultat qui ne te convient pas ? Quel est le résultat désiré ?
Je ne suis pas un spécialiste des graphiques, je ne sais pas si je pourrais résoudre ton problème ou non. Mais je peux continuer à essayer.
Tu as deux macros aux noms identiques à deux endroits de ton explorateur VBA (+ tout plein de Modules vides) ; c'est assez peu heureux.
Cordialement.
feuille "carqueiranne" lance la macro, tu a le graphique sans les zéros effectivement mais sur le tableau (ou se base la macro) "la région" à zéros montants et donc zéros pourcentage. Pourtant elle figure sur le graphique dans la légende.
Dsl j'espère avoir été plus précis. Le problème c'est que tous les financeurs (etat région commune) sont présent dans le graphique or ils n'ont pas pour autant financé quoi que ce soit.
Ce vendredi matin, lorsque je consulte ton nouveau message, je constate que personne n’a encore ouvert mon fichier placé hier soir. Ca veut dire que tu m’as répondu sans même te donner la peine de voir le fichier que je t’ai fourni
5StarStunna a écrit :"la région" à zéros montants et donc zéros pourcentage.
Tes explications sont très incompréhensibles. Je ne vois vraiment pas quelle « région à zéro montant »
Dans les graphiques que j’ai réalisés grâce à ta macro, il n’y a pas de zéro.
Désolé, je ne pense pas que je vais pouvoir t’aider plus. Je te conseille de clôturer ce fil en l’indiquant comme « Résolu » (en cliquant sur le petit V vert dans l’un de tes messages) et d’en recommencer un nouveau ; peu de membres s’intéressant encore à un fil bien entamé.
Amicalement.