[E-00] probleme msgbox

bonjour,

j'ai un petit soucis avec un msg box voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub OpB_jack_LF_Change()   Dim returnval As Variant   returnval = MsgBox("You can't choose this method if the Jacking Pad is unavailable." _ & vbCrLf & "Is the Jacking Pad available and do you have a sufficient clearance ?", _ vbYesNoCancel + vbExclamation, "WARNING") If returnval = vbYes Then OpB_jack_LF.Value = True ElseIf returnval = vbNo Then OpB_jack_LF.Enabled = False OpB_jack_LF.Value = False End If   End Sub

---

quand je clique sur mon bouton le msgbox apparait et quand je clique sur no une premiere fois le bouton segrise mais il faut que je reclique sur no ( au passage bizarre que le msgbox reste visible une fois, un des boutons cliqués) et la le msg box disparait et j'ai bien la bonne config de bouton

vu que je sais que je ne suis pas claire dans mes explications, voici le fichier complet : http://cjoint.com/?lCmiixPYUl

Bonjour.

Citation:

---

quand je clique sur mon bouton le msgbox apparait et quand je clique sur no une premiere fois le bouton segrise

---

Tu parles du même bouton en début et fin de phrase?

On voit quand même un truc inquiétant : cette procédure est évènementielle (OpB_jack_LF_Change()). ET elle modifie l'objet qui semble concerné par l'évènement :

Code:

---

1 2	OpB_jack_LF.Enabled = False OpB_jack_LF.Value = False

---

Je pense que c'est l'objet OpB_jack_LF qui se grise, non?

PGZ

oui oui tout a fait dsl si je me suis mal exprimée je parle effectivemnt du bouton OpB_jack_LF

Alors tu as ta réponse, non?

Au cas où ce serait un bouton d'option, il sert à quoi le code?

en fait je voudrais que si la personne répond no au msg box l'option button soit décoché et grisé

Alors essaie cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub OpB_jack_LF_Change()   Dim returnval As Variant application.enableEvents = false returnval = MsgBox("You can't choose this method if the Jacking Pad is unavailable." _ & vbCrLf & "Is the Jacking Pad available and do you have a sufficient clearance ?", _ vbYesNoCancel + vbExclamation, "WARNING") If returnval = vbYes Then OpB_jack_LF.Value = True ElseIf returnval = vbNo Then OpB_jack_LF.Enabled = False OpB_jack_LF.Value = False End If application.enableevents =true End Sub

---

mais prend plutôt l'évènement AfterUpdate.

PGZ

je n'ai pas d'évènement prédéfini afterupdate c'est grave ?

en fait ca marche tout simplement avec click meci beaucoup pour ton aide ;)

bon week end