Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Chrystel01

XLDnaute Occasionnel
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à

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
 

Pièces jointes

  • TCD Code.xls
    45 KB · Affichages: 6

Hasco

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…