Discussion :

[jeo13]

Bonjour a tous,

J'ai un classeur dans lequel se trouve un tableau croisé dynamique.

Depuis une autre feuille, je manipule les données de ce tableau par la fonction LIREDONNEESTABCROISDYNAMIQUE

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Range("B14").Select
      ActiveCell.FormulaR1C1 = _
        "=LIREDONNEESTABCROISDYNAMIQUE(""Count of Amount in USD"",'Pivot Table'!R3C1,""User TRT"",""TF"")"

Le tableau croisé dynamique étant variable, si un jour il n'y a pas de TF dans la colonne USER TRT, la formule me donne #REF!.

Y a-t-il un moyen de transformer cette formule en quelque chose du genre:
S'il n y a pas de donnée correspondante alors la valeur vaut 0 ?

Merci d'avance !

[illight]

Je te conseille plutot de faire un affichage de toutes les données (tu fais un double clic sur le champ et tu coche la case "Afficher les éléments sans données"

[cafeine]

Hello,

il y a un premier problème, tu écris une fonction fonction en français avec formulaR1C1 qui attend une fonction en anglais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       ActiveCell.FormulaR1C1 = _
        "=LIREDONNEESTABCROISDYNAMIQUE(

[jeo13]

Hello,

il y a un premier problème, tu écris une fonction fonction en français avec formulaR1C1 qui attend une fonction en anglais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       ActiveCell.FormulaR1C1 = _
        "=LIREDONNEESTABCROISDYNAMIQUE(

Oups yes c'est vrai désolé, dans mon code c'est bien en anglais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(

J'avais traduit avant de poster ici pour les non anglophones

Je te conseille plutot de faire un affichage de toutes les données (tu fais un double clic sur le champ et tu coche la case "Afficher les éléments sans données"

Je crois que je me suis mal exprimé.
En fait la source du tableau croisé dynamique est variable (1 source par jour)
Et je récupere dans une autre feuille, a partir du tcd, les sommes et dénombrements correspondants a chaque USER TRT.

Mais tous les USER ne sont pas forcément tous les jours présents dans la plage source du tcdet donc dans le tcd.

Ce qui donne le #REF!.

[illight]

Tu veux dire que la source tu la redéfinit à chaque fois ?

Sinon tu peut pas faire une gestion d'erreur sur ton #REF ou il apparait ? ça vient d'une formule cette erreur ?

[jeo13]

Yes la source, c'est un tableau qui varie une fois par jour.

- Sinon qu'entends-tu par gestion d'erreur?

- Cette erreur vient en effet d'une formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=GETPIVOTDATA(""Count of Amount in USD"",'Pivot Table'!R3C1,""User TRT"",""TF"")"

La je lui demande d'aller trouver le décompte pour le User TRT TF, dans le tableau croisé dynamique situé dans la feuille 'Pivot Table' en cellule A3.

Quand il y a bien un USER TRT qui vaut TF, pas de souci ca retourne la bonne valeur. S'il n'y a pas de USER TRT, c'est la que ca retourne #REF.


Sachant qu'il y a 6 valeurs possibles pour USER, et qu'il n'y a pas toujours les 6 valeurs tous les jours dans la source du tcd, comment faire?

[jeo13]

Bonjour,

J'ai essayé, comme tu l'as suggéré, de faire une gestion d'erreur (d'abord directement dans la feuille sans passer par le code vba):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(D14);"0";D14)

ou D14 est une cellule qui renvoit #REF.

Mais il y a une msgbox excel me disant qu'il y a une erreur dans la formule...

[jeo13]

C'est bon le probleme est résolu.

De mon coté cela venait du fait que je suis sur une version anglaise:
La formule pour la gestion d'erreur est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(ISERROR(D14),"0",D14)

(avec des virgules et non des points virgules comme en francais)

Et donc pour lire les données du TCD on obtient (en anglais):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Range("B14").Select
    ActiveCell.FormulaR1C1 = _
    "=IF(ISERROR(GETPIVOTDATA(""Count of Amount in USD"",'Pivot Table'!R3C1,""User TRT"",""TF"")),""0"",GETPIVOTDATA(""Count of Amount in USD"",'Pivot Table'!R3C1,""User TRT"",""TF""))"

[illight]

Désolé de répondre si tard, mais oui c'était ça la gestion d'erreur dont je te parlais : il fallait faire un si est erreur pour pouvoir mettre 0 (ou autre chose) si jamais ça claquait une erreur, du coup ton TCD ne faisait plus apparaitre tes #REF que tu as

Bravo a toi, t'a trouvé tout seul

[jeo13]

Merci a toi de m'avoir guidé !

Et également a SilkyRoad pour son article dans la FAQ Excel.
J'aurais au moins appris ce qu'est une gestion d'erreur dans Excel et par la meme résolu mon probleme!