tcd date

[Cuistoy]

bonjours a tous

j'ai dans une feuille trois tableaux dinamique
et il possible que quand je change la date du 1 er
tableau sa modifie les autres dates des tableuax?

merci de vos reponce

 

[ERic]

Bonjour a toi

un peu plus de détail nous aiderai a solutionner ton pb. Si possible avoir ton fichier

 

[ERic]

Bonjour a toi

un peu plus de détail nous aiderai a solutionner ton pb. Si possible avoir ton fichier

 

[Dan]

Bonjour,

Clique sur ce lien --> Lien supprimé.
Tu trouveras les explications et propositions dans le fichier que j'ai posté le 19/01 à 22H30.
Le reste du fil t'explique comment tu peux faire cela par macro.

Si pb n'hésite pas

 

[cuistoy]

bousoir ERic le forum

j'ai mis mon fichier le 1er date 01/04/2006
je voudrais que quand je change cette date que le tableaux 2 le fasse egalement

merci [file name=Classeur1_20060409174436.zip size=29411]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060409174436.zip[/file]

 

[Dan]

Re,

Prends la deuxième macro du 20/01 à 20H47 dans le fil dont j'ai placé la référence avant ton post.

Si pb n'hésite pas

 

[cuistoy]

merci de vos reponce
j'ai essayer les code le voici

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, _
Range('C3')) Is Nothing Then
Dim Selection_Liste As String
Selection_Liste = Range('C3').Value

ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields( _
'Date').CurrentPage = Selection_Liste
ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields( _
'Date').CurrentPage = Selection_Liste

End If

End Sub

il ne fonctionne pas mes donné sont sur une autrefeuille

bonne soiré

 

[cuistoy]

ok je vient de réussir voici le code

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, _
Range('C3')) Is Nothing Then
Dim Selection_Liste As String
Selection_Liste = Range('C3').Value

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Selection_Liste As String
With ActiveSheet
Selection_Liste = .PivotTables('Tableau croisé dynamique1').PivotFields( _
'date').CurrentPage
.PivotTables('Tableau croisé dynamique2').PivotFields( _
'date').CurrentPage = Selection_Liste

End With
End Sub

maintenantje veux la meme chose sur 4 feuilles esque c'est possible

merci

 

[Dan]

Re,

Heu tu mélanges les codes là et tu déclaresdes variables deux fois ...

Place plutôt ceci en VBA dans la feuille PRODCHAUD :
:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro  par Dan pour Cuistoy
'Macro pour [B]Lien supprimé[/B]
Dim Selection_Liste As Date
With ActiveSheet
Selection_Liste = .PivotTables('Tableau croisé dynamique1').PivotFields( _
 'date').CurrentPage
 .PivotTables('Tableau croisé dynamique2').PivotFields( _
 'date').CurrentPage = Selection_Liste
End With
End Sub

Pour les autres feuilles, tu veux que ce soit exécuté d'après la feuille PROCHAUD ou d'après les TCD dans ces feuilles.

 

[cuistoy]

salut Dan le forum

oui je voudrais modifier date depuis feille PRODCHAUD

et que mes tcd se modifie dans les 4 autre feuilles

je regarde ton code et fait un teste

merci bonne soirée

 

[Dan]

Re,

Si tes autres TCD sont construits à partir du premier, ils se mettront à jour automatiquement dès que quelque chose changera dans ton 1er TCD; cela ne concerne pas les changements au niveau du champ de page mais de ta base de données.

Si par contre,tu veux qu'ils se changent en fonction du champ de page du premier, il faudra adapter la macro en fonction.

Pour cela, je dois connaitre :
- Le nom des TCD des autres pages
- Le nom de chaque feuille où se trouve un TCD à modifier.

Bonne soirée

 

[cuistoy]

Salut Dan le forum

je te joint mon fichier zip si tu veux regarder mes tcd

a bientôt

 

[Dan]

Bonsoir,

:sick: Il est où le fichier ?... :unsure:

Pas d'espace et fichier Zippé < 50Ko

 

[cuistoy]

re
désolé j'ai pas fait gaf
le voici Ce lien n'existe plus

 

[cuistoy]

ou
lahttp://www.send-file.co.uk/B7C9C8C0B76167DF