OVH Cloud OVH Cloud

TCD :Actualisation auto à la saisie

1 réponse
Avatar
Fabienne
Bonjour,
J'ai trouv=E9 sur Excelabo ( gr=E2ce aux conseils de=20
Misange ) comment rendre dynamique mon tableau source (=20
19 colonnes ).
J'ai =E9galement utilis=E9e une macro d'A. Vallon permettant=20
d'actualiser automatiquement =E0 la saisie mais je n'arrive=20
pas =E0 la faire fonctionner, il faut toujours que=20
j'actualise mon TCD.
Merci pour votre aide. Ci-dessous le code :

...Ensuite pour l'actualiser auto =E0 la saisie :
Dans le module attach=E9 =E0
la feuille (clic droit sur l'onglet > visualiser le
code) :
Private Sub
Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column =3D 2 Then
ActiveSheet.PivotTables("monTCD").RefreshTable
End Sub=20
Alain Vallon, (N=B01307)=20

1 réponse

Avatar
Misange
Bonjour
Est ce que ton TCD est bien nommé MonTCD ? (insertion/nom/définir et
formule avec decaler...) ?

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 06/10/2004 09:11:
Bonjour,
J'ai trouvé sur Excelabo ( grâce aux conseils de
Misange ) comment rendre dynamique mon tableau source (
19 colonnes ).
J'ai également utilisée une macro d'A. Vallon permettant
d'actualiser automatiquement à la saisie mais je n'arrive
pas à la faire fonctionner, il faut toujours que
j'actualise mon TCD.
Merci pour votre aide. Ci-dessous le code :

...Ensuite pour l'actualiser auto à la saisie :
Dans le module attaché à
la feuille (clic droit sur l'onglet > visualiser le
code) :
Private Sub
Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
ActiveSheet.PivotTables("monTCD").RefreshTable
End Sub
Alain Vallon, (N°1307)