Msgbox vbYesNo ?

[Geraldine]

Bonjour,

Pourquoi dans mon code ci-dessous, quand je click "non", l'exit sub ne fonctionne pas et le code continue jusqu'a la fin ? Merci de vos commentaires
Est ce que vbYesNo = no ne veux rien dire ?

Private Sub CommandButtonSupprimer_Click()
If OptionButton1 = True Then
MsgBox "Voulez-vous vraiment supprimer ce poste!", vbYesNo + vbExclamation, "Avertissement"
    If [B]vbYesNo = no[/B] Then
    Exit Sub
    Else
    If ComboBoxPoste.ListIndex = -1 Then Exit Sub
    NomLBindex = UserFormMAJPoste.ComboBoxPoste.ListIndex + 5 ' ligne de reference
    With Sheets("ouvrage")
    .Range("B" & NomLBindex & ":da" & NomLBindex).Delete
    End With
    End If
End If
End Sub

Géraldine

PS: pour ne pas faire remonter le post, merci à renauder pour la réponse hier, j'ai pas encore appliqué

 

[Geraldine]

Re : Msgbox vbYesNo ?

peu de reflexion m'on poussé à trouver,

Dim a As Long
If OptionButton1 = True Then
a = MsgBox("Voulez-vous vraiment supprimer ce poste!", vbYesNo + vbExclamation, "Avertissement")
If a = vbNo Then

bonne journée

 

[Excel_lent]

Re : Msgbox vbYesNo ?

Salut Geraldine et à tous,

Tout simplement parceque VbYesNo est un nombre (4 dans ton exemple).
Avec a =MsgBox(....), a est égal à 6 pour oui (VbYes )et 7 pour non (VbNo).

 

[PascalXLD]

Re : Msgbox vbYesNo ?

Bonjour

en plus court

 If MsgBox("Voulez-vous vraiment supprimer ce poste!", vbYesNo + vbExclamation, "Avertissement") = vbNo Then