XL 2010 Boutton de confirmation avant suppression

[fattah_5791]

Bonjour
voici une petite macro qui efface le contenu d'une feuille selon le chiffre recupéré du clavier.

Dim n As Integer
    n = Application.InputBox("Tapez le code numérique de l'établissement : ", "Code Etablissement:", Type:=1)
    Sheets(n).Select
    Range("A5:W9").Select
    Range(selection, selection.End(xlDown)).Select
    selection.ClearContents
    Range("A1").Select
    Sheets("Index").Activate
    Range("A1").Select

je veux avoir avant la suppression un Msg d'alerte qui confirme ou non la suppresion, merci

 

[Patrice33740]

Par exemple :

Sub testEfface()
Dim n As Integer
Lp_début:
    n = Application.InputBox("Tapez le code numérique de l'établissement : ", "Code Etablissement:", Type:=1)
    If n = 0 Then Exit Sub
    If n = Sheets("Index").Index Or n > Worksheets.Count Then
      MsgBox "Code inconnu .", vbCritical
      GoTo Lp_début
    End If
    If MsgBox("Confirmer l'effacement de " & Worksheets(n).Name, vbYesNo + vbDefaultButton2) <> vbYes Then Exit Sub
    With Worksheets(n).Range("A5:W9")
      .Resize(.End(xlDown).Row - .Row + 1).ClearContents
    End With
    Sheets("Index").Activate
    Range("A1").Select
End Sub

 

[fattah_5791]

Merci Patrice 33740, le code marche parfaitement