Discussion :

[Tuanou]

Bonjour,

Je suis actuellement en stage dans une entreprise et mon sujet de stage concerne un logiciel qui a été developpé en VB6.
Mais voilà, lorsque j'execute le programme, il me genere bien les graphs pour office 2003 mais dès que je passe à office 2010, j'ai quelques problemes.
Enfaite, les légendes sont complements placés au hasard et il y a quelques tracés qui sont aussi modifié.
Donc pour essayé de debugger le programme, j'ai essayé de fixer l'emplacement des légendes à la main mais visiblement, ça ne change pas grand chose.
Orginellement, la légende est placé automatiquement grâce à un petit calcule qui prends en compte la Valeur Max et Min de l'axe des abscisse et de l'axe des ordonnées. Logiquement, je ne devrais pas avoir de problème puisque c'est un calcule mathématique qui positionne ma légende...
J'ai aussi l'impression qu'office 2010 ne prends pas en charges les marges que je lui ai imposé... car j'ai beau modifier les parametres de configuration du logiciel, visuelement j'obtiens la même chose.

Est-ce que quelqu'un pourrait m'éclaircir s'il vous plait.
Merci...

[OhMonBato]

Bonjour,

pour pouvoir t'aider il faudrait au moins que tu nous montres le code de ton programme (à mettre entre les balises CODE, le bouton # au dessus de la zone d'édition des messages), en tout cas au moins la partie concernant ton probleme.

[Tuanou]

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
 
 
            'legend1
 
            Xpoint = Umax(k)
            Ypoint = Qmax(k)
 
            TextZone k, "Réseau HT", Leg1, Xpoint, Ypoint, Xpoint + 2, Ypoint - 2, 5
 
            'legende 2
            Xpoint = Umax(k)
            Ypoint = Qmin(k) + 3 / 4 * (Qmax(k) - Qmin(k))
            TextZone k, "Alternateur", Leg2, Xpoint, Ypoint, Xpoint + 2, Ypoint - 2, 3
 
            'legende 3
            Xpoint = Umax(k)
            Ypoint = Qmin(k) + 2 / 4 * (Qmax(k) - Qmin(k))
            TextZone k, "Transformateur", Leg3, Xpoint, Ypoint, Xpoint + 2, Ypoint - 2
 
 
            'legende 4
            If IPRESENT = 10 Or IPRESENT = 30 Then
                Xpoint = Umax(k)
                Ypoint = Qmin(k) + 1 / 4 * (Qmax(k) - Qmin(k))
                TextZone k, "PMAX", Leg4, Xpoint, Ypoint, Xpoint + 2, Ypoint - 2, 18
 
 
               'Cnr modification 003-D
                ActiveChart.Shapes("PMAX").Select
                Selection.AutoScaleFont = False
                With Selection.Characters.Font
                        .ColorIndex = 18
                        .Size = 8.5
                 End With
                 ActiveChart.Deselect
' Fin modification 003-D
    End If

Oui c'est vrai Donc voilà mon code.
Les Leg1,2,3,4 corresponds à mes légendes qui sont generés en fonction de mes données.

[OhMonBato]

La question traditionnelle : tu code en VB6 ou en VBA ? Comment savoir

[Tuanou]

Alors d'après mon intitulé de stage je code en VB6 ...

Donc pour vous confirmer, je code en VB6

[OhMonBato]

Sauf qu'on ne sait pas ce que fait cette ligne :

Code :

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

TextZone k, "Alternateur", Leg2, Xpoint, Ypoint, Xpoint + 2, Ypoint - 2, 3

C'est une sub qui est appelée sans doute ? Que sont les variables Leg1, Leg2, etc... ? Comment sont-elles déclarées ?

[Tuanou]

voici une capture de ce que me renvoie office 2000.
Donc cette ligne

Code :

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

 TextZone k, "Alternateur", Leg2, Xpoint, Ypoint, Xpoint + 2, Ypoint - 2, 3

me renvoie

GENERATOR
A: 14.96 kV
B: 15.75 kV
C: 16.54 kV

Le code correspondant aux Leg :

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
 'Legendes
    Leg1 = UCase(Leg1)
    Leg2 = UCase(Leg2)
    Leg3 = UCase(Leg3)
 
    If IPRESENT = 10 Or IPRESENT = 30 Then
        Leg4 = UCase(Leg4)
    End If
        'legende 1
    For j = 1 To NBURES(k)
    ' modif version 003-C
    ' Ajout d'un espace dans la légende
      Leg1 = Leg1 & Chr$(10) & " " & j & ":  " & URES(k, j) & " kV"
 
    Next j
        'legende 2
    For j = 1 To NBUALT(k)
    ' modif version 003-C
    ' Ajout d'un espace dans la légende
        Leg2 = Leg2 & Chr$(10) & " " & ColHeader(j - 1) & ":  " & UALT(k, j) & " kV"
 
    Next j
        'legende 3
 
     Leg3 = Leg3 & Chr$(10) & " " & UNTRHT(k) & " kV / " & UNTRBT(k) & " kV" _
    & Chr$(10) & "  " & "Ucc = " & UCCPC(k) & " %" & Chr$(10) _
    & "  " & "S = " & SNTR(k) & " MVA"
        'legende 4
        'modification 003-D
    If IPRESENT = 10 Or IPRESENT = 30 Then
        Leg4 = "Pmax=" & PMAX(k) & " MW" ' Leg4 & Chr$(10) &
    End If

Et oui, tout le code, traçage et légende se trouve dans un

Public Sub TraceGraphUQ()

et il a declaré les variables comme telle mais je ne sais pas à quoi peuvent servir les "!" à la point du Xpoint et Ypoint :

Code :

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

1
2
Dim Leg1$, Leg2$, Leg3$, Leg4$ 'légendes 1->3 (haut -> bas)
         Dim Xpoint!, Ypoint!

L'étudiant qui m'a precedé a vraiment codé comme un ... il y a des variables qui sont en anglais d'autre français et même des morçeau de code bourré de calcule avec 0 commentaire....
Donc j'ai mis en piece jointe, une capture avec excel 2000 et une avec excel 2010

[OhMonBato]

Si je comprends bien, ton probleme est de définir la marge de ton graphique et de placer correctement tes légendes ?
Si c'est bien ça, pourquoi ne nous montres tu pas le code qui est chargé de définir la marge et le placement des légendes ?
As tu essayé de le faire manuellement sous office 2010 en enregistrant une macro et de voir le code que ça générait pour le comparer avec ton code ?

[Tuanou]

Oui, j'ai dans un premier temps un probleme de marge aussi. Mais le problème est que non seulement j'a un souci avec la légende mais si vous regardez bien, j'ai aussi un problème avec le tracé de mes points "vert" qui devient un espece de "zigzag"...
J'a essayé de mofidier la marge manuellement mais rien ne change sur office 2010.
Enfaite, mon programme prends en entrée un fichier de config qui lui donne des marges par defauts. Donc à partir de là, j'ai modifier le fichier de config mais j'obtiens toujours la même chose.

Le code qui donne les valeurs par defaut :

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
Public Sub WriteParametreFile(ParametreFile As String)
Dim numFich
Dim tableau(1 To 6) As Single
tableau(1) = 3.8  'Marge gauche
tableau(2) = 3.8  'Marge droite
tableau(3) = 2.5  'Marge haut
tableau(4) = 2.5  'Marge bas
tableau(5) = 1.3  'Marge tete
tableau(6) = 1.3  'Marge pied
numFich = FreeFile
Open ParametreFile For Output As #numFich
    For l% = 1 To 6
         Print #numFich, tableau(l%)
    Next l%
Close #numFich
 
End Sub

Ensuite, pour lire les marge on fait comme ça :

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
Public Sub Readparametre()
 
    Dim fso As Scripting.FileSystemObject
    Dim MyFile As TextStream
    MargeFile = App.path & "\parametres.conf"
 
 
    Set fso = New Scripting.FileSystemObject
 
    Set MyFile = fso.OpenTextFile(MargeFile, ForReading, False, TristateFalse)
 
 
 
        Marge_gauche = MyFile.ReadLine
        Marge_gauche = Trim(Marge_gauche)
 
 
        Marge_droite = MyFile.ReadLine
        Marge_droite = (Trim(Marge_droite))
 
 
 
        Marge_haut = MyFile.ReadLine
        Marge_haut = (Trim(Marge_haut))
 
 
        Marge_bas = MyFile.ReadLine
        Marge_bas = (Trim(Marge_bas))
 
 
        Marge_tete = MyFile.ReadLine
        Marge_tete = (Trim(Marge_tete))
 
 
        Marge_pied = MyFile.ReadLine
        Marge_pied = (Trim(Marge_pied))
 
 
    MyFile.Close
    Set MyFile = Nothing
    Set fso = Nothing
 
 
 
End Sub

On reprends alors le code du tracer de graph qui lit les marges dans le fichier parametre.conf

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
267
268
269
Private Sub TraceDiagUQ(k%, N1$, N2$, L2%, N3$, L4%, N4$)
'trace 1 graphique
 
 
 
'N1 = NBUALT
'N2 = NBPTS
'L2 = LAlt
'N3 = NBURES
'L4 = Lres
'N4 = NBPTSSUP
 
Dim bloc1$, bloc2$, bloc3$, A$, B$
 
Dim L1%, L3%, L5%
Dim XYlegend$, Xunit$, Yunit$, Titre$
 
' Modification version 003-C 23/08/2005
 
 
    Dim fso As Scripting.FileSystemObject
    Dim MyFile As TextStream
    Dim ligne As Double
 
 
    MargeFile = App.path & "\parametres.conf"
 
' Fin modification version 003-C 23/08/2005
 
 
 
ColHeader = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", _
"AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", _
"BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", _
"CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CI", "CJ", "CK", "CL", "CM", "CN", "CO", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ", _
"DA", "DB", "DC", "DD", "DE", "DF", "DG", "DH", "DI", "DJ", "DK", "DL", "DM", "DN", "DO", "DP", "DQ", "DR", "DS", "DT", "DU", "DV", "DW", "DX", "DY", "DZ", _
"EA", "EB", "EC", "ED", "EE", "EF", "EG", "EH", "EI", "EJ", "EK", "EL", "EM", "EN", "EO", "EP", "EQ", "ER", "ES", "ET", "EU", "EV", "EW", "EX", "EY", "EZ", _
"FA", "FB", "FC", "FD", "FE", "FF", "FG", "FH", "FI", "FJ", "FK", "FL", "FM", "FN", "FO", "FP", "FQ", "FR", "FS", "FT", "FU", "FV", "FW", "FX", "FY", "FZ", _
"GA", "GB", "GC", "GD", "GE", "GF", "GG", "GH", "GI", "GJ", "GK", "GL", "GM", "GN", "GO", "GP", "GQ", "GR", "GS", "GT", "GU", "GV", "GW", "GX", "GY", "GZ", _
"HA", "HB", "HC", "HD", "HE", "HF", "HG", "HH", "HI", "HJ", "HK", "HL", "HM", "HN", "HO", "HP", "HQ", "HR", "HS", "HT", "HU", "HV", "HW", "HX", "HY", "HZ", _
"IA", "IB", "IC", "ID", "IE", "IF", "IG", "IH", "II", "IJ", "IK", "IL", "IM", "IN", "IO", "IP", "IQ", "IR", "IS", "IT", "IU", "IV", "IW", "IX", "IY", "IZ")
 
 
A = ColHeader((k - 1) * 3)
B = ColHeader((k - 1) * 3 + 1)
L1 = N1 * (N2 + 1) - 1 + 2 * (N1 + 1) 'fin bloc
bloc1 = A & "1:" & A & L1 & ";" & B & "1:" & B & L1
L3 = L2 + 3 * N3 - 2
bloc2 = A & L2 & ":" & A & L3 & ";" & B & L2 & ":" & B & L3
If N4 = 0 Then
    L5 = L4
    Else
    L5 = L4 + N4
End If
bloc3 = A & L4 & ":" & A & L5 & ";" & B & L4 & ":" & B & L5
 
'Modifications 003-D
 
    If DeltaQ(k) >= 1 Then
       Nbre_decimal_Q = "0"
    Else
        If DeltaQ(k) >= 0.1 Then
           Nbre_decimal_Q = "0.0"
        Else
           Nbre_decimal_Q = "0.00"
        End If
    End If
 
 
     If DeltaU(k) >= 1 Then
       Nbre_decimal_U = "0"
    Else
        If DeltaU(k) >= 0.1 Then
           Nbre_decimal_U = "0.0"
        Else
           Nbre_decimal_U = "0.00"
        End If
    End If
 
 
 
 
If ILANG = "1" Then
        Xlegend = "Tension réseau HT"
        Ylegend = "Puissance réactive réseau HT"
        Titre = "Diagramme Puissance réactive réseau HT / tension réseau HT" & Chr$(10) & _
        "avec une puissance active de " & PALT(k) & " MW"
Else
        Ylegend = "HV network Reactive power"
        Xlegend = "HV network Voltage"
        Titre = "HV network reactive power / HV network voltage chart" & Chr$(10) & _
        "at " & PALT(k) & " MW generator active power"
End If
 
If (IPRESENT = "3" Or IPRESENT = "1") Then
        Yunit = "(Mvar)"
        Xunit = "(kV)"
Else
        Yunit = "(Q/Pmax)"
        Xunit = "(kV)"
End If
'fin de modification 003-D
 
 
 
' pour le titre
Charts.Add after:=Sheets(Sheets.Count)
ActiveChart.ChartArea.AutoScaleFont = False
'ActiveWindow.Zoom = 100 'ne marche pas avec win2k et winXP
With ActiveChart
        .Location Where:=xlLocationAsNewSheet, Name:=Str$(k) 'nom du graphique=son numéro
        .ChartType = xlXYScatter
        .PlotArea.Interior.ColorIndex = xlNone 'à revoir
        .Legend.Position = xlLegendPositionRight
        .SetSourceData Source:=Sheets("caduq").Range(bloc1), PlotBy:=xlColumns
        .SeriesCollection.Add Source:=Worksheets("caduq").Range(bloc2) 'PlotBy:=xlColumns
        .SeriesCollection(2).Border.LineStyle = xlDashDot
        .SeriesCollection(2).Border.Weight = xlThin
        .HasTitle = True
        .ChartTitle.Characters.Text = UCase(Titre)
        .ChartTitle.Characters.Font.Size = 12
        .ChartTitle.Left = 290
        .ChartTitle.Top = 10
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = UCase(Xlegend) & " " & Xunit   'XLEGEND
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = UCase(Ylegend) & " " & Yunit 'Ylegend
 
End With
 
With ActiveChart.SeriesCollection(1)
    .Border.ColorIndex = 3
    .MarkerStyle = xlNone
End With
 
With ActiveChart.SeriesCollection(2)
    .Border.ColorIndex = 5
    .MarkerStyle = xlNone
End With
 
If N4 > 0 Then
        ActiveChart.SeriesCollection.Add Source:=Worksheets("caduq").Range(bloc3)
 
    With ActiveChart.SeriesCollection(3)
        .Border.ColorIndex = 10
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = 10
        .MarkerStyle = xlNone
 
    End With
 
 
 ' Modification 003-C
 
 If N66(k) < 0 Then
 
     With ActiveChart.SeriesCollection(3)
        .Border.ColorIndex = 10
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = 10
        .MarkerStyle = xlStar
        .MarkerSize = 8
'        .ApplyDataLabels Type:= _
'        xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
     End With
 
        ActiveChart.SeriesCollection(3).Select
 
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlNone
    End With
 
  End If
 
End If
 
 
With ActiveChart.Axes(xlValue)
 
        '.TickLabels.NumberFormat = "0"
        .TickLabels.NumberFormat = Nbre_decimal_Q
        .MinimumScale = Qmin(k)
        .MaximumScale = Qmax(k)
        .MajorUnit = DeltaQ(k)
        .HasMajorGridlines = True
        .MajorGridlines.Border.ColorIndex = 15
        .MajorGridlines.Border.Weight = xlThin
        .AxisTitle.Orientation = xlUpward 'xlVertical 'xlHorizontal
 
        '.AxisTitle.Left = 9 '25
        '.AxisTitle.Top = 120 '40
        '.AxisTitle.VtFont.Size = 100
        ' Modification version 003-C 02-08-2005
        'On change l'épaisseur de l'axe principal des Y
 
        .Border.Weight = xlMedium
 
        ' Fin modification version 003-C 02-08-2005
 
End With
 
 
'Axe X = U
 
With ActiveChart.Axes(xlCategory)
 
        'TickLabels.NumberFormat = "0.00"
        .TickLabels.NumberFormat = Nbre_decimal_U
        .TickLabelPosition = xlLow
        .MinimumScale = Umin(k)
        .MaximumScale = Umax(k)
        .MajorUnit = DeltaU(k)
        .HasMajorGridlines = True
        .MajorGridlines.Border.ColorIndex = 15
        .MajorGridlines.Border.Weight = xlThin
        .AxisTitle.Orientation = xlHorizontal
 
        ' Modification version 003-C 02-08-2005
        'On change l'épaisseur de l'axe principal des X
 
        .Border.Weight = xlMedium
 
        ' Fin modification version 003-C 02-08-2005
 
 
End With
 
'AQ
 
With ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 5, 22, 12)
        .TextFrame.Characters.Text = "AQ#" & ICOMAQ
        .TextFrame.HorizontalAlignment = xlLeft
        .TextFrame.VerticalAlignment = xlTop
        .TextFrame.Characters.Font.Size = 8
        .TextFrame.AutoSize = True
        .Name = "numéro AQ"
End With
 
With ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 10, 260, 30)
        .TextFrame.Characters.Text = AFFNOM
        .TextFrame.HorizontalAlignment = xlLeft  'modif 003-C  xlCenter ->  xlLeft
        .TextFrame.VerticalAlignment = xlCenter
        .TextFrame.Characters.Font.FontStyle = "Gras italique"
        .TextFrame.Characters.Font.Size = 14 'modif 003-C/D 20 -> 16 ->12 -> 14
'        .TextFrame.Characters.Text = AFFNOM
End With
 
ActiveChart.ChartArea.Border.LineStyle = xlAutomatic
 
ActiveChart.Legend.Delete
 
    With ActiveSheet.PageSetup
 
        .LeftMargin = Application.CentimetersToPoints(Marge_gauche)
 
        .RightMargin = Application.CentimetersToPoints(Marge_droite)
 
        .TopMargin = Application.CentimetersToPoints(Marge_haut)
 
        .BottomMargin = Application.CentimetersToPoints(Marge_bas)
 
        .HeaderMargin = Application.CentimetersToPoints(Marge_tete)
 
        .FooterMargin = Application.CentimetersToPoints(Marge_pied)
 
    End With
 
End Sub

Pour la génération du code, je n'ai pas testé...

[OhMonBato]

Toujours aucun code utile, je laisse tomber.... Bon courage.

[Tuanou]

Je viens de réactualiser mon post, il est plus complet et comprends les codes qui font appellent au fichier de parametrage.

Je ne sais vraiment pas d'où peut provenir le probleme