TCD et dates

[CB60]

Bonjour
Je pense que ça peut donner des idées à d'autre.
Inspiration Debra

 

[MJ13]

Re : TCD et dates

Bonjour

Et merci Bruno, pour cet exemple. En plus cela tombe bien, je suis en ce moment dans les TCDS.

J'ai d'aileurs fait une macro pour mettre à jour un TCD si on veut des moyennes au lieu des sommes que le TCD crée lorsqu'on ajoute des élément au TCD.

Voici le code (il suffit de se mettre sur le premier nom qui doit être en colonne à prendre en compte dans un des champs):

Sub Moy_TCD()
' Macro enregistrée le 15/11/2007 par MJ
Range("F5").Select
For i = 1 To 19
nomf = ActiveCell.Value
      ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(nomf).Function = xlAverage
      ActiveCell.Offset(1, 0).Range("A1").Select
 
        Next i
End Sub

 

[Pierrot93]

Re : TCD et dates

Bonjour Bruno, Michel

@Bruno
je trouve que ton code en module 1 ressemble bigrement à celui ci :

https://www.excel-downloads.com/threads/vba-tcd-a-la-date-du-jour.84664/

bonne journée
@+

 

[CB60]

Re : TCD et dates

Bonjour Pierrot,
Réponse,Je ne pense pas qu'il ressemble au code que tu indique, car la macro que j'utilise ne fais que raffraichire le TCD:
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Row = 2 And Target.Column = 8 Or Target.Row = 5 And Target.Column = 8 Or Target.Row = 9 And Target.Column = 8 Then
If Target.Column = 9 Then
For Each tcd In ActiveSheet.PivotTables
tcd.PivotCache.Refresh
Next tcd
End If
End Sub

ce n'est qu'une macro événementielle pour le fonctionnement( j'ai bien copié ton code car je le trouve interressant, mais c'est pour ne pas le perdre, il n'a rien à voir avec les TCD que je propose)

 

[Pierrot93]

Re : TCD et dates

Re,

ok Bruno, pas de problème, 🙂 je parlais juste du code présent dans le module 1 pour affichage des données d'une journée.

@+

 

[CB60]

Re : TCD et dates

Bonjour
J'ai enlevé les macros qui pouvaient porter à confusion,
la base est évolutive en nombre de ligne ( nommée) et les tcds s'actualisent lors d'une saisie dans la colonne "4"