Message avant RAZ

Résolu/Fermé
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 16 mars 2020 à 15:39
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 16 mars 2020 à 15:59
Bonjour,
J'ai une macro de RAZ qui fonctionne avec un bouton ,je voudrais savoir comment faire pour avoir un message avant la raz voir code ci-dessous.
Merci pour votre aide

Sub raz()

Range("B4:F968").Select
Selection.ClearContents
Range("E34:F3").Select
Selection.ClearContents
Range("H4:H968").Select
Selection.ClearContents
Range("M4:M968").Select
Selection.ClearContents

End Sub




Configuration: Windows / Firefox 74.0

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
16 mars 2020 à 15:50
Bonjour,

Message pour annoncer la raz tout simple ou message avec choix raz oui/non?
1
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
16 mars 2020 à 15:59
Bonjour

Merci pour ton intervention .
Mais en cherchant sur le forum j'ai trouvé mon bonheur
Bonne journée
Crdlt

Sub raz()

If MsgBox("Etes-vous certain de vouloir supprimer le contenu du tableau ?", vbYesNo, "Demande de confirmation") = vbYes Then


Range("B4:F968").Select
Selection.ClearContents
Range("E34:F3").Select
Selection.ClearContents
Range("H4:H968").Select
Selection.ClearContents
Range("M4:M968").Select
Selection.ClearContents

MsgBox "Le contenu du tableau a été effacé !"
End If
End Sub
0