Comment utiliser la liste des types de graphique?

[jpclabaux]

Salut,

J'ai une macro qui crée un graphique. J'aimerai faire choisir le type de graphique par l'utilisateur comme s'il utilisait l'option d'Excel.

Est-ce possible?

Merci,
Jean

[ZebreLoup]

Oui, c'est possible, mais tous les types de graphiques ne fonctionneront pas forcément de la même façon. Il faudra peut-être adapter la création de ton graphique en fonction du type choisi.
Je pense qu'on pourra plus t'aider si tu précises quels types de graphiques seront disponibles et que tu donnes le code que tu utilises pour créer ton graphique.

[jpclabaux]

Salut,

Mon est tout simple.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
        Sheets(dataSourceSheet).Activate
        Charts.Add
 
        'Ajoute une série dans le graphique
        ActiveChart.HasTitle = True
        ActiveChart.ChartTitle.Characters.Text = titrGraph
        ActiveChart.SetSourceData Source:=Sheets(NomFeuilGr).Range("A2:C" & ligne)
        'Définit le type
        ActiveChart.ChartType = typGraph 
        ActiveChart.HasLegend = False
        ActiveChart.Location Where:=xlLocationAsObject, Name:=NomFeuilGr

Avant ça je voudrais afficher la fenêtre des graphiques d'excel (comme si je cliquais sur insert, chart) et en fonction du choix de l'utilisateur j'affecte la valeur à la variable typGraph.
Comment je peux faire ça?

Jean

[ZebreLoup]

Je ne sais pas si tu peux afficher la fenêtre de l'assistant d'Excel. A mon avis, il faudra plutôt faire toi-même un UserForm pour donner le choix à l'utilisateur.

[jpclabaux]

J'ai trouvé.
On peut afficher la boite de dialogue des graphiques comme ceci:

Code :

Application.Dialogs(xlDialogChartType).Show

Par contre, impossible de récupérer le résultats de la saisie.
J'ai donc créer un formulaire en intégrant les images des graphiques.
C'est dommage qu'on ne puisse pas utiliser cette fenêtre.