Bonjour
J'ai ce code
Private Sub Job(sh$, plg$)
Worksheets(sh).Range(plg) = ""
End Sub
Sub Effacement()
Application.ScreenUpdating = 0
Job "Courriers", "B83:E91,B94:E96,B12,E10:E12,F26,A203:G207"
Job "Salariés", "B8:B10,B15:B17,B12,B13,B19,B18,B21," & _
"B23,D8:D9,D16,D18,D20,D21,C26:D28,C50:" & _
"D61,D73:E86,D88:E97,D99:E102"
Job "Indemnités", "A201:C214": Job "CP", "C7:C18"
Job "ES", "C5,C6,J12,J19,J26,B31": Job "FeuilCalcul", "B6:B14,E6:E7,E15:E18,E22,E24"
Application.ScreenUpdating = -1: MsgBox "les données sont effacées"
Worksheets("Salariés").Select: [A6].Select
End Sub
En amont de l'effacement j'aimerais rajouter un message box posant la question "Etes vous de vouloir effacer les données ?"
Si on répond Oui ca efface, si Non alors rien
Quelqu'un saurait il comment je peux rajouter cette demande à ce code
Merci