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