Erreur d'execution 1004 erreur definie par l'application
Z
Bonjour,
Merci d'avance à tous ceux qui voudront bien prendre de leur temps pour essayer de m'aider.
Voilà; à l'exécution de la macro ci-dessous j'ai le message
"Erreur d'execution 1004 erreur definie par l'application ou par l'objet"
L'erreur se situe au niveau de la ligne en gras (x.Visible = True) ! J'ai choisi de mettre tout le code pour mieux vous aiguiller.
Je vous en remercie encore pour votre aide.
Public Sub RefreshScopeFI()
PivotOtherInstru = "Other Instruments"
PivotHoldType = " holding type"
PivotNatuFund = "Nature of fund"
Set FI_Cal = Sheets("Calculs_FI")
'/----------------------- --------------------/
' ---------------------- FI expo -------/
'/--------------------------------------------/
Set pvt = FI_Cal.PivotTables("FI_expo")
Set OtherInstru = pvt.PivotFields(PivotOtherInstru).PivotItems
Set HoldType = pvt.PivotFields(PivotHoldType).PivotItems
Set NatFund = pvt.PivotFields(PivotNatuFund).PivotItems
With pvt
.ManualUpdate = True
'MAJ de Other Instruments
'Remise à zero
For Each x In OtherInstru
[b]x.Visible = True[/b]
Next x
'application du mapping
For Each PivItem In OtherInstru
Select Case PivItem.Name
Case "Internal Loan for holding"
PivItem.Visible = False
Case Else
PivItem.Visible = True
End Select
Next PivItem
'MAJ de Holding Type
'Remise à zero
For Each x In HoldType
x.Visible = True
Next x
'application du mapping
For Each PivItem In HoldType
Select Case PivItem.Name
Case "Government bonds", "Corporate bonds"
PivItem.Visible = True
Case Else
PivItem.Visible = False
End Select
Next PivItem
'MAJ de Physical Asset
'Remise à zero
For Each x In NatFund
x.Visible = True
Next x
'application du mapping
For Each PivItem In NatFund
Select Case PivItem.Name
Case "Holding"
PivItem.Visible = False
Case Else
PivItem.Visible = True
End Select
Next PivItem
.ManualUpdate = False
End With
Set HoldType = Nothing
Set pvt = Nothing
Set OtherInstru = Nothing
Set NatFund = Nothing
End Sub
A
Bonjour
Pour une meilleure lisibilité, merci d'utiliser la balise "Code"
Cordialement