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à
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
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 O2è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