Discussion :

[L0401684]

Bonjour,

Jessaye de creer un tableau croise dynamique en VBA mais malhereusement j ai un message de type erreur en lancant la macro

Run-time error 91
Object Variable or with block variable not set

voir le code en rouge

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
Sub PivotTablenew()

Rem -----information----
Rem Delete the existing pivot Tables

Application.DisplayAlerts = False

Rem Declare variable
Dim PvtTbl As PivotTable
Dim WsData As Worksheet
Dim wspvtTbl As Worksheet
Dim rngData As Range
Dim LastRow As Integer

With Sheets("main work centers")
    LastRow = .Cells(.Rows.Count, "G").End(xlUp).Row
End With

Rem determine which worksheet contains the data source --Dim WsData As Worksheet--
Set WsData = Worksheets("main work centers")

Rem determine where the pivot table will be created --Dim wspvtTbl As Worksheet--
Set wspvtTbl = Worksheets("pivot")

Rem delete all pivotables in the worksheet
For Each PvtTbl In wspvtTbl.PivotTables

PvtTbl.ClearTable

Next PvtTbl

Application.DisplayAlerts = True

Rem Set source data range
rngData = WsData.Range("G15:AB" & LastRow)

Rem create a table cache + pivot table

ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rngData).CreatePivotTable  _
TableDestination:=wspvtTbl.Range("A1"), TableName:="PivotTable1", Defaultversion:=xlpivoTableVersion12

 End Sub

Quelqu un pourrait me guider ?

Merci d avance

M

[joe.levrai]

Bonjour,

une variable objet nécessite l'instruction Set quand on lui affecte quelque chose

c'est d'autant plus dommage que ta ligne de commentaire juste au dessus l'utilise clairement dans son explication

[L0401684]

Maintenant j ai un message nouveau :

run-time error 5 --> invalid procedure call or argument

Code :

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

1
2
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rngData).CreatePivotTable _
TableDestination:=wspvtTbl.Range("A1"), TableName:="PivotTable1", Defaultversion:=xlpivoTableVersion12

Merci pour votre aide

[Invité]

Bonjour,
https://www.developpez.net/forums/d1...s/#post7904864