Remplacer valeur dans un tableau croisé dynamique

Bonjour tout le monde,

voici mon souci, j'espère que vous pourrez m'aider car ça quelque temps que je traine mon problème, enfin bref...

J'ai créé un tableau croisé dynamique sur Excel en reprenant les données d'un requête Access. Dans le tableau au lieu de me renvoyé les données il me les calcule donc au lieu d'avoir "occupé", j'ai "1". J'aimerai le remplacer. Donc j'ai écrit un code VB :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub remplacer() Dim UneCellule As Range   ActiveSheet.Range("D1:D10").Select Dim p As String 'Pour chaque cellule de la colonne For Each UneCellule In Selection 'récupération de la valeur p = UneCellule.Value 'remplacement des 1 par L p = Replace(p, "1", "L") 'remise de p dans la cellule UneCellule.Value = p Next End Sub

---

mais il me met l'erreur 1004.

Avez vous une solution svp.

Merci d'avance et bonne journée.

Essaye comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub remplacer() Dim UneCellule As Range   'Pour chaque cellule de la colonne For Each UneCellule In ActiveSheet.Range("D1:D10") 'remplacement des 1 par L UneCellule.Value = Replace(UneCellule.Value, "1", "L") Next End Sub

---

J'ai essayé et j'ai toujours la même erreur

Chez moi ce code fonctionne bien.
Le seul cas ou je récupère l'erreur 1004 c'est lorsque ma feuille est protégée.:?
Ta feuille est-elle protégée ?

comment sait ton si elle est protégé ou pas?

Menu Outils/Protection
Si ca te propose de proteger ta feuilles c'est qu'elle n'est pas protégée.
Si ca te propose de déprotéger ta feuille c'est qu'elle est protégée.
Par contre si elle est protégée avec mot de passe il faut connaître ledit mot de passe pour déprotéger.

Sinon via VBA

Code:

---

Sheets("Feuil1").Unprotect

---

donc j'ai fait ce que tu m'as dit et elle n'est pas protégé

Si ce n'est pas confidentiel, peux tu nous passer ton fichier en PJ
C'est plus facile de bosser sur du concret d'autant que chez moi c'est ok

Pièce jointe 32944
Voici le fichier

Bon ça va tout de suite mieux.
En fait tu cherches à modifier un TCD et tu n'as pas le droit.
Les résultats d'un TCD sont protégés d'où l'erreur 1004
J'avais fait tout mes tests sur des cellules d'une feuille simple.
Dans ce cas il faut peut être faire ton TCD différement.
Je planche et si j'ai une soluce et te la donnerais

merci beaucoup
ça m'aiderai vraiment

Alors j'ai trouvé un truc un peu tiré par les cheuveux mais bon ....
Si j'ai bien compris le pb, Soit pour la date donnée tn n'as pas d'enregistrement, soit tu as un enregistrement avec 1 dans le champ "libre".

Donc j'ai bricolé cette procédure qui formate le champ dynamique "Somme De Libre" pour mettre Occupé dès qu'il contient un chiffre et pour ecrire systématiquement Libre s'il n'y a pas de valeur.

Code:

---

1 2 3 4 5 6 7 8 9

Sub TestPivot() Dim TcD As PivotTable Set TcD = ActiveSheet.PivotTables(1) With TcD .PivotFields("Somme De Libre").NumberFormat = """Occupé""" .NullString = "Libre" End With End Sub

---

Dis moi si ça te conviens ou au moins si ça te mets sur une piste que tu pourras adapter. ;)

bon ben ça fonctionne toujours pas, toujours la même erreur, c'est désespérant...:(

J'ai fais cette procédure sur ton fichier et ça fonctionnait.
Je ne comprend plus :koi:

Bon je re-test ....

Ok vu:
Après tous mes tests il restait une erreur de frappe :oops:
Remplace

Code:

---

.PivotFields("Somme De Libre").NumberFormat = """Occupé"""

---

Par

Code:

---

.PivotFields("Nombre De Libre").NumberFormat = """Occupé"""

---

Attention, si tu change le type de calcul sur "Libre" il faudra adapter ta procédure.

C'est trop méga génial de la mort qui tue :D
Ça marcheeeeeeeeeeeeeeuuuuuuuuuuuuuuuuhhhhhhhhhhh.
Merci mille fois.

Content d'avoir pu te rendre service. :king:

Si tout fonctionne, pense à cocher :resolu: