bonjour
je souhaiterais modifier 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
49
50
51
52
53
54
Sub Mise_a_zero()
Dim Rep As Long
    Rep = MsgBox("Continuer ?", vbInformation + vbYesNo + vbDefaultButton2, "Coucou")
    If Rep = 7 Then Exit Sub
    '....
'
' Couleur mise a zero
'
Application.ScreenUpdating = False
With ActiveSheet             '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
    Range("F2").Select
With ActiveSheet    'Sheets("AR-Base").Select
    Range("F2").Select
Application.ScreenUpdating = True
End With
End With
End Sub
par feuille active
cris