Discussion :

[mlafleur74]

Ma macro fonctionne tres bien sous excel 2003 mais avec 2010 ca donne un erreur sur le premier selection.pastespecial ??? pouvez-vous m'aider ??? svp

voici la macro complete :

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 Changement_de_periode()
 
    Sheets("Horaire période -3").Select
    Sheets("Horaire période -3").Name = "Horaire période -x"
    Sheets("Horaire période -2").Select
    Sheets("Horaire période -2").Name = "Horaire période -3"
    Sheets("Horaire période -1").Select
    Sheets("Horaire période -1").Name = "Horaire période -2"
    Sheets("Horaire période -x").Select
    Sheets("Horaire période -x").Name = "Horaire période -1"
    Sheets("Horaire période -1").Select
    Sheets("Horaire période -1").Move Before:=Sheets(2)
    ActiveSheet.Unprotect
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("HORAIRE").Select
    Range("A2:p33").Select
    Selection.Copy
    Sheets("Horaire période -1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("HORAIRE").Select
 
    Range("q36").Select
    Selection.Copy
    Range("q8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
    Range("c14:d33").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("f14:g33").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("j14:k33").Select
    Selection.ClearContents
    Range("o14:p33").Select
    Selection.ClearContents
    Range("b35").Select
    ActiveSheet.Unprotect
    ActiveCell.FormulaR1C1 = "=R[-2]C+1"
    Range("b35").Select
    Selection.Copy
    Range("b14").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("b35").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("c14").Select
    ActiveSheet.Protect
End Sub

[gFZT82]

Bonjour,

Dans un premier temps, tu peux faire du ménage et balayer 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
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Changement_de_periode()
    Worksheets("Horaire période -3").Name = "Horaire période -x"
    Worksheets("Horaire période -2").Name = "Horaire période -3"
    Worksheets("Horaire période -1").Name = "Horaire période -2"
    Worksheets("Horaire période -x").Name = "Horaire période -1"
    Worksheets("Horaire période -1").Move Before:=Sheets(2)
    ActiveSheet.Unprotect
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Worksheets("HORAIRE").Range("A2:P33").Copy
    Worksheets("Horaire période -1").Paste Range("A2")
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    With Worksheets("HORAIRE")
        .Range("q36").Copy
        .Range("q8").PasteSpecial Paste:=xlPasteValues
        .Range("c14:d33").ClearContents
        .Range("f14:g33").ClearContents
        .Range("j14:k33").ClearContents
        .Range("o14:p33").ClearContents
        .Unprotect
        .Range("b35").FormulaR1C1 = "=R[-2]C+1"
        .Range("b35").Copy
        .Range("b14").PasteSpecial Paste:=xlValues
        .Range("b35").ClearContents
        .Select
        .Range("c14").Select
        .Protect
    End With
End Sub

Cordialement.