Discussion :

[caro93150]

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 :

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

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.

[J.Michel]

Essaye comme ça:

Code :

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

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

[caro93150]

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

[J.Michel]

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 ?

[caro93150]

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

[J.Michel]

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 :

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

Sheets("Feuil1").Unprotect

[caro93150]

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

[J.Michel]

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

[caro93150]

tableau dynamique2.xls
Voici le fichier

[J.Michel]

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

[caro93150]

merci beaucoup
ça m'aiderai vraiment

[J.Michel]

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 :

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

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.

[caro93150]

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

[J.Michel]

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

Bon je re-test ....

[J.Michel]

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

Code :

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

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

Par

Code :

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

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

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

[caro93150]

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

[J.Michel]

Content d'avoir pu te rendre service.

Si tout fonctionne, pense à cocher