Chrystel01
XLDnaute Occasionnel
Bonjour
Je sollicite votre aide svp car je tourne en rond ...
J'ai TCD avec un champ calculé : Tx de fermeture resto vs jours de cantine = nb de jour de fermetures de restaurants / nb de jours théorique d'ouverture
sachant que ce nb théorique est fixe quel que soit le restaurant et évolue juste tous les mois.
Je voudrais donc pouvoir modifier ce nb de jours théoriques dans le champ calculé sans devoir le modifier manuellement (car j'ai plusieurs champs calculés de ce type)
Aussi, je pensais modifier le champ calculé grace à un code vba :
- saisir le nb de jours théorique dans une cellule
- stocker ce montant dans une variable
- puis réutiliser cette variable pour l'appliquer dans le champ calculé.
Mais cela ne fonctionne pas
Je vous joints un exemple pour que cela soit plus clair ainsi que le code vba
Pourriez-vous m'aider SVP ?
Dim nbjour
nbjour = Range("I14").Value
ActiveSheet.PivotTables("Tableau croisé dynamique3").CalculatedFields( _
"TX Fermeture resto vs Jours de cantine").StandardFormula = "=Restaurant/nbjour"
J'avais par ailleurs essayé de saisir ce nb de jours par établissement et par mois dans la base du TCD mais cela ne fonctionne pas. Il faudrait le créer sur de multiples champs (1 10aine * le nb de périodes * le nb d'établissements)... ce qui n'est pas possible.
Je vous remercie d'avance pour votre aide
Chrystel
Je sollicite votre aide svp car je tourne en rond ...
J'ai TCD avec un champ calculé : Tx de fermeture resto vs jours de cantine = nb de jour de fermetures de restaurants / nb de jours théorique d'ouverture
sachant que ce nb théorique est fixe quel que soit le restaurant et évolue juste tous les mois.
Je voudrais donc pouvoir modifier ce nb de jours théoriques dans le champ calculé sans devoir le modifier manuellement (car j'ai plusieurs champs calculés de ce type)
Aussi, je pensais modifier le champ calculé grace à un code vba :
- saisir le nb de jours théorique dans une cellule
- stocker ce montant dans une variable
- puis réutiliser cette variable pour l'appliquer dans le champ calculé.
Mais cela ne fonctionne pas
Je vous joints un exemple pour que cela soit plus clair ainsi que le code vba
Pourriez-vous m'aider SVP ?
Dim nbjour
nbjour = Range("I14").Value
ActiveSheet.PivotTables("Tableau croisé dynamique3").CalculatedFields( _
"TX Fermeture resto vs Jours de cantine").StandardFormula = "=Restaurant/nbjour"
J'avais par ailleurs essayé de saisir ce nb de jours par établissement et par mois dans la base du TCD mais cela ne fonctionne pas. Il faudrait le créer sur de multiples champs (1 10aine * le nb de périodes * le nb d'établissements)... ce qui n'est pas possible.
Je vous remercie d'avance pour votre aide
Chrystel