Ajouter un graphique dans le Chartspace d'un userform

  • Initiateur de la discussion Initiateur de la discussion Gringo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gringo

XLDnaute Junior
Bonjour forum,

J'ai un userform qui contient un listbox et un chartspace. Ce que j'aimerais faire, c'est qu'à chaque fois que je clique sur une valeur de mon listbox, le résultat graphique apparaisse dans le Chartspace. Je suis capable de le faire apparaitre dans une feuille de calcul mais pas dans mon Chartspace de mon userform.

Comment dois-je faire? Voici le code que j'ai dans ma procédure événementielle Listbox1_click:

Code:
Private Sub ListBox1_Click()
Charts.Add
ActiveChart.Location xlLocationAutomatic, Name:="ChartSpace1"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Array(1, 2, 3, 4, 5)
ActiveChart.SeriesCollection(1).Values = Array(Scénario(ListBox1.ListIndex + 1, 1), _
        Scénario(ListBox1.ListIndex + 1, 2), Scénario(ListBox1.ListIndex + 1, 3), _
        Scénario(ListBox1.ListIndex + 1, 4), Scénario(ListBox1.ListIndex + 1, 5))
ActiveChart.ChartType = xlLineMarkers
 
End Sub

J'ai joint mon fichier pour une meilleure compréhension du problème.

Merci de votre aide.

Gringo
 

Pièces jointes

Re : Ajouter un graphique dans le Chartspace d'un userform

Bonjour Michel, le forum,

Je viens tout juste de revenir de ma fin de semaine, j'ai jeté un rapide coup d'oeil au fichier que tu m'as suggéré et ça me semble être ce que je recherche. Je teste le tout et je te reviens.

Merci de ton aide,

Gringo
 
Re : Ajouter un graphique dans le Chartspace d'un userform

Bonjour Michel, le forum,

Michel, le code que tu m'as envoyé est parfait! Ca marche! Merci beaucoup pour ton aide, c'est très apprécié. De plus, j'avais déjà consulté ta page Wiki et il me manquait quelques infos pour faire mon graphique mais je les ai maintenant avec l'autre fichier que tu m'as envoyé.

Merci pour votre aide, vous êtes formidable!

Sincèrement,

Gringo
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour