Discussion :

[anyah]

bonjour,

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

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
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

[pgz]

Bonjour.

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 :

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

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

[anyah]

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

[pgz]

Alors tu as ta réponse, non?

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

[anyah]

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

[pgz]

Alors essaie cela

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
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

[anyah]

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