Choix message box "NON"

[isa44]

Bonsoir à tous ,
J'ai un message box pour supprimer des lignes .
Mais si je choisi NON la ligne se supprime quand même , comment y remédier ?

Sub Macro16() ' Supprimer ligne de archives
Sheets("Données").Unprotect
MsgBox "Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, ""
If vbNo = True Then Exit Sub
If vbYes Then


Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":Z" & ligne).Delete

End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Merci pour vos solutions

 

[croftman]

Re : Choix message box "NON"

Sub Macro16() ' Supprimer ligne de archives
Sheets("Données").Unprotect
If MsgBox("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "") = VbNo Then Exit Sub

Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":Z" & ligne).Delete

End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

 

[wilfried_42]

Re : Choix message box "NON"

bonjour à tous

il serait souhaitable que le unprotect se trouve derriere le test du message (derriere le exit sub) sinon ta feuille ne sera plus protegée

bonne soirée

 

[phlaurent55]

Re : Choix message box "NON"

Salut isa44, croftman,

MsgBox "Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, ""
[COLOR="Red"]If vbNo = True Then Exit Sub[/COLOR]
If vbYes Then

remplace la partie en rouge par:

If vbNo = true Then
Exit Sub
End If

dis-nous si ça marche

 

[isa44]

Re : Choix message box "NON"

Merci à vous tous ,
le code de Croftman fonctionne parfaitement (encore merci) , par contre la modif de phlaurent55 supprime quand même la ligne si on clique sur NON