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
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