Discussion :

[bissos]

Bonjour à tous,

J'ai vu à de nombreuses fois le même genre de problème sur le forum, mais je n'arrive pas a régler le mien... Mon problème est simple, mais complexe à la fois...

Je vous explique, j'ai une plage de données pour un graphique qui doit s'actualiser à chaque mois. J'ai une case qui me dit la ligne max et min qui doit être prise en compte pour la plage de donnée pour le graph. Par contre, je ne suis pas capable de mettre dans la formule pour le graph cette ces cellules pour faire varier la plage de données. (voir fichier joint) pour forum 2.xlsx

J'ai déjà essayer d'utiliser la fonction décaler mais sans résultats!

Je vous ai joint un fichier représentant mon problème...

Merci de votre aide!!!

BISSOS

[Slooby]

Bonjour,


Cette question a déjà été résolu moult fois !
Regarde ce lien sur le forum:

http://www.developpez.net/forums/d81...rce-graphique/

Bonne lecture,

Slooby

[bissos]

Bien que j'avais déjà rechercher sur le forum, cette rubrique que tu m'as présenté m'a été utile (beaucoup) j'ai presque réussi a solutionner mon problème. Mais sachant que ce que j'ai eu a faire avec cette partie est réussie, alors je met résolu... merci a toi

voici ma sln pour les prochains:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub ActualisationGraph()
 
Dim ligne1 As Long
Dim ligne2 As Long
Dim plage1 As Range
Dim i As Long
 
'ligne1 = première ligne à laquelle le range doit être pris en compte
'ligne2 = dernière ligne de la plage de donnée
'plage 1 est la plage qui se décale avec le temps
 
 i = 30
 
    Sheets("Coke tout venant (Tableau)").Activate
    Do
        If (Cells(i, 64).Value) = 0 Then
            Exit Do
        Else
            i = i + 1
        End If
 
    Loop
 
ligne2 = i - 1
ligne1 = ligne2 - 18
 
'Actuatilastion graph calcium (coke tout venant)
Set plage1 = Sheets("Coke tout venant (Tableau)").Range("BL" & ligne1, "BQ" & ligne2)
    Sheets("Coke tout venant (Graphs)").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SetSourceData Source:=Sheets("Coke tout venant (Tableau)").Range("BL9:BQ17", plage1)
 
End Sub