Message avant RAZ
Résolu
JCB40
Messages postés
3058
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
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
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
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
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
1 réponse
-
Bonjour,
Message pour annoncer la raz tout simple ou message avec choix raz oui/non?-
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
-
