Discussion :

[billy78]

Bonjour, j'extraits de mon tab Croisé dynmq des fichiers sur différents marchés, et quand pour certaines années, je n'ai pas de données, j'ai #ref!, que je voudrai remplacer par 0. Help me

[ouskel'n'or]

Le mieux est de travailler sur la formule. Peux-tu nous la montrer ?

PS - Pense à nos vieuzyeux... C'est mignon quand c'est petit mais c'est plus grand que c'est plus lisible

PS (re) - Bienvenue sur le forum

[illight]

tu fait ta recherche dans le TCD avec quoi comme fonction ? pour enlever le # REF, a mon avis il faut que tu regarde du coté d ela fonction ESTERREUR

[billy78]

tu fait ta recherche dans le TCD avec quoi comme fonction ? pour enlever le # REF, a mon avis il faut que tu regarde du coté d ela fonction ESTERREUR

Oui bein en fait, je fais appel à ce TCD à partir d'une autre procédure:
Soit Sortie, le fichier de données à partir duquel est fait le TCD
On a une maquette qui represente un modele sur lequel on va extrapoler les donnees de chaque marché.
On doit avoir au final 10 fichiers qu'on pourra ouvrir dans un dossier appelé DOSS.


Jai d'abord ds mon prog, la construction du TCD, puis la mise en page de la Maquette (la maquette est un modele de fichier de données), ainsi tous les fichiers (à savoir pour chaque marché financier (il y a 5 marchés: marche1, marche2...) avec ou sans A( donc 2*5=10 marchés(marche1A, marche1B, marche2A...)) prennent la meme forme que la maquette, mais il faudrait que leurs données ainsi copiées ne le soient qu'en valeur!!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub temp()
Dim destination As String
destination = "chemin\billyl\"
 
Windows("Sortie.xls").Activate
ActiveSheet.PivotTables("TCD").PivotFields("A"). _
    CurrentPage = "A"
ActiveSheet.PivotTables("TCD").PivotFields("Marches_"). _
    CurrentPage = "marche1"
Windows("Maquette.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=destination & "marche1A.xls"

Quant à la fonction esterr, , je pense que c'est skil faudrait faire mais quelle est la bonne formule dont j'ai besoin pour que ça porte sur toutes les cellules #REF! , et sur quel fichier faut il que je mette cette formule? je pense que ce doit etre sur la Maquette mais comment l'ecrire en code vba ?

Ca fait long pour pas bcp de difficultés je pense, mais ce sont mes pbs rencontrés!!!
Merci d'avance......

[illight]

A mon souvenir, je crois que tu peux pas regarder une cellule en VBA et récupérer la valeur d'une cellule si c'est une erreur, après peut etre que je me trompe


Pour le ESTERREUR, regarde dans l'aide en ligne comment elle marche

[billy78]

A mon souvenir, je crois que tu peux pas regarder une cellule en VBA et récupérer la valeur d'une cellule si c'est une erreur, après peut etre que je me trompe


Pour le ESTERREUR, regarde dans l'aide en ligne comment elle marche

Justement, avec le esterr, ça pourrait marcher, mais je n'arrive pas à le faire sur l'ensemble de la feuille. Un clik-gliss n'a pas l'effet que je voudrais, car il me fait ressortir exactement la meme donnée, il me copie colle la meme donnee pour toutes les annees, alors k pour chq annee elles devraient etre differentes.

Merci pour le retour, je pense que ce devrait etre the last one!!!