Message avant RAZ
Résolu
JCB40
Messages postés
3070
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3070 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3070 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
A voir également:
- Message avant RAZ
- Recuperer message whatsapp supprimé - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Le message n'a pas été envoyé car le service n'est pas activé sur le réseau - Forum Xiaomi
- Retrouver mon compte copains d'avant - Forum Réseaux sociaux
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