Besoin d'aide en VBA

Bonjour les experts

j'ai besoin de votre aide pour compléter un code afin de gérer les remises de chèque

si optionbutton3 est true alors combobox3 , textbox15 et textbox16 doivent être invisibles et deviendront visibles si optionbutton4 est true.

si optionbutton4 est true alors la siasie en textbox15 avec le choix du combobox3 sont obligatoires pour avoir un résultat en textbox16. ce dernier doit apparaitre en textbox4 si je valide.

merci pour votre aide.

Pièce jointe 187436

Code:

---

1 2	textbox15.visible=optionbutton4 textbox16.visible=not optionbutton4

---

merci rdurupt pour ton passage.

malheureusement, ça ne fonctionne pas, textbox15 devient invisible

Tu chipotes!

Code:

---

1 2	textbox15.visible= optionbutton4 textbox16.visible= optionbutton4

---

Code:

---

if optionbutton4=True and textbox15 ="" then msgbox "Error"

---

d'autres alternatives....

Citation:

---

Envoyé par maximob

d'autres alternatives....

---

oui !

- nous montrer ton code
- nous dire là où ça coince
- nous montrer tes tests
- essayer d'être dans la participation plutôt que la directivité

ça sera peut-être un début de motivation pour les contributeurs ....

ça coince au niveau de : optionbutton3 et 4 si le premier est coché donc combobox3 et textbox15 doivent être masqués. quand je saisi le code que je considère correct :

Code:

---

1 2 3 4 5 6 7 8 9

if optionbutton3=true then combobox3.visible=false and textbox15.visible=false else combobox3.visible=true and textbox15=true end if   if not combobox3=" " then textbox16.value= combobox3.value * textbox15.value end if

---

mais ça donne rien ..... :calim2::calim2:

est ce que j'ai raté quelque chose....

bonjour,
tu test un booléen pour affecter à un autre booléen!!!!????????

Code:

---

1 2 3 4 5 6

if optionbutton3=true then combobox3.visible=false and textbox15.visible=false '????????? else combobox3.visible=true and textbox15=true end if

---

Code:

---

combobox3.visible=not optionbutton3 : textbox15.visible= not optionbutton3

---

Code:

---

if trim(combobox3)<>"" and tirm(textbox15)<>"" then textbox16.value= val(replace(combobox3.value,",",".")) *val(replace textbox15.value,",","."))

---

je teste ton code et je te répondrai... et merci de ton temps.