Discussion :

[Ghost0000]

Bonjour à tous,

J'ai un problème au Niveau d'une fonction (assez complexe : à force de venir poser des questions sur ce Forum ^^)

En réalité, je dispose d'une page Avec 20 graphiques.
Sur cette page, j'y ai placé un Bouton permettant d'ouvrir un userform et de modifier les plages de données à afficher sur chaque graphiques !

A coté de chaque graphiques, j'y ai ajouté un Label (Label.caption) où je viens écrire pour chacun d'eux le total de la valeur affiché sur le graphique !

Mais !!! .... je n'arrive pas à faire afficher la bonne valeur ! J'arrive uniquement à faire afficher le total sur les 7 derniers jours !

Accrochez-vous, voici la macro ... (En bleu les parties du code partiellement fonctionnelle)

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
Function MAJ_graphique()
Sheets("Rapport Semaine").Activate
ActiveSheet.Unprotect "protection"

'Initialisation des fonctions
Miseazero_caption

'Mise à jour des graphiques :
For j = 0 To 20 '20 graphiques (Le "0" compris)

    Select Case j
    Case 0 
    d = "1"
    e = "A"
    f = "C"

    Case 1
    d = "1"
    e = "D"
    f = "F"

    Case 2 
    d = "3"
    e = "G"
    f = "I"

    Case 3 
    d = "3"
    e = "J"
    f = "L"

    Case 4
    d = "4"
    e = "M"
    f = "O"
 
    Case 5 
    d = "5"
    e = "P"
    f = "R"

    Case 6 
    d = "6"
    e = "S"
    f = "U"
 
    Case 7 
    d = "7"
    e = "V"
    f = "X"
   
    Case 8 
    d = "8"
    e = "Y"
    f = "AA"
    
    Case 9 
    d = "9"
    e = "AB"
    f = "AD"

    Case 10 
    d = "10"
    e = "AE"
    f = "AG"
     
    Case 11 
    d = "11"
    e = "AH"
    f = "AI"
 
    Case 12 
    d = "12"
    e = "AH"
    f = "AJ"
    
    Case 13 
    d = "13"
    e = "AH"
    f = "AK"

    Case 14 
    d = "14"
    e = "AL"
    f = "AM"

    Case 15 
    d = "15"
    e = "AL"
    f = "AN"
    
    Case 16 
    d = "16"
    e = "AL"
    f = "AO"
    
    Case 17 
    d = "17"
    e = "AP"
    f = "AR"
    
    Case 18
    d = "18"
    e = "AS"
    f = "AU"
    
    Case 19 
    d = "19"
    e = "AV"
    f = "AX"

    Case 20 
    d = "20"
    e = "AY"
    f = "BA"

    End Select
    g = e & "3" & ":" & f
    h = e & "3" & ":" & e
    i = f & "3" & ":" & f
      
    'Mise en forme des graphiques (juste la date en abcisse x) :
    ActiveSheet.ChartObjects(d).Activate
    ActiveSheet.ChartObjects(d).Activate
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.NumberFormat = "dd.mm.yy;@"
    Application.CommandBars("Format Object").Visible = False

    'Traitement de MAJ Graphique :
    ActiveSheet.ChartObjects(d).Activate
    
    Lastdate = Sheets("BDD").Range(e & Rows.Count).End(xlUp)     'Dernière date
    If Lastdate = "Dates & Heures" Then GoTo reboucler
    lastline = Sheets("BDD").Range(e & Rows.Count).End(xlUp).Row 'Dernière ligne
       
    Deconcatdate = Left(Lastdate, 10) 'Deconcaténation de l'heure
    Deconcatdate2 = Left(Lastdate, 2) 'Deconcaténation (pour obtenir le jour)
    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)
'
Dim res3 As String
res3 = CStr(Range("O2").Value)
Dim res4 As Double
res4 = DateValue(res3)
'
Do
Do
x = Application.VLookup(res2, Sheets("BDD").Range(g & lastline), 1, 1) 'Valeur de LD
x2 = Application.VLookup(res4, Sheets("BDD").Range(g & lastline), 1, 1) 'Valeur de LD 'Valeur dynamique (Date)

res2 = res2 + 1
res4 = res4 + 1
Loop While IsError(x) = True
Loop While IsError(x2) = True

colonne = 1
ligne = Application.Match(x, Sheets("BDD").Range(h & lastline), False)
ligne2 = Application.Match(x2, Sheets("BDD").Range(h & lastline), False)

Var = ligne + 2
Var2 = ligne2 + 3

'Conditions spécifiques à Station BB (gestion 4 colonnes)
If j = 11 Or j = 12 Or j = 13 Or j = 14 Or j = 15 Or j = 16 Then
Var = Var - 15

If Var < 0 Then
'Forçage valeur par défaut
Var = 3
End If

End If

    If lastline < 10 Then '-----------------------------------------------------------------
    
    With Worksheets("BDD")
        ActiveChart.SetSourceData Source:=Union(.Range(h & lastline), .Range(i & lastline)), PlotBy:=xlColumns
        Dim Cell As Range
                         Dim Resultat As String

                         For Each Cell In Sheets("BDD").Range(g & lastline)
                         If Not Cell = "" Then
                         Resultat = Resultat & Cell.Address & Chr(10)
                         End If
                         Next Cell

                         If Resultat = "" Then
                         With ActiveChart.Axes(xlCategory)
                                    .MinimumScaleIsAuto = True
                                    .MaximumScaleIsAuto = True
                                    .MajorUnitIsAuto = True
                        End With
                         Else
                            With ActiveChart.Axes(xlCategory)
                                    .MaximumScale = Range("O1").Value
                                    .MinimumScale = Range("O2").Value
                                    .MajorUnit = Range("O3").Value
                            End With
                         End If
    End With
    
        'Calcul du total en Kg pour la période
        With Sheets("Rapport Semaine")
        Total = "Label" & (j + 1)
        
        Test = Application.WorksheetFunction.Sum(Range("BDD!" & i & lastline))
        If Test <> "" Then
        .OLEObjects(Total).Object.Caption = Application.WorksheetFunction.Sum(Range("BDD!" & i & lastline))
        Else
        Miseazero_caption
        End If   
        End With     
    
    Else '----------------------------------------------------------------------------------
    
    With Worksheets("BDD")
        ActiveChart.SetSourceData Source:=Union(.Range(e & Var & ":" & e & lastline), .Range(f & Var & ":" & f & lastline)), PlotBy:=xlColumns
    Dim Cell2 As Range
                     Dim Resultat2 As String

                     For Each Cell2 In Sheets("BDD").Range(g & lastline)
                     If Not Cell2 = "" Then
                     Resultat2 = Resultat2 & Cell2.Address & Chr(10)
                     End If
                     Next Cell2

                     If Resultat2 = "" Then
                                .MinimumScaleIsAuto = True
                                .MaximumScaleIsAuto = True
                                .MajorUnitIsAuto = True
                     Else
                        With ActiveChart.Axes(xlCategory)
                               .MaximumScale = Range("O1").Value
                               .MinimumScale = Range("O2").Value
                               .MajorUnit = Range("O3").Value
                        End With
                     End If
    End With
    
        'Calcul du total en Kg pour la période
        With Sheets("Rapport Semaine")
        Total = "Label" & (j + 1)

        k = f & Var2 & ":" & f & lastline
        test2 = Application.WorksheetFunction.Sum(Range("BDD!" & k))
        If test2 <> "" Then
        .OLEObjects(Total).Object.Caption = Application.WorksheetFunction.Sum(Range("BDD!" & k))
        Else
        Miseazero_caption
        End If

        End With
        
    End If '--------------------------------------------------------------------------------

reboucler:
Next

ActiveSheet.Protect "protection"
End Function

Personnellement, je pense que cela provient de ma variable "VAR2" où les conditions sont mal défini.

Pourriez-vous m'aidez SVP ? Cela fais plus de 2 h que je regarde ce code...

Cordialement.

GK

[Kimy_Ire]

Bonjour Ghost0000,

En effet, c'est illisible.
Pas d’indentations, peu ou pas de déclarations de variables, beaucoup de trop de variables qui pourraient être supprimées.

Un code clair est un code où l'on se retrouve et où l'on commente, surtout quand il est aussi long que le tien. Par ailleurs, il pourrait surement être divisé en plusieurs fonctions afin d'être également plus clair.

Je ne vais pas faire avancé le schmilblick, parce que je ne suis pas capable (ou pas envie ) de décortiquer ton code.
Ce qui est sûr, c'est que ta somme doit se faire sur 7 valeurs au lieu des X que tu souhaites.
Visualise/analyse l'adresse que tu passes en paramètre lorsque tu fais ton Application.Sum et tu verras quels sont les éléments à changer afin de te permettre de trouver la bonne plage de valeur.

Cordialement,
Kimy

[Ghost0000]

Je vais pas me retaper le code, par contre, tu as Raison, je vais mettre des Points STOP afin de tester les valeurs à afficher si elles correspondent à la réalité !

Je viendrais reposter Sous forme de Tableau les résultats de mon test.

Merci pour le Conseil !

GK

[Ghost0000]

Voici le résultat de mes investigations. en Effet je suppose que les champs à afficher ne sont pas du tout les Bons... en Effet j'utilise la variable x qui doit normalement aller chercher ces bonne plages de valeurs (x renvoit la ligne en fonction de la date)