boite de dialogue executer commande ou non
Bonjour.
j'ai le code suivant
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| Sub Mise_a_zero()
'
' Couleur mise a zero
'
Application.ScreenUpdating = False
Sheets("AR-Base").Select
Range("A6:S11,A13:F16,U3:U67").Select
With Selection.Interior
.Pattern = xlNone
End With
Range("T3:Y67").Select
Selection.ClearContents
Range("U2:Y67").Select
ActiveWindow.SmallScroll Down:=-17
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-1
ActiveWindow.LargeScroll Down:=-1
ActiveWorkbook.Worksheets("AR-Base").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("AR-Base").Sort.SortFields.Add Key:=Range("U3:U67") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("AR-Base").Sort
.SetRange Range("V3:Y67")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
' .Apply
End With
Range("T3:T67").Select
Selection.ClearContents
Range("C2:D3").Select
Selection.ClearContents
Sheets("D-Base").Select
Range("W3:AB67").Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
End With
Range("A3:R3,A6:R6,A9:R9,A12:R12,A15:M15").Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlNone
End With
[F2].Select
Sheets("AR-Base").Select
[F2].Select
Application.ScreenUpdating = True
End Sub |
et je souhaiterais lors du lancement de la macro, avoir un message demandant si je veux reelement executer cette commande, si oui
execute si non annuler la commande
cris