SOS TCD

[Christophe]

Bonjour,

Je suis à la recherche d'une macro ou toute autre solution permettant de reporter dans plusieurs tableaux croisés dynamiques un choix saisi dans une seule cellule.
Par exemple, dans le fichier ci-joint, je choisis dans la cellule B2 le prénom "Olivier" et ce choix met automatiquement à jour mes 2 TCD en cellules D6 et G6.

Merci par avance du coup de mains.

Christophe

 

[Valérie]

Salut Christophe,


A mon avis si personne n'a répondu au premier c'est pas parce qu'on ne l'avait pas lu, mais bel et bien parce qu'on n'avait pas de réponse à te donner à la volée!!

Ton fichier exemple ne sert pas à grand chose. Tu peux essayer une macro évenementielle sur la feuille au changement

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("B2") Then
Range("D6")=Range("B2")
Range("G6")=Range("B2")
End If

End If

End Sub

Sinon je oie pas, et STP arrête de poster les meme sujet on comprend à la première!!

@ bientôt
Valérie

 

[Valérie]

Oups... J'ai un End If en trop bien sûr

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("B2") Then
Range("D6")=Range("B2")
Range("G6")=Range("B2")
End If

End Sub

SORRY mais d'avoir lu 2 fois la même chose m'a rendue bougon..ne

@+
valérie

 

[andré]

Salut à vous,

Et si en D6 et G6 tu tapais : =B2

André

 

[Valérie]

Slt Chistophe et plus particulièrement André

Ce me semble mais je ne veux pas dire de bétises que dans un TCD tu peux pas mettre de formule de calculs y compris sur les champs placés en page

@+
valérie

 

[Valérie]

Bonjour Christophe et le forum,

Bon je vois que ma proposition n'était pas des plus réfléchie...
Alors en voilà une autre :

ActiveSheet.PivotTables("TCD").PivotFields("Prénom"). _
CurrentPage = Range("B2")


"TDC" = nom de ton tableau croisé
"Prénom" = nom de ton champs (placé en page)
Range("B2") = Ta cellule de saisie

@+
valérie