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

Yvan1 · 6 Septembre 2023

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 · 6 Septembre 2023

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 · 6 Septembre 2023

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

Compte Supprimé 979 · 6 Septembre 2023

Re,

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

Yvan1 · 6 Septembre 2023

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

Une idée sur ma problématique ?

Merci d'avance,

Dranreb · 6 Septembre 2023

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 · 6 Septembre 2023

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

Dranreb · 6 Septembre 2023

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 · 6 Septembre 2023

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

Yvan1 · 6 Septembre 2023

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 · 7 Septembre 2023

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

VB:

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

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

Yvan1

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Yvan1

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Yvan1

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Yvan1

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Yvan1

XLDnaute Occasionnel

Yvan1

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires