Message de confirmation dans une macro (Résolu)

[Smint]

Salut vous tous, bon début de weekend!

La macro suivante se déclenche par un simple clic sur une cellule:

Sub EffaceDonnées()
ActiveSheet.Unprotect
Range('D2:E1000').Select
Selection.ClearContents
ActiveWindow.ScrollRow = 2
Range('G1').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Comme elle est un poil violente et sans retour possible, merci de me dire comment faire pour modifier le code de telle façon que s'ouvre une boite de message permettant de soit confirmer l'exécution, soit d'y sursoir...

Merci d'avance de vos réponse...
Bien cordialement.

Message édité par: Smint, à: 18/03/2006 11:47

 

[Bernard_XLD]

Re:Message de confirmation dans une macro

Bonjour Smint, Jmps

plus rapide,Jmps, mais comme c'est codé je le donne

A+

Sub EffaceDonnées()
If MsgBox('Continuer', vbOKCancel + vbQuestion) = 1 Then
ActiveSheet.Unprotect
Range('D2:E1000').ClearContents
Range('G1').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox 'Suppression effectuée', vbInformation
End If
End Sub

 

[Smint]

Re:Message de confirmation dans une macro

Salut jmps, Yeahou,

Je suis encore sidéré par la vitesse à laquelle on obtient une réponse efficace sur ce forum... Encore une fois, chapeau et merci à tous!

@ bientôt...