Discussion :

[chris09300]

Bonjour.
j'ai le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Sub Tst()
Dim Rep As Long
    Rep = MsgBox("Continuer ?", vbInformation + vbYesNo + vbDefaultButton2, "Coucou")
    If Rep = 7 Then Exit Sub
    '.....
End Sub

Dans la FAQ