Discussion :

[Ghost0000]

Bonjour à tous,

J'ai créé un Bouton permettant de mettre à jour un graphique basé sur un sheet nommé "BDD", qui comprend 3 colonnes :
1- Date&Heure au Format "dd/mm/aaaa xx : xx : xx"
2- Hauteur poubelle en cm
3- Poids en Kg

Je souhaite faire afficher :
en x : Date& Heure
en y : Poids en Kg

Jusque là, pas de souci !

Mais le Bouton que j'ai créé ne veux pas mettre à jour mon graphique afin de faire afficher les données des 7 derniers jours (je suis par contre arrivé à faire afficher les x derniers Points) :

Voici le code que j'ai réalisé :

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
Function MAJ_graphique()
ActiveSheet.Unprotect "123"
 
'Mise à jour du graphique :
    ActiveSheet.ChartObjects("Graphique").Activate
    Lastdate = Sheets("BDD").Range("A" & Rows.Count).End(xlUp)     'Dernière date
    LastLine = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
    'DeconcatDate = Left(Lastdate, 10) 'Deconcaténation de l'heure
    LD = DeconcatDate - 6 'Lastdate - 7 jours
    LL = LastLine - 6 'Lastline - 7 lignes
 
    Dim res As String
    Dim res2 As Double
 
    res = CStr(Lastdate)
    'res2 = DateValue(res)
    DeconcatDate = Left(res, 5) 'Deconcaténation de l'heure
 
    'Application.VLOOKUP(lookup_value, table_array, column_index, range_lookup)
 
    x = Application.VLookup(DeconcatDate, Sheets("BDD").Range("A3:C" & Rows.Count).End(xlUp), 2, 1)
    MsgBox x
 
    If LastLine < 10 Then
        ActiveChart.SetSourceData Source:=Sheets("BDD").Range("A3:A" & LastLine, "C3:C" & LastLine), PlotBy:=xlColumns
    Else
        ActiveChart.SetSourceData Source:=Sheets("BDD").Range("A" & LL & ":" & "A" & LastLine, "C" & LL & ":" & "C" & LastLine), PlotBy:=xlColumns
    End If
ActiveSheet.Protect "123"
End Function

Merci de votre Aide.

Cordialement.

GK

[Ghost0000]

J'ai modifié un peu mon code , j'arrive à retourner :

Valeur de la dernière ligne
Valeur de la dernière date
Valeur de la dernière ligne - 6 lignes --> Vision du graph sur les 7 derniers Points

Mais je n'arrive pas :
Valeur de la dernière date - 7 jours --> Vision du graph sur les 7 derniers Jours

Je possède la valeur de la date - 7 jours, il me faut uniquement un moyen de convertir cette date en "numéro de ligne" ? une idée ?

Mon code actualisé :

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
Function MAJ_graphique()
ActiveSheet.Unprotect "123"
 
'Mise à jour du graphique :
    ActiveSheet.ChartObjects("Graphique").Activate
    Lastdate = Sheets("BDD").Range("A" & Rows.Count).End(xlUp)     'Dernière date
    Lastline = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
 
    DeconcatDate = Left(Lastdate, 10) 'Deconcaténation de l'heure
    LD = Lastdate - 6 'Lastdate - 7 jours
    LL = Lastline - 6 'Lastline - 7 lignes
 
Dim res As String
res = CStr(LD)
 
Dim res2 As Double
res2 = DateValue(res)
 
   x = Application.VLookup(res2, Sheets("BDD").Range("A3:C" & Lastline), 1, 1) 'Valeur de LD
 
 
'----------------------- --> tous est OK jusqu'ici.
    If Lastline < 10 Then
        ActiveChart.SetSourceData Source:=Sheets("BDD").Range("A3:A" & Lastline, "C3:C" & Lastline), PlotBy:=xlColumns
    Else
        ActiveChart.SetSourceData Source:=Sheets("BDD").Range("A" & LL & ":" & "A" & Lastline, "C" & LL & ":" & "C" & Lastline), PlotBy:=xlColumns
    End If
ActiveSheet.Protect "123"
End Function

[Ghost0000]

Probleme résolu après recherche sur different Forums :

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
Function MAJ_graphique()
ActiveSheet.Unprotect "123"
 
'Mise à jour du graphique :
    ActiveSheet.ChartObjects("Graphique").Activate
    LastDate = Sheets("BDD").Range("A" & Rows.Count).End(xlUp)     'Dernière date
    Lastline = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
 
    Deconcatdate = Left(LastDate, 10) 'Deconcaténation de l'heure
    LD = LastDate - 6 'Lastdate - 7 jours
    LL = Lastline - 6 'Lastline - 7 lignes
 
Dim res As String
res = CStr(LD)
 
Dim res2 As Double
res2 = DateValue(res)
 
   x = Application.VLookup(res2, Sheets("BDD").Range("A3:C" & Lastline), 1, 1) 'Valeur de LD
colonne = 1
ligne = Application.Match(x, Sheets("BDD").Range("A3:A" & Lastline), False)
'Adresse = Cells(ligne, colonne).Address
 
    If Lastline < 10 Then
        ActiveChart.SetSourceData Source:=Sheets("BDD").Range("A3:A" & Lastline, "C3:C" & Lastline), PlotBy:=xlColumns
    Else
        ActiveChart.SetSourceData Source:=Sheets("BDD").Range("A" & ligne & ":" & "A" & Lastline, "C" & ligne & ":" & "C" & Lastline), PlotBy:=xlColumns
    End If
ActiveSheet.Protect "123"
End Function

Cordialement.

Gk

[mercatog]

Solution sans macro paramétrable (cellule F2)