Discussion :

[grisan29]

bonjour a vous

je voudrais pouvoir faire la somme des 2 textbox recevant le HT et le compte de tva en textbox15
DARANC a déja bien bossé sur ce fichier qui est sur cette discussion

http://www.developpez.net/forums/d12...ancer-message/

j'aiessayer ceci

Code :

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

TextBox15.Value = CDbl(TextBox13.Value) + CDbl(TextBox12.Value)

mais sans succes
il faut savoir que la valeur des textbox de HT et tva change a chaque ligne inscrite et le tout se trouve sur un usf, je remet le fichier car je l'ai enlever par erreur

cordialement

Pascal

[jfontaine]

Bonjour,

Sans plus d'information sur ton problème impossible de t'en dire plus.

Erreur? si oui, laquelle? si non quoi?

[grisan29]

bonjour JFontaine

donc j'ai 2 textbox dont un textbox12 qui recoit le calcul total Ht des données venant au fur et a mesure de l'inscription de donnees dans une listview et un autre textbox13 qui lui recoit la somme de tva

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
Dim t
'venant de DARANC du forum developpez
Dim tva7 As Double
 
Dim tva196 As Double
On Error Resume Next
If cbotva.Value = 7 Then
OptionButton1.Visible = True
If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value * 0.196
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.196
End If
End If
If TextBox17.Value = "" Then
tva7 = 0
Else
tva7 = CDbl(TextBox17.Value)
End If
 
If TextBox18.Value = "" Then
 
tva196 = 0
Else
tva196 = CDbl(TextBox18.Value)
End If
TextBox13.Value = tva7 + tva196
 
TextBox15.Value = CDbl(TextBox13.Value) + CDbl(TextBox12.Value)

c'est la dernière ligne qui me pose un souci car le calcul ne se fait pas correctement car je voudrais avoir la somme des valeurs des textbox12 et 13 en textbox 15 en sachant que la valeurs de textbox12 et 13 varie souvent

cordialement

Pascal

[jfontaine]

2 questions :

- La mise a jour doit elle se faire à la validation de la saisie ou à chaque modifier des textbox?
- Ton code est placé dans un événement ou dans un procédure (appelée par quel événement?

[grisan29]

bonsoir Jfontaine
la mise a jour du textbox15 doit se faire a chaque fois que les autres sont mis a jour également je te joint le code complet qui est placé dans une procédure?

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
 
Option Explicit
Dim i As Long
 
Private Sub ajout_Click()
Dim t
'venant de DARANC du forum developpez
Dim tva7 As Double
Dim tva196 As Double
On Error Resume Next
If cbotva.Value = 7 Then
    OptionButton1.Visible = True
If TextBox17.Value = "" Then
    TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
    TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If
Else
    If TextBox18.Value = "" Then
    TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value * 0.196
Else
    TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.196
End If
End If
    If TextBox17.Value = "" Then
    tva7 = 0
Else
    tva7 = CDbl(TextBox17.Value)
End If
 
If TextBox18.Value = "" Then
 
    tva196 = 0
    Else
tva196 = CDbl(TextBox18.Value)
    End If
TextBox13.Value = tva7 + tva196
 
TextBox15.Value = CDbl(TextBox13.Value) + CDbl(TextBox12.Value)
 
 
With UserForm1.ListView1
    .listitems.Add , , UserForm1.TextBox2.Value
 
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.TextBox9.Value
 
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.TextBox6.Value
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.TextBox7.Value
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.Txt_qté_vente.Value
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.TextBox8.Value
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.cbotva.Value
    .listitems(.listitems.Count).ListSubItems.Add , , UserForm1.TextBox8.Value * Txt_qté_vente.Value
    .listitems(1).Selected = False
        Set .SelectedItem = Nothing
 
        For i = 1 To .listitems.Count
            t = t + CDbl(.listitems(i).ListSubItems(7))
        Next i
 
End With
 
    TextBox12 = Format(t, "0.00")
    TextBox13 = Format(TextBox13, "0.00")
    TextBox15 = Format(TextBox15, "0.00")
    TextBox17 = Format(TextBox17, "0.00")
    TextBox18 = Format(TextBox18, "0.00")
 
    TextBox6 = "": TextBox7 = "": Txt_qté_vente = "": TextBox2 = "": TextBox4 = "": TextBox8 = ""
 
End Sub

cordialement

Pascal

[jfontaine]

Donc la mise à jour s'effectue lors du click sur le bouton Ajout.

Penses à soigner la présentation de ton code, ça aide beaucoup à la lecture.
J'ai mis en commentaire quelques lignes inutiles.
Par contre, je ne vois pas ce qui te pose problème, ton code fait bien la somme des 2 textbox

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
If cbotva.Value = 7 Then
 
    OptionButton1.Visible = True
 
    If TextBox17.Value = "" Then
        TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
    Else
        TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
    End If
 
Else
 
    If TextBox18.Value = "" Then
        TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value * 0.196
    Else
        TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.196
    End If
 
End If
 
'If TextBox17.Value = "" Then
'    tva7 = 0
'Else
    tva7 = CDbl(val(TextBox17.Value))
'End If
 
'If TextBox18.Value = "" Then
'    tva196 = 0
'Else
    tva196 = CDbl(val(TextBox18.Value))
'End If
 
TextBox13.Value = tva7 + tva196
 
TextBox15.Value = CDbl(TextBox13.Value) + CDbl(TextBox12.Value)