Bonjour à tous,
J'ai le code suivant: J'aimerai savoir comment modifier ce code après msgbox pour donner le choix à l'utilisateur de dire oui (le code se déroule) ou de dire non et de sortir du code
Sub Effacer()
ActiveSheet.Unprotect
msgbox ("voulez vous effacer les données")
Sheets("Mois").Select
Range("F14:AI164").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Range("f14").Select
ActiveSheet.Protect
End Sub
Merci pour vos suggestions
Gérard
a+
J'ai le code suivant: J'aimerai savoir comment modifier ce code après msgbox pour donner le choix à l'utilisateur de dire oui (le code se déroule) ou de dire non et de sortir du code
Sub Effacer()
ActiveSheet.Unprotect
msgbox ("voulez vous effacer les données")
Sheets("Mois").Select
Range("F14:AI164").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Range("f14").Select
ActiveSheet.Protect
End Sub
Merci pour vos suggestions
Gérard
a+
Dernière édition: