Bonjour,
Je souhaite mettre un message d'avertissement et une demande de confirmation de l'action qui sera afficher à l'activation du bouton de control lié à la macro ci-dessous.
Le message serait le suivant : "Attention, après validation de votre choix, les données saisies seront définitivement supprimées. Etes-vous certains de vouloir effacer les données?" Je souhaiterais qu'il y ai la possibilité de valider ce choix ou de l'annuler.
Merci pour votre aide.
Linda
Je souhaite mettre un message d'avertissement et une demande de confirmation de l'action qui sera afficher à l'activation du bouton de control lié à la macro ci-dessous.
Le message serait le suivant : "Attention, après validation de votre choix, les données saisies seront définitivement supprimées. Etes-vous certains de vouloir effacer les données?" Je souhaiterais qu'il y ai la possibilité de valider ce choix ou de l'annuler.
Merci pour votre aide.
Linda
VB:
Sub EffacementDesDonnées()
'
' EffacementDesDonnées Macro
'
'
Range("L7:R76").Select
Selection.ClearContents
Range("T7:Z77").Select
Selection.ClearContents
Range("AB7:AH76").Select
Selection.ClearContents
Range("AJ77").Select
ActiveCell.FormulaR1C1 = ""
Range("AJ7:AP77").Select
Range("AJ77").Activate
Selection.ClearContents
Range("AR7:AX76").Select
Selection.ClearContents
Range("AZ7:BF76").Select
Selection.ClearContents
Range("L81:R81").Select
Selection.ClearContents
Range("T81:Z81").Select
Selection.ClearContents
Range("AB81:AH81").Select
Selection.ClearContents
Range("AJ81:AP81").Select
Selection.ClearContents
Range("AR81:AX81").Select
Selection.ClearContents
Range("AZ81:BF81").Select
Selection.ClearContents
Range("L84:R84").Select
Selection.ClearContents
Range("T84:Z84").Select
Selection.ClearContents
Range("AB84:AH84").Select
Selection.ClearContents
Range("AJ84:AP84").Select
Selection.ClearContents
Range("AR84:AX84").Select
Selection.ClearContents
Range("AZ84:BF84").Select
Selection.ClearContents
Range("L88:R90").Select
Selection.ClearContents
Range("T88:Z90").Select
Selection.ClearContents
Range("AB88:AH90").Select
Selection.ClearContents
Range("AJ88:AP90").Select
Selection.ClearContents
Range("AR88:AX90").Select
Selection.ClearContents
Range("AZ88:BF90").Select
Selection.ClearContents
Range("L94:R96").Select
Selection.ClearContents
Range("T94:Z96").Select
Selection.ClearContents
Range("AB94:AH96").Select
Selection.ClearContents
Range("AJ94:AP96").Select
Selection.ClearContents
Range("AR94:AX96").Select
Selection.ClearContents
Range("AZ94:BF96").Select
Selection.ClearContents
Range("B106:F205").Select
Selection.ClearContents
Range("D112:E112").Select
End Sub