Discussion :

[chris09300]

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

[casefayere]

Bonsoir,
ton code est très confus et on ne sait pas quelle est la feuille active, alors pour le début, il faudra adapter pour la suite, en évitant tous les "Select" :

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
With ActiveSheet 
  .Range("A6:S11,A13:F16,U3:U67").Selection.Interior
  .Pattern = xlNone
  .Range("T3:Y67").ClearContents
  .Sort.SortFields.Clear
  .Sort.SortFields.Add Key:=Range("U3:U67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  .Sort
    .SetRange Range("V3:Y67")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
'    .Apply
  End With
End With

ensuite, ci-dessous, de quelle feuille parles-tu ?

Code :

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

1
2
Range("T3:T67").ClearContents
Range("C2:D3").ClearContents

[chris09300]

au debut de l'appli, j'ai plusieurs feuilles dont une que j'ai nomme AR-Base
et au fur et a mesure de l'avancement je fait une copie de cette feuille que je renomme, donc la macro que j'ai ne fonctionne plus sur ma nouvelle feuille, d'ou ma demande.

en ce qui concerne

Code :

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

1
2
Range("T3:T67").ClearContents
Range("C2:D3").ClearContents

c'est sur la feuille AR-Base.

merci
cris

[Didier Gonard]

Bonjour,

au debut de l'appli, j'ai plusieurs feuilles dont une que j'ai nomme AR-Base
et au fur et a mesure de l'avancement je fait une copie de cette feuille que je renomme, donc la macro que j'ai ne fonctionne plus sur ma nouvelle feuille, d'ou ma demande.

Tu peux peut-être passer par une variable objet pour désigner la feuille cible où le code va s'appliquer, il suffit alors de faire pointer la variable vers la nouvelle copie avant d'appeler la procédure générale...

cf les tutoriels DVP si besoin

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[chris09300]

bonjour didier
peux tu me dire ou je peux trouver

cf les tutoriels DVP

car je ne connais pas les variables

cris

[Didier Gonard]

Bonjour,

bonjour didier
peux tu me dire ou je peux trouver

avec celui-là, 44 pages et t"es devenu un bon
page 9 pour un focus / question

Programmer efficacement avec Excel en VBA http://bidou.developpez.com/tutoriels/ExcelVBA/

Toujours dans les bonnes choses :

http://silkyroad.developpez.com/VBA/LesVariables/#LII-K


Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[casefayere]

Bonjour le forum, chris09300,

Expliques-toi bien tu veux remplacer "Sheets("AR-Base")" par "ActiveSheet", c'est bien ça ? si c'est ça il faut que cette feuille soit la feuille active, d'où le code que je te propose, comme tu me confirmes que :

Code :

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

1
2
Range("T3:T67").ClearContents
Range("C2:D3").ClearContents

vont partie de la feuille active donc "Sheets("AR-Base")", tu peux les intégrer dans le "With", en conséquence :

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
With ActiveSheet
  .Range("A6:S11,A13:F16,U3:U67").Interior.Pattern = xlNone
  .Range("T3:Y67").ClearContents
  .Sort.SortFields.Clear
  .Sort.SortFields.Add Key:=Range("U3:U67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  .Sort
  .SetRange Range("V3:Y67")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
'    .Apply
  .Range("T3:T67").ClearContents
  .Range("C2:D3").ClearContents
End With
With Sheets("D-Base")
  .Range("W3:AB67").ClearContents
  .Range("W3:AB67").Interior.Pattern = xlNone
  .Range("A3:R3,A6:R6,A9:R9,A12:R12,A15:M15").ClearContents
  .Range("A3:R3,A6:R6,A9:R9,A12:R12,A15:M15").Interior.Pattern = xlNone
End With

et tu restes sur la feuille "Sheets("AR-Base")"

est-ce vraiment ça ?

N'hésites pas,

PS : je n'ai pas vu ta réponse Didier

Bonne journée