S
sev
Guest
Bonjour à tous,
Quand je clique sur le bouton "Non" ou sur la petite croix de fermeture du msgbox la ligne se supprime alors que je voudrais qu'elle reste .
Comment modifier celà ?
Sub Macro15() ' Supprimer saisie sélectionnée
MsgBox "Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, ""
If vbYes Then
Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":M" & ligne).ClearContents
Range("O" & ligne).ClearContents
End If
If vbNo = True Then Exit Sub
End Sub
Quand je clique sur le bouton "Non" ou sur la petite croix de fermeture du msgbox la ligne se supprime alors que je voudrais qu'elle reste .
Comment modifier celà ?
Sub Macro15() ' Supprimer saisie sélectionnée
MsgBox "Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, ""
If vbYes Then
Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":M" & ligne).ClearContents
Range("O" & ligne).ClearContents
End If
If vbNo = True Then Exit Sub
End Sub