Discussion :

[bosk1000]

bonjour a tous

voici mon soucis
lorsque j'entre un chiffre dans la textebox "txt_quant01"
je voudrais que le calcul dans la textbox "txt_tot01" se fasse en fonction de certain choix dans des boutons, il y a 4 possibilité :

1. si "opb_promo01" et si "opb-detail01" est coché alors "txt_quant01"*"txt_prixpromo_detail01"
2. si "opb-promo01" et si "opb_carton01" est coché alor "txt_quant01"*"txt_prixpromo_carton01"
3. si "opb_promo01" n'est pas coché et si "opb-detail01" est coché alors "txt_quant01"*"txt_prix_detail01"
4. si "opb_promo01" n'est pas coché et si "opb-carton01" est coché alors "txt_quant01"*"txt_prix_carton01"

[mercatog]

En détaillant

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
Dim v As Double
 
If opb_promo01 Then
    If opb_detail01 Then
        v = Val(txt_prixpromo_detail01)
    ElseIf opb_carton01 Then
        v = Val(txt_prixpromo_carton01)
    End If
Else
    If opb_detail01 Then
        v = Val(txt_prix_detail01)
    ElseIf opb_carton01 Then
        v = Val(txt_prix_carton01)
    End If
End If
txt_tot01 = Val(txt_quant01) * v

[bastou93]

Bonjour cela devrait faire l'affaire:

change USERFORM par ton nom de user

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
 
with USERFORM 
if .opb_promo01=true and .opb-detail01 = true then
 'CAS 1
 .txt_tot01.value = Val(.txt_quant01.value) * Val(.txt_prixpromo_detail01.value)
end if
 
if .opb_promo01=true and .opb_carton01 = true then
 'CAS 2
 .txt_tot01.value = Val(.txt_quant01.value) * Val(.txt_prixpromo_carton01.value)
end if
 
'...etc
 
end with

Pour pas coché tu fais = flase

!!!! A voir dans ce cas, si opb_promo01, opb-detail01 et opb_carton01 sont coché alors tu fais cas 1 et 2 si tu ne veux faire que 1 alors fait avec elseif

voila

Bastien

EDIT:

Le code mercatog est bien plus optimisé

[bosk1000]

merci
c'est parfait