Fixer une valeur issu d'un TCD dans un autre tableau
Bonjour à tous,
je me permet de solliciter votre aide
je souhaite remplir un tableau d'activité journalier par le biais de Tableaux dynamique croisées
Problématique :
je n'arrive pas à fixer mes chiffres lorsque je mets à jour mes TCD journalièrement
d'avance merci
ci dessous mon code
Sub remplirtableau()
Dim TODAY As Date
prepa = "=GETPIVOTDATA(""Initialisation"",REPORTING!R12C6)"
repan1 = "=GETPIVOTDATA(""N°RMA"",REPORTING!R36C2,""Type"",""TPE"",""Niveau panne"",""Niv1"")"
repan3 = "=GETPIVOTDATA(""N°RMA"",REPORTING!R36C2,""Type"",""TPE"",""Niveau panne"",""Niv3"")"
att = "=GETPIVOTDATA(""N°ATT"",REPORTING!R12C2)"
colisrecpt = "=GETPIVOTDATA(""Id"",REPORTING!R24C6,""Type"",""Reception"")"
colisenv = "=GETPIVOTDATA(""Id"",REPORTING!R24C6,""Type"",""Envoie"")"
tpeenattente = "=GETPIVOTDATA(""N°RMA"",REPORTING!R35C5)"
Dte = Worksheets("REPORTING").Range("h2")
repan2 = "=GETPIVOTDATA(""N°RMA"",REPORTING!R36C2,""Type"",""TPE"",""Niveau panne"",""Niv2"")"
If MsgBox("Voulez-vous Actualiser le tableau ?", vbYesNo, "MISE A JOUR") = vbNo Then Exit Sub
ActiveWorkbook.RefreshAll
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 2).Value = prepa
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 3).Value = repan1
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 5).Value = repan3
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 10).Value = att
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 14).Value = colisrecpt
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 15).Value = colisenv
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 7).Value = tpeenattente
Worksheets("tableau").Range("B5:B167").Find(Dte).Offset(0, 4).Value = repan2
End Sub
bonjour
joins un petit fichier, avec le résultat attendu
à te relire
amitiés
D'abord merci pour le temps que tu m'accordes
ci joint le fichier
Résultat attendu :
Remplir le tableau (onglet tableau ) en fonction de la date (onglet reporting case H2)
En espérant avoir été claire
re
trop d'infos ce coup-ci
il faut joindre un fichier de 3 colonnes et 5 lignes avec le résultat attendu et une petite explication
note qu'un TCD affiche des résultats
si tu as besoin de ces résultats pour en faire une utilisation dans d'autres formules ou TCD, alors c'est une mauvaise idée
il existe bien des fonctions LIRETABLEAUbla-bla mais je les déconseille
il faut repartir de tes données initiales si besoin et non du TCD
à te relire
amitiés