Création d'une macro mais erreur

Version imprimable

04/06/2007, 10h33
guismoman33

Création d'une macro mais erreur
Code:

1 2 3 4 Sheets("21)Contrôle").Select Range("B11").Select ActiveSheet.Paste Range("B11").Select
J'ai une erreur ici pourtant j'ai fais sa avec l'enregistreur de macro. L'erreur ce trouve à la deuxieme ligne et l'erreur dit : "la méthode select de la classe range a échoué."
04/06/2007, 10h40
ouskel'n'or

Mets nous plus de code (la copie avant le collage) On ne peut pas sélectionner une cellule avant le Paste. Et en outre on n'utilise jamais de select qui ralentissent et allourdissent le code.
Montre-nous tout ça et on va t'arranger le coup ;)
A+

Code:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
   ActiveSheet.Unprotect
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("21)Contrôle").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.Unprotect
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("1)Dressage").Select
    Range("D8:D16").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("21)Contrôle").Select
    Range("B10").Select
    ActiveSheet.Paste
    Range("B10").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("B11:B19").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B10:J18").Select
    Range("B18").Activate
    Selection.Interior.ColorIndex = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("B10:J10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("E11").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("1)Dressage").Select
    Range("D18:D25").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("21)Contrôle").Select
    Range("K10").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Selection.Interior.ColorIndex = xlNone
    Range("L19").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Columns("Q:Q").ColumnWidth = 0.08
    Range("B10:J10").Select
    Range("J10").Activate
    Selection.Font.Bold = False
    Columns("A:R").Select
    Selection.ColumnWidth = 8
    Selection.ColumnWidth = 6
    Range("P13").Select
    Rows("9:9").RowHeight = 59.25
    Rows("9:9").RowHeight = 69
    Rows("9:9").RowHeight = 85.5
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Rows("9:9").RowHeight = 17.25
    Range("Q10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("Q10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("R10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    Range("S28").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("1)Dressage").Select
    Range("E8").Select

Voila

04/06/2007, 10h50
guismoman33

J'aimerai que la case selectionner pour collez soit la derniere case non utilisé??
04/06/2007, 12h30
ouskel'n'or
Déjà, ces lignes ne servent à rien

Citation:

ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("21)Contrôle").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

Ensuite, tu peux remplacer ça

Citation:

Sheets("1)Dressage").Select
Range("D8 : D16").Select
Selection.Copy

par

Code:

Sheets("1)Dressage").Range("D8:D16").Copy

Les lignes suivantes

Citation:

ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("21)Contrôle").Select
Range("B10").Select
ActiveSheet.Paste
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Peuvent être remplacées par
Code:

1 2 Sheets("21)Contrôle").Range("B10").Paste:=xlPasteAll, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=True
Ensuite, tu peux remplacer

Citation:

Range("B11:B19").Select
Application.CutCopyMode = False
Selection.ClearContents

par

Code:

Range("B11:B19").ClearContents

Après, je ne comprends pas ce que tu veux faire. Supprimer le quadrillage, ok, mais sur quelles cellules ? Et que vient faire ce "Range("B18").Activate" ?
Enfin, pour répondre à

Citation:

J'aimerai que la case selectionner pour collez soit la derniere case non utilisé??

... il serait temps que tu te poses la question :?
Regarde là, tu as différentes syntaxes. Lis bien les explications, les cas d'utilisation diffèrent vraiment.
04/06/2007, 13h00
guismoman33

Citation:

Sheets("21)Contrôle").Range("B10").Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True

Il me dit qu'il y a une erreur de syntaxe dans ce passage la

Oui, je n'ai pas vérifié la syntaxe de ton collage spécial. Corrige :
Code:

1 2 Sheets("21)Contrôle").Range("B10").PasteSpecial Paste:=xlPasteAll, _ SkipBlanks:=False, Transpose:=True
A+

04/06/2007, 14h35
guismoman33

oki derniere question pour savoir la dernière ligne j'ai fais ceci, mais il ne m'affiche pas du tout la derniere ligne, j'ai que 12 ligne d'utilisée lui me renvoie 18...D'ou peut venir ce probleme... Voila le mini code mdr :

Citation:

derniereligne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
MsgBox derniereligne
04/06/2007, 14h43
ouskel'n'or

Relis l'explication que j'en donne dans l'url que je t'ai donnée ;)
(Là, j'ai plus le tps)
04/06/2007, 15h10
guismoman33

ENfaite je veux savoir la premiere lignes vides
04/06/2007, 18h14
ouskel'n'or

Très dur en effet, puisqu'il faut ajouter 1 à DerniereLigne :mur: