Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel un truc tordu sur les TCD

un truc tordu sur les TCD

5 réponses
Avatar
Pierre CFI [mvp]
Bonjour
Je voudrais faire 2 tcd sur la méme source, là, çà va, Mais, quand dans 1 tcd, je change la page, il faudrait que cela change aussi
la page de l'autre
voilà, merci

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Tu veux dire que tu changes de champ de page sur un tableau ?
Cordialement.
Daniel
"Pierre CFI [mvp]" a écrit dans le message de
news: ORF1iCB%
Bonjour
Je voudrais faire 2 tcd sur la méme source, là, çà va, Mais, quand dans 1
tcd, je change la page, il faudrait que cela change aussi la page de
l'autre
voilà, merci

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info




Avatar
Pierre CFI [mvp]
j'ai trouvé
la liste page du tcd 1 est en b1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValT As String
If Not Intersect(Target, Range("b1")) Is Nothing Then
ValT = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("semaine").CurrentPage

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("semaine").CurrentPage = ValT

End If

End Sub


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Daniel" a écrit dans le message de news: OeRN9IB%
Bonjour.
Tu veux dire que tu changes de champ de page sur un tableau ?
Cordialement.
Daniel
"Pierre CFI [mvp]" a écrit dans le message de news: ORF1iCB%
Bonjour
Je voudrais faire 2 tcd sur la méme source, là, çà va, Mais, quand dans 1 tcd, je change la page, il faudrait que cela change
aussi la page de l'autre
voilà, merci

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info








Avatar
AV
Utilise l'évènement Worksheet_Calculate de la page contenant le TCD

Avec les 2 TCD sur la même page et le champ de page du 1° en F1 et celui du 2°
en F11

Private Sub Worksheet_Calculate()
[F11] = [F1]
End Sub

Si les 2 TCD sont sur des pages différentes, adapte la plage

AV
Avatar
Trirème
Bonjour,
Le MPFE c'est comme le divan du psy : il suffit d'y évoquer ses problèmes et on trouve la
solution tout seul.
;-)

Cordialement
Trirème

j'ai trouvé
la liste page du tcd 1 est en b1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValT As String
If Not Intersect(Target, Range("b1")) Is Nothing Then
ValT = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("semaine").CurrentPage

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("semaine").CurrentPage = ValT

End If

End Sub




Avatar
Pierre CFI [mvp]
ce qui est bien avec toi Alain, c'est qu'on se sent vraiment.....petit
chapeau, encore plus simple car pas besoin de connaitre le nom du tcd

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"AV" a écrit dans le message de news: eX22dUB%
Utilise l'évènement Worksheet_Calculate de la page contenant le TCD

Avec les 2 TCD sur la même page et le champ de page du 1° en F1 et celui du 2° en F11

Private Sub Worksheet_Calculate()
[F11] = [F1]
End Sub

Si les 2 TCD sont sur des pages différentes, adapte la plage

AV