Utiliser deux combobox pour animer un graphique (VBA)

  • Initiateur de la discussion Initiateur de la discussion rascsax
  • 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 !

rascsax

XLDnaute Nouveau
Bonjour à tous,

Je me permets de faire appel à vos lumières.
Je souhaiterais lier deux combobox à un graphique avec l'objectif de pourvoir modifier ce dernier en fonction d'une valeur de début et une valeur de fin (sur l'axe des abscisses).

Dans mon Workbook, j'ai tout d'abord affecté à mes deux combobox une liste de valeurs (numéro de semaine).
Private Sub Workbook_Open()
With Sheets("Analyse")
.ComboBox1.List = Sheets("etb1").Range("A14:A103").Value
.ComboBox2.List = Sheets("etb1").Range("A14:A103").Value
End With
End Sub

Jusqu'ici tout va bien ...

Le problème arrive lorsque je veux affecter à l'axe en abscisse de mon graphique les valeurs des deux combobox.

Private Sub ComboBox1_Change()
Dim ch As ChartObject
For Each ch In ActiveWorkbook.ActiveSheet.ChartObjects
With ch.Chart.Axes(xlCategory)
.MinimumScale = ComboBox1.Value
End With
Next
End Sub

Private Sub ComboBox2_Change()
Dim ch As ChartObject
For Each ch In ActiveWorkbook.ActiveSheet.ChartObjects
With ch.Chart.Axes(xlCategory)
Var = .MaximumScale
.MaximumScale = ComboBox2.Value
End With
Next
End Sub

Visual Basic me souligne les phrases suivantes :
.MinimumScale = ComboBox1.Value
.MaximumScale = ComboBox2.Value

et m'indique une erreur d’exécution

J'ai bien compris que l'erreur était probablement dans ces phrases mais je ne comprends pas pourquoi.
J'ai trouvé des forums ou tutoriels sur ce sujet mais je n'arrive pas à résoudre ce problème.
En vous remerciant par avance de votre précieuse aide.
Je reste disponible pour toute information supplémentaire
A très bientôt
Pascal
 

Pièces jointes

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

Réponses
9
Affichages
201
Réponses
3
Affichages
665
Réponses
1
Affichages
520
Réponses
0
Affichages
459
Réponses
3
Affichages
504
Retour