Discussion :

[fhuyet]

Bonjour,

j'ai un petit soucis récurrent : lorsque je veux sélectionner une cellule d'une feuille de travail autre que celle dans laquelle j'effectue mon code, l'erreur 1004 Select method class failed apparait. Plus précisémment, c'est mon Range ("X").Select qui pose problème. Quelqu'un pourrait il m'aider ?

[ilcocodrillo]

t'aurais un bout de code ? par ce que là franchement c'est un poil court pour t'aider...

[fhuyet]

Voici mon code :

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
Range("B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Extract GP3'!R1C1:R21195C7").CreatePivotTable TableDestination:="", _
        TableName:="PivotTable3", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Code compart")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Des compart")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Account n°")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
        "PivotTable3").PivotFields("Debit"), "Sum of Debit", xlSum
    ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
        "PivotTable3").PivotFields("Credit"), "Sum of Credit", xlSum
    Range("D3").Select    With ActiveSheet.PivotTables("PivotTable3").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 256
    ActiveSheet.PivotTables("PivotTable3").PivotSelect "'Code compart'[All;Total]" _
        , xlDataAndLabel, True
    Selection.Delete
    Range("B262").Select
    Selection.Delete

Le message d'erreur apparait sur la ligne Rnage ("D3"). Select

[ilcocodrillo]

1 ) utilise les balise CODE !

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
 
'Range("B1").Select
'Range(Selection, Selection.End(xlToRight)).Select
'Range(Selection, Selection.End(xlDown)).Select
'Range("A1").Select
'Range(Selection, Selection.End(xlToRight)).Select
'Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Extract GP3'!R1C1:R21195C7").CreatePivotTable TableDestination:="", _
TableName:="PivotTable3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
'ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Code compart")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Des compart")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Account n°")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Debit"), "Sum of Debit", xlSum
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Credit"), "Sum of Credit", xlSum
'Range("D3").Select
 
' il y a au moins déjà ça qui ne pouvait pas fonctionner
 
 With ActiveSheet.PivotTables("PivotTable3").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
 
''ça sert à rien
'ActiveWindow.ScrollRow = 86
'ActiveWindow.ScrollRow = 171
'ActiveWindow.ScrollRow = 256
ActiveSheet.PivotTables("PivotTable3").PivotSelect "'Code compart'[All;Total]" _
, xlDataAndLabel, True
Selection.Delete
Range("B262").Select
Selection.Delete

Mais il y a pas mal de ligne qui ne servent à rien dans ton code ... a commencer par les six premières...

[fhuyet]

OK, résolu. Merci beaucoup