Générer un graph en VBA

Mesdames, messieurs, bonjour.

Je suis à la recherche depuis un petit moment maintenant de comment générer un graph en vba. Je commence tout juste à coder et je suis une vraie "zézette". J'ai recherché sur le forum mais je ne trouve pas ce que je souhaite.

Merci d'avance pour le temps que vous accorderez à ma requête.

12fdg.xlsm (45.76 Ko)

Bonjour

Ci joint une proposition

reste a voir pour un placement dans la feuille

Fred

33fdg.xlsm (39.39 Ko)

Merci beaucoup pour cette réponse ultra rapide et répondant à mes attentes. Juste une question pour générer autant de boutons "graph" que nécessaire dois-je créer à chaque fois un module ou puis-je codé ça comme un userform ?

Merci encore pour la rapidité et la précision de la réponse.

Re bonjour

Quel est le but exactement ?? car j'ai pas compris ta question précédente ??

avoir un seul graphique et mettre jour les données du graphique en fonction de la ligne selectionnée ?? alphonse, Albert, jean claude,.....

ou de vraiment créé un graphe par personne ?

fred

Re bonjour,

le but est de créer un graphique par personne au moment où l'on clique sur le bouton.

Cela est-il possible?

Soit je mets un bouton par ligne, soit je mets un bouton unique avec sélection de la ligne à chaque fois.

Sachant que j'ai une préférence pour le bouton par ligne.

Je ne sais pas si je me fais bien comprendre ...

Merci

Re

ci joint ton fichier avec 2 codes différents

le premier adapte la zone en fonction de la ligne selectionnée... dans cette optique, la procédure serait un seul bouton et tu selectionne le nom que tu veux et ensuite tu appuie sur le bouton pour creer le graphe

le deuxième, un peu fastidieux, tu as un bouton par ligne, le nom du bouton doit etre personnalisé comme dans l'exemple "bouton 3", bouton 4,..... avec 3 4, le numéro de la ligne ou se trouve le bouton

capture

le code récupère donc le nombre situé en bout de nom pour récupérer le numéro de ligne et faire le graphe, j'ai pas trouvé en faisant appel à la position du bouton dans la page...

fred

15fdg.xlsm (44.89 Ko)

Merci beaucoup !!

J'ai opté pour le bouton unique qui est plus simple à adapter.

Merci énormément de ta sollicitude, ça va me faciliter grandement la vie.

Merci encore

Bonjour à tous

Un peu tard mais sans aucun code.

Cordialement

17efge-1.xlsx (23.69 Ko)

Merci beaucoup pour votre réponse également.

Merci encore à tous pour ces réponses, mais j'ai un autre soucis. Cela ne fonctionne pas avec excel 2010, sur ma version 2016 aucun problème mais pas sur 2010.

Auriez vous une solution à m'apporter ??

Merci d'avance

Bonjour

Cela fonctionne sur office 2007 chez moi, donc a priori c'est OK, cela ne serait pas lié au paramètre de sécurité sur les macros d'office 2010 ??? les macros sont activées ??

fred

fred2406 a écrit :

Bonjour

Cela fonctionne sur office 2007 chez moi, donc a priori c'est OK, cela ne serait pas lié au paramètre de sécurité sur les macros d'office 2010 ??? les macros sont activées ??

fred

Bonjour Fred,

Je pense que les macros sont activées puisque l'userform fonctionne toujours.

Je joins une capture d'écran du problème. J'ai beau chercher je ne comprends pas le problème

Merci

capture

quel est le ligne surlignée ?

fred

Deux lignes sont surlignées, la première en jaune c'est "sub graph ()", la seconde en bleue ".FullSeriesCollection".

Cordialement

N'ayant pas Excel 2010 cela va etre compliqué..;

cependant

prend l'enregistreur de macro et enregistre un macro

pendant l'enregistrement fait le graphique à la main

et a la fin arrête l'enregistrement repost ici le code généré par excel dans ces conditions

Fred

En espérant l'avoir fait correctement ...

Sub test()

'

' test Macro

'

'

Range("CS2:CY3,A3").Select

Range("A3").Activate

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlPie

ActiveChart.SetSourceData Source:=Range("'2017'!$CS$2:$CY$3;'2017'!$A$3")

ActiveSheet.Shapes("Graphique 1").IncrementLeft 6377.1428346457

ActiveSheet.Shapes("Graphique 1").IncrementTop 60

End Sub

Cordialement

re fais un essai avec le fichier joint

fred

19fdg.xlsm (36.06 Ko)

Un seul mot pour ça: MERCI.

Cela fonctionne parfaitement. Je ne sais pas comment te remercier !!

Merci beaucoup.

Cordialement

C'est déjà bien d'avoir un retour.... ce qui n'est pas toujours le cas....

et n'oubli pas

Fred

Je vais le faire pour la deuxième fois en espérant que ce soit la bonne !!!

Bonne soirée et bonne continuation

Rechercher des sujets similaires à "generer graph vba"