Effacer avec message de confirmation

Bonjour a toutes et tous, forum

Je souhaiterai svp compléter ce petit code qui me permet d'effacer la plage b4:b800 par un message de confirmation

du style (Confirmer effacement Oui / Non) par ex.

Si oui on efface sinon on ne fait rien

Sub EffaceDonnées()
Application.ScreenUpdating = False
    With Range("b4:b800")
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
End Sub

Merci a vous et de votre temps, je vous souhaite une agréable journée

Raymond

Bonjour eliot raymond

Si vous tapez msgbox dans l'éditeur vba puis l'aide F1 vous aurez toutes les explications sur les boites de messages

  Sub EffaceDonnées()
    Dim Supp 
    Supp = MsgBox("Voulez-vous éffacer les données ?", vbYesNo + vbQuestion + _ 
              vbDefaultButton2, "Confirmation de suppression")
    If Supp = vbYes Then
        Application.ScreenUpdating = False
        With Range("b4:b800")
            .ClearContents
            .Interior.ColorIndex = xlNone
        End With
    Else
         Exit Sub
    End If
    End Sub

Cordialement

Bob

Salut a tous, Bob

Merci de votre réponse ca fonctionne très bien, effectivement j'aurai du regarder dans l'éditeur vba, j'avoue ne pas y avoir penser.

Bob encore merci pour le code, je vous souhaite une bonne journée avec le soleil

Cordialement Raymond

Bonjour,

tu pouvais continuer sur ce poste !

https://forum.excel-pratique.com/excel/effacer-une-colonne-en-vba-t17369.html

à+.... Claude