Des macros "dynamiques". Ça existe ?

Bonjour,

Autre question, autre post:

Existe-t-il un moyen pour que les macros se mettent à jour automatiquement lorsque je fais des modifications dans mes tableaux ?

merci,

balty

Bonsoir,

Je dirais "oui" !. Mais place un fichier avec des explications claires sur ce que tu veux faire car là pas possible de comprendre.

A te lire

Dan

C'est assez général, je n'ai pas d'exemple particulier.

le premier qui me vient à l'esprit, est le suivant.

J'ai un code qui met à jour un tableau croisé dynamique automatiquement:

Private Sub Worksheet_Activate()

Set pvtTable = Worksheets("BOM PROJECT").Range("H17").PivotTable

pvtTable.RefreshTable

End Sub

Si par malheur je déplace mon TCD, je dois adapter toutes les pages contenant ce code.

Est-ce que le H17 de mon exemple peut se mettre à jour "tout seul" ?

Re,

Lol ! cela me fait penser à une solution que je propose souvent celle-là..

Pour répondre à ta question : si tu déplaces ton TCD, la référence ne sera pas prise compte. sauf si tu attribues un nom à H17 (via menu/insertion/nom/définir) et que tu le places dans ta macro.

Exemple : $H$17 = Plage

puis :

Private Sub Worksheet_Activate() 
Set pvtTable = Worksheets("BOM PROJECT").Range("Plage").PivotTable 
pvtTable.RefreshTable 
End Sub 

Sinon essaye :

Private Sub Worksheet_Activate() 
ThisWorkbook.RefreshAll 
End sub

ou essaye aussi

Private Sub Worksheet_Activate() 
Dim Tcd As PivotTable
Tcd.RefreshTable
End Sub

Ces deux dernières solutions sont intéressantes si tu as plusieurs TCD

A bientôt

Dan

C'est tellement simple que j'comprends pas pourquoi je n`y ai pas pensé...

Merci.