XL 2013 Remplacer une valeur grâce à un code VBA

[Chrystel01]

Bonjour,

Je voudrais remplacer la valeur d'un tableau croisé par une autre
J'ai trouvé le cas d'une personne qui avait exactement le même soucis qu'elle a pu solutionné grâce à 2 codes VBA mais je n'arrive pas les assembler pour la faire fonctionner.
J'ai toujours une formule d'erreur.
Sauriez vous m'aider SVP ?

Le lien est celui là

Remplacer valeur dans un tableau croisé dynamique - Excel

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.

www.developpez.net

​

1ère macro pou remplacer les données 1 par O

2ème macro pour pourvoir accéder au tableau croisé

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


Je vous remercie par avance et vous souhaite une bonne journée.

Chrystel

 

[Hasco]

Bonjour,

Votre fichier à un problème à l'ouverture et ne comporte pas de macro.
De plus, vous avez excel 2013 vous pouvez donc enregistrer vos fichiers en .xlsx ou .xlsm (avec macro).
Le format .xls est obsolète depuis 2007.
Vous bénéficierez ainsi des avancées de 2013.


Cordialement

 

[Chrystel01]

Bonjour,

Excusez -moi, le voilà.
C'est juste une erreur d'enregistrement.
Merci de votre aide.

 

[Hasco]

Bonjour,

C'est réalisable sans macro mais avec un format personnalisé sur le champ :

Cordialement

 

[Chrystel01]

Merci !
C'est effectivement une solution que Chris m'avait proposée mais je vais avoir plus de 3 valeurs à remplacer . C'est pour cela que je ne voyais que la solution VBA ? Désolée j'aurais dû préciser cette information.

 

[Hasco]

Re,

Bon je crois que je vais passer mon chemin.
Le classeur exemple doit être représentatif du problème et contenir les informations nécessaire à sa compréhension et éventuellement sa résolution.

Bonne continuation

 

[Chrystel01]

Merci Roblochon pour votre aide !

J'espère qu'une autre bonne âme pourra avoir une idée sur la base du code VBA envoyé..
Le classeur donne un exemple simple effectivement pour éviter la complexité.
C'est aussi celui que j'ai trouvé sur le lien ci-dessous pour lequel une solution semble avoir été trouvée, mais je n'arrive pas à l'appliquer en combinant les 2 codes VBA.
Je pensais ensuite adapter la macro pour prévoir les différents chiffres à remplacer.
Lien :
(https://www.developpez.net/forums/d...ice/excel/remplacer-tableau-croise-dynamique/

 

[Hasco]

Re,

Si vous avez bien lu le fil de discussion dont vous nous communiquez le lien, vous avez compris qu'il n'est pas possible de modifier les valeurs d'un tcd qui sont automatiquement calculées. D'ailleurs la solution qui fonctionne dans la discussion donnée, est la même que la mienne mais avec macro.

Comme vous vous refusez à nous en donner plus, pour qu'on puisse vous trouvez une solution, je m'arrête là.

Bonnes recherches