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 ?
Géraldine
PS: pour ne pas faire remonter le post, merci à renauder pour la réponse hier, j'ai pas encore appliqué
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 ?
Code:
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é