Mise à jour automatique d'un graphique

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

Marm

XLDnaute Nouveau
Bonjour à tous,

Voilà je travaille sur une présentation sur excel 2007. Une worksheet contient une liste de données auxquelles sont associées des dates (nommée "1"), une autre des graphiques (nommée "2").

Dans 1, deux cellules servent à indiquer deux dates qui représente une période destinée à figurer dans le graphique en 2. Voici la macro qui me construit le graphique. Elle peut surement être améliorée, je débute en VBA.

J'aimerais qu'à chaque fois que je change une des deux dates, le graphique se mette à jour automatiquement pour faire apparaitre la période correspondante. C'est assez simple je pense, mais après avoir étudié quelques pistes, je bute sur le langage VBA. Auriez vous une solution?
Merci d'avance (car rien ne vous résiste) !

Code:
Sub ChartOngletAnalyse()

Dim MyChart As Chart
Dim DateDebut As Integer
Dim DateFin As Integer
Dim DataRange As Range
Dim PlusHaut As Range
Dim PlusBas As Range

    DateDebut = Sheets(1).Cells(1, 3).Value
    DateFin = Sheets(1).Cells(2, 3).Value
'les valeurs des lignes correspondants aux dates entrées en B1 et B2 sont en C1 et C2
    
    Set DataRange = Sheets(2).Range(Sheets(2).Cells(DateDebut, 1), Sheets(2).Cells(DateFin, 5))
    Set MyChart = Sheets(1).ChartObjects.Add(0, 660, 760, 390).Chart

    MyChart.SetSourceData Source:=DataRange
    MyChart.ChartType = xlStockOHLC
        With MyChart
            .SetElement msoElementLegendNone
            .SetElement msoElementPrimaryValueAxisTitleNone
            .SetElement msoElementPrimaryCategoryAxisTitleNone
            .Axes(xlPrimary).MinimumScale = Cells(1, 2)
            .Axes(xlPrimary).MaximumScale = Cells(2, 2) + 7
        End With

End Sub
 
- 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
1
Affichages
520
Réponses
0
Affichages
459
Réponses
4
Affichages
1 K
Retour