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 ?