textbox avec calcul

Version imprimable

09/07/2012, 20h22
junglesoul

textbox avec calcul

Bonjour,

je souhaiterais à partir du bouton calculer faire la calcul du HT vers ttc et inversement du ttc vers le ht à la condition que le choix de la tva est fait.
cela fonctionne lorsqu'il y a uniquement le ht vers le ttc mais, je n'arrive à cumuler les fonctions.
Si quelqu'un pouvait m'aider je lui en serai gré. mon niveau débutant ne me facilite pas la tâche. ~~voir fichier joint~~
merci de votre aide
09/07/2012, 20h41
SfJ5Rpw8

Bonsoir,

quel code utilise tu ? poste le ici l'extrait qui te cause problème entre balises de codes

Voir ici ou la

code textbox

Code:

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
Private Sub Calculer_Click()
Dim tva As Double
'calculer le TTC
    If OB2_1 = True Then
    TBTTC = TBHT.Value * 1.021
    End If
    If OB5_5 = True Then
    TBTTC = TBHT.Value * 1.055
    End If
    If OB7_00 = True Then
    TBTTC = TBHT.Value * 1.07
    End If
    If OB19_6 = True Then
    TBTTC = TBHT.Value * 1.196
    End If
End Sub
Private Sub Quitter_Click()
End
End Sub
Private Sub TBHT_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TBTTC.Text = ""
    TBHT.Text = ""
End Sub
Private Sub TBTTC_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     TBTTC.Text = ""
     TBHT.Text = ""
End Sub
 
Private Sub UserForm_Click()
 
End Sub