XL 2013 Macro positionnée dans le code d'un feuille

[Yvan1]

Bonjour,
J'ai mis du code dans la feuille d'un classeur, de façon à ce qu'à chaque changement effectué dans un TCD, des formules soient mises à jour.
Mais la macro ne s'active pas après un changement.
Voici le code :

Private Sub SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)


Application.ScreenUpdating = False

With Sheets("CA").PivotTables("TCD1").TableRange1
.Range("E20:E500").Clear 'RAZ
.Columns(3).Copy .Columns(4) 'pour les formats
.Columns(4) = "=if(iserror((D20-C20)/C20)=true,,(D20-C20)/C20)"
.Cells(1, 4) = "Prog. %"
.Columns(4).NumberFormat = "# %"
End With

With Sheets("CA").PivotTables("TCD2").TableRange1
.Range("J20:J500").Clear 'RAZ
.Columns(3).Copy .Columns(4) 'pour les formats
.Columns(4) = "=if(iserror((I20-H20)/H20)=true,,(I20-H20)/H20)"
.Cells(1, 4) = "Prog. %"
.Columns(4).NumberFormat = "# %"
End With

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Le fichier de base étant très volumineux, je ne peux l'insérer.

Quelqu'un a-t-il une idée sur l'erreur ?

Merci d'avance,

Yvan

 

[Compte Supprimé 979]

Bonjour

XLD vous offre une panoplie d'outils pour mettre en forme votre post et notamment

Alors merci de vous en servir SVP

A+

 

[Yvan1]

Pardon, mais je ne vois pas à quoi cela sert ?

 

[Compte Supprimé 979]

Re,

Simplement à mieux lire un fil,
quand vous déposer du code, pensez à le mettre entre balises 😉

 

[Yvan1]

Ok, j'essaierai d'être plus clair la prochaine fois.

Une idée sur ma problématique ?

Merci d'avance,

 

[Dranreb]

Bonjour.
Vous ne devriez pas donner un nom d'évènement à une Pivate Sub à invoquer (je ne sais où) par vos propres soins. SheetPivotTableUpdate est en effet un évènement de l'objet Workbook.

 

[Yvan1]

Merci pour votre réponse.
Je crée un fichier exemple et vous le soumet.

 

[Dranreb]

Notez que votre intention n'était peut être de le faire. En particulier si vous êtes dans un module d'objet Worksheet, vous pouvez sélectionner 'Worksheet' dans la liste de gauche (Objet) qui surmonte la fenêtre de code, et dans celle de droite (Procédure) vous trouverez alors 'PivotTableUpdate'. En cliquant dessus vous implanterez une procédure de prise en charge de l'évènement qui était peut être en fait votre intention …

 

[Yvan1]

Je teste et reviens vers vous.
En touts cas, merci de votre aide.

 

[Yvan1]

A présent que j'ai allégé mon fichier, c'est plus simple à expliquer.
Comme vous pourrez le constater, il y a une formule dans les colonnes E et J, qui se dupliquent en fonction de la taille du TCD.
A chaque changement dans un segment, je souhaite qu'avec la mise à jour du TCD, il y ait la mise à jour de cette formule, notamment dans le nombre de lignes dupliquées.
Et comme vous pourrez le constater, la formule ne se met pas à jour correctement...
Le code se trouve dans la feuille CA, avec la modification que vous m'avez indiquée.
Et c'est donc là que j'ai besoin de votre aide.
J'ai par ailleurs penser créer un champ calculé plutôt que mettre une formule, mais je n'arrive pas à le définir.
Je suis donc dans l'attente de votre aide.
Au plaisir de vous lire...

 

[Dranreb]

Bonjour.
Je n'utilise pas les TCD alors je ne sais pas. Mais en mettant simplement ça, y a-t-il du mieux ? :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
   Target.TableRange1.Columns(4).FormulaR1C1 = "=IFERROR((RC[-1]-RC[-2])/RC[-2],"""")"
   End Sub