Controle avant suppression

Bonjour ,

J'ai une macro qui supprime le contenu de onglet base , j'aurais voulu ajouter un contrôle a la macro avant la suppression donné un message d’avertissement "enregistre avant suppression"

Bonjour,

Un essai ...

Sub supp()
Dim Reponse As Integer

    Reponse = MsgBox(" Enregistre avant suppression !!", vbYesNo + vbQuestion, "Effacer les données")

    If Reponse = vbYes Then
        Sheets("Base").Select
        Range("B3:J23,E31,F27:F31").Select
        Range("F27").Activate
        Selection.ClearContents
        Sheets("Modéle").Select
        Range("K8").Select
    Else
        'do nothing
    End If
End Sub

ric

ca me donne un message , mais je clique sur oui rien n'ai effacé

Bonjour,

Ouupppssss! Désolé, le code était en anglais (answer), que j'ai changé pour Reponse.

Mais j'ai oublié un endroit ( If Reponse = vbYes Then )

J'ai corrigé mon code précédent.

ric