affichage de données

**fourgeaud** · 21/10/2005, 16h10

Bonjour,
je fais une application de calcul TVA et je veux afficher tout les calculs fait mais lorsque l'utilisateur clique sur afficher l'aperçu la forme se charge mais je suis obliger de faire appaitre l'aperçu à l'aide d'un bouton alors que je voudrais que ça apparaisse dès le chargement de la feuille.(ça ne marche pas avec la procédure form_load())

:

**AlainTech** · 21/10/2005, 19h19

L'aperçu??? Avant impression?

Un peu plus de précision et le code qui ne fonctionne pas, nous permetraient, peut-être de t'aider.

**fourgeaud** · 22/10/2005, 19h59

c'est juste pour faire un affichage général d'un ou plusieurs caculs

voila le code de la form qui permet d'accéder a l'aperçu:

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
 
Dim intError As Integer
Dim intError2 As Integer
Dim intError3 As Integer
 
Private Sub cmdCalc_Click()
    intNum = txtHT.Text
    If cmbTaux.Text = "19.6%" Then
        lblTOT.Caption = intNum + intNum * 0.196
    ElseIf cmbTaux.Text = "5.5%" Then
         lblTOT.Caption = intNum + intNum * 0.055
    Else
        intError = MsgBox("Erreur de Calcul, veuillez choisir un taux de TVA , Merci.", vbOKOnly + vbExclamation, "Erreur de calcul!")
    End If
 
End Sub
 
Private Sub cmdConvert_Click()
    intTOT2 = lblTOT.Caption
    If lblE2.Caption = "€" Then
        intNum = txtHT.Text
        intTOT2 = lblTOT.Caption
        txtHT.Text = intNum * 6.55957
        lblTOT.Caption = intTOT2 * 6.55957
        lblE.Caption = "F"
        lblE2.Caption = "F"
        cmdConvert.Caption = "C&onvertir en Euro(s)"
    ElseIf lblE2.Caption = "F" Then
        intNum = txtHT.Text
        intTOT2 = lblTOT.Caption
        txtHT.Text = intNum / 6.55957
        lblTOT.Caption = intTOT2 / 6.55957
        lblE.Caption = "€"
        lblE2.Caption = "€"
        cmdConvert.Caption = "C&onvertir en Franc(s)"
    End If
End Sub
 
Private Sub cmdExit_Click()
    End
End Sub
 
Private Sub cmdReturn_Click()
    frmHt.Hide
    frmChoice.Show
    Unload Me
End Sub
 
Private Sub Form_Load()
    cmbTaux.AddItem "5.5%"
    cmbTaux.AddItem "19.6%"
End Sub
 
Private Sub mnuControlCalcul_Click()
    intNum = txtHT.Text
    If cmbTaux.Text = "19.6%" Then
        lblTOT.Caption = intNum + intNum * 0.196
    ElseIf cmbTaux.Text = "5.5%" Then
         lblTOT.Caption = intNum + intNum * 0.055
    Else
        intError = MsgBox("Erreur de Calcul, veuillez choisir un taux de TVA , Merci.", vbOKOnly + vbExclamation, "Erreur de calcul!")
    End If
End Sub
 
Private Sub mnuControlConver_Click()
    intTOT2 = lblTOT.Caption
    If lblE2.Caption = "€" Then
        intNum = txtHT.Text
        intTOT2 = lblTOT.Caption
        txtHT.Text = intNum * 6.55957
        lblTOT.Caption = intTOT2 * 6.55957
        lblE.Caption = "F"
        lblE2.Caption = "F"
        mnuControlConver.Caption = "Convertir en Euro(s)"
    ElseIf lblE2.Caption = "F" Then
        intNum = txtHT.Text
        intTOT2 = lblTOT.Caption
        txtHT.Text = intNum / 6.55957
        lblTOT.Caption = intTOT2 / 6.55957
        lblE.Caption = "€"
        lblE2.Caption = "€"
        mnuControlConver.Caption = "Convertir en Franc(s)"
    End If
End Sub
 
Private Sub mnuControlTTC_Click()
    frmHt.Hide
    frmTTC.Show
End Sub
 
Private Sub mnuFileExit_Click()
    End
End Sub
 
Private Sub mnuFileLook_Click()
    If lblE2.Caption = "F" Then
        intError2 = MsgBox("Attention! Impossible d 'afficher l'aperçu, le prix doit être en Euro(s), TVA+ se chargera dans l'aperçu de le mettre en Franc(s).   Merci.", vbCritical + vbOKOnly, "Erreur d'affichage")
    ElseIf txtHT.Text = "00.00" Then
        intError3 = MsgBox("Attention! Impossible d'afficher l'aperçu car il faut que le prix TTC soit calculer merci.", vbOKOnly + vbCritical, "Attention")
    Else
        frmLook.Show
    End If
End Sub

et voila celui de la form qui sert d'aperçu au calcul:

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
 
Private Sub cmdLook_Click()
    strEuro = "Prix en Euro(s)"
    strFranc = "Prix en franc(s)"
    strTVA = "taux de TVA"
    strHT = "Prix hors taxes"
    strTTC = "Prix TTC"
    intNum = frmHt.txtHT.Text
    intTOTa = frmHt.lblTOT.Caption
    frmLook.ScaleMode = vbCharacters
 
    frmLook.CurrentX = 0
    frmLook.CurrentY = 3
    frmLook.Print strEuro
 
    frmLook.CurrentX = 0
    frmLook.CurrentY = 5
    frmLook.Print strFranc
 
    frmLook.CurrentX = 19
    frmLook.CurrentY = 0
    frmLook.Print strHT
 
    frmLook.CurrentX = 36
    frmLook.CurrentY = 0
    frmLook.Print strTVA
 
    frmLook.CurrentX = 49
    frmLook.CurrentY = 0
    frmLook.Print strTTC
 
    frmLook.CurrentX = 19
    frmLook.CurrentY = 3
    frmLook.Print intNum
 
    frmLook.CurrentX = 49
    frmLook.CurrentY = 3
    frmLook.Print intTOTa
 
    frmLook.CurrentX = 19
    frmLook.CurrentY = 5
    frmLook.Print intNum * 6.55957
 
    frmLook.CurrentX = 49
    frmLook.CurrentY = 5
    frmLook.Print intTOTa * 6.55957
 
    cmdLook.Visible = False
End Sub

**méphistopheles** · 22/10/2005, 22h54

t'aurais pas oublié frmlook.show par hazard?

à moins que tu soit dans cette form
dans ce cas, c'est peut-être un probleme de réactualisation.
met alors: Me.AutoRedraw (car tu est dedans)

salut

**fourgeaud** · 22/10/2005, 23h02

S i il y ait dans le code de la première form;
merci quand même de t'intéresser a mon problème.

**méphistopheles** · 22/10/2005, 23h06

donc le cmd_look est une commande située sur la frmlook ?

sinon, je pige pas

salut

**fourgeaud** · 22/10/2005, 23h14

oui c'est un bouton qui me permet d'afficher l'aperçu mais moi ce que je voudrais c'est ne pas avoir besoin de me servir de ce bouton.

**méphistopheles** · 22/10/2005, 23h17

pourquoi ne pa le mettre directement dans le form-load?

au fait, tu à une erreur ou tu n'a rien?

salut

**fourgeaud** · 22/10/2005, 23h26

Quand je le met dans form_load la form ce charge mais rien ne se passe

**méphistopheles** · 22/10/2005, 23h30

et là?

**fourgeaud** · 22/10/2005, 23h34

et là quoi

:

:

non je rigole mais qu'est tu voulais dire au dernier message?

**AlainTech** · 23/10/2005, 05h27

Je crois comprendre que le form s'affiche bien mais sans les données qu'il devrait contenir.

Le clic sur le bouton remplit le form.

C'est bien ça, fourgeaud?

**fourgeaud** · 23/10/2005, 11h23

Salut,

Oui_ c'est exactement ça mais je préfererais que ça s'affiche dès le chargement de la feuille

**méphistopheles** · 23/10/2005, 12h26

il faut que tu utilise la même méthode que celleque je t'ai donnée dans ton probleme "message d'errer: tu met tout ça dans un timer :

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
Private sub form_load()
timer1.interval=1
timer1.enabled=true
end sub
 
Private Sub Timer1_timer() 
    strEuro = "Prix en Euro(s)" 
    strFranc = "Prix en franc(s)" 
    strTVA = "taux de TVA" 
    strHT = "Prix hors taxes" 
    strTTC = "Prix TTC" 
    intNum = frmHt.txtHT.Text 
    intTOTa = frmHt.lblTOT.Caption 
    me.ScaleMode = vbCharacters 
 
    me.CurrentX = 0 
    me.CurrentY = 3 
    me.Print strEuro 
 
    me.CurrentX = 0 
    me.CurrentY = 5 
    me.Print strFranc 
 
    me.CurrentX = 19 
    me.CurrentY = 0 
    me.Print strHT 
 
    me.CurrentX = 36 
    me.CurrentY = 0 
    me.Print strTVA 
 
    me.CurrentX = 49 
    me.CurrentY = 0 
    me.Print strTTC 
 
    me.CurrentX = 19 
    me.CurrentY = 3 
    me.Print intNum 
 
    me.CurrentX = 49 
    me.CurrentY = 3 
    me.Print intTOTa 
 
    me.CurrentX = 19 
    me.CurrentY = 5 
    me.Print intNum * 6.55957 
 
    me.CurrentX = 49 
    me.CurrentY = 5 
    me.Print intTOTa * 6.55957 
 
    cmdLook.Visible = False 
timer.enabled=false
End Sub

(j'ai remplacé frmlook par me)

salut

**ouskel'n'or** · 23/10/2005, 12h27

Je n'ai pas lu tout le code mais juste une idée : pour placer des données dans des contrôles situés dans un autre form, le form doit être ouvert même masqué (Hide) et doit-être nommé lors de l'affectation de ces données.

Code :

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

FormAperçu.Moncontrol.text = RésultatDeMonCalcul

L'autre solution consistant à déclarer la variable RésultatDeMonCalcul en public.
Comme je t'ai dit, je n'ai pas pris le temps de décoder tout ton code mais si c'est ce que tu fais, j'approfondirai

A+

**fourgeaud** · 23/10/2005, 14h44

Salut,

pour répondre à ouskel'n'or la form où il y a les données est ouverte en arrière plan.

Merci méphistopheles pour ton code je vais essayer, en tous cas merci

**fourgeaud** · 23/10/2005, 14h53

Merci c'était exactement ça qu'il fallait faire

affichage de données

VB 6 et antérieur

Discussions similaires

Partager

Partager