Message avant RAZ [Résolu]

Signaler
Messages postés
1817
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
28 mars 2020
-
JCB40
Messages postés
1817
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
28 mars 2020
-
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

Messages postés
15133
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 mars 2020
1 242
Bonjour,

Message pour annoncer la raz tout simple ou message avec choix raz oui/non?
JCB40
Messages postés
1817
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
28 mars 2020
266
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