Discussion :

[FFGUY]

Bonjour,

J'ai réalisé la macro suivante, qui fonctionne etc.... Cependant, je me rends compte que mon code pourrait surement être simplifié, ainsi j'aurais aimé avoir des avis sur comment améliorer cette présentation, voire des exemples d'amélioration de mon code, des conseils en bref.

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
Sub Jambon()
Sheets(6).Cells.Select
Selection.Delete
Sheets(3).Select
i = Range("A65436").End(xlUp).Row
Range("BB250:BM253").Select
    Selection.AutoFill Destination:=Range("BB250:BM" & i), Type:=xlFillDefault
Range("BB65230:BM" & i + 1).Delete
Sheets(2).Select
i = Range("A65436").End(xlUp).Row
Range("M250:X253").Select
    Selection.AutoFill Destination:=Range("M250:X" & i), Type:=xlFillDefault
Range("M65230:X" & i + 1).Delete
Sheets(2).Select
    Range("M1:R1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(6).Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Sheets(2).Select
        Range("S2:X2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(6).Select
        Range("A65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(3).Select
    Range("BB2:BG2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(6).Select
    Range("A65536").End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Sheets(3).Select
        Range("BH2:BM2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(6).Select
        Range("A65536").End(xlUp).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(6).Range("B4").Select
Sheets(5).PivotTables("PivotTable41").PivotCache.Refresh
Sheets(5).Name = "Jambon" & Chr(32) & Format(Date, "yyyymmdd")
End Sub

Merci d'avance,

[mercatog]

Évite les Select, tu peux t'en passer en gagnant le temps d'exécution du code
pour le début

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
Sub Jambon()
Dim i As Long
application.screenupdating=false
Sheets(6).Cells.Clear
With Sheets(3)
    i = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("BB250:BM253").AutoFill Destination:=.Range("BB250:BM" & i)
    .Rows(i + 1 & ":" & Rows.Count).Clear
End With
With Sheets(2)
    i = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("M250:X253").AutoFill Destination:=.Range("M250:X" & i)
'.....suite
End With
'...suite
End Sub

[FFGUY]

Merci d'avoir pris le temps de m'aider à progresser, j'apprécie!!!