[Toutes versions] Modifier directement des valeurs dans un TCD [Résolu]

[Lisarien]

Bonjour,

J'aimerais savoir s'il est possible de modifier directement un Tableau Croisé Dynamique.
Je m'explique : quand on essaye de modifier des cellules d'un TCD, Excel nous renvoie le message suivant : "Impossible de modifier cette partie du TCD".

J'aimerais pourtant donner la possibilité à l'utilisateur de modifier certaines cellules de la source du TCD, directement dans le TCD lui-même.

Savez vous si cela est possible, et s'il faut passer par de la programmation ?

Merci beaucoup pour votre aide

[Daniel.C]

Bonjour,

C'est comme si tu modifiais le résultat d'une formule...

J'aimerais pourtant donner la possibilité à l'utilisateur de modifier certaines cellules de la source du TCD, directement dans le TCD lui-même.

Comment pourrais-tu savoir quelles cellules source modifier ? Peux-tu donner un exemple de ce que tu veux faire ?

[Lisarien]

Bonjour,

Je comprends ta remarque puisque dans la logique d'un TCD, une cellule peut être la somme de plusieurs ligne du tableau source.
Dans mon cas précis, une cellule du TCD fait référence à une seule cellule de la source.
Mon TCD possède en effet 2 étiquettes de lignes Nom et Référence, et un couple de valeurs (Nom, Référence) est toujours unique.
Par conséquent, en sélectionnant une valeur dans une cellule du TCD, je fais finalement référence à une seule cellule de la source.
Donc à ce moment là, ne pourrais-je pas soit éditer la cellule directement dans le TCD, ou alors afficher une boite de dialogue permettant de modifier la source et recalculer le TCD automatiquement ?

En espérant que je ne t'ai pas trop embrouillé.
Merci

[Daniel.C]

Dans ce cas, c'est peut-être possible. Peux-tu poster un classeur exemple ?

[Lisarien]

Voici l'exemple en question.

Concrètement, je souhaiterais que si on clique sur la cellule C10 du TCD, on puisse changer la valeur de 219 à 315, par exemple sans aller dans l'onglet Source. Évidemment l'onglet Source doit être mis à jour automatiquement, en faisant cela.

[Daniel.C]

Il faut enregistrer ton classeur au format xlsm (classeur supportant les macros). Dans le module de la feuille "TCD" colle la macro suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Intersect(Target, Sheets("TCD").PivotTables(1).DataBodyRange) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    ligne = Columns(Target.Column).Find("", Target, xlValues, xlWhole, xlByRows, xlPrevious).Row
    nom = Cells(ligne, 1)
    ref = Cells(Target.Row, 1)
    With Sheets("Source")
        valeur = InputBox("Entrez la nouvelle valeur")
        If Not IsNumeric(valeur) Then Exit Sub
        .Cells(1, 12).ClearContents
        .Cells(1, 12).Formula = "=sumproduct((A1:A1000=""" & nom & """)*(C1:C1000=""" & ref & """)*row(A1:A1000))"
        lig = .Cells(1, 12)
        col = Target.Column + 3
        .Cells(lig, col) = CDbl(valeur)
    End With
    ThisWorkbook.RefreshAll
End Sub

Lorsque tu fais un double clic sur un champ de valeur du TCD, la macro te demande la valeur à affecter à cet endroit et affectue la modif.
PS. Si tu n'es pas à l'aise avec les macros, dis-le, je te donnerai de plus amples informations et je renverrai le classeur modifié.

[Lisarien]

Merci beaucoup, cela fonctionne parfaitement. Super travail.

Histoire de pousser la réflexion un peu plus loin, et sans te demander de le faire non plus, penses tu qu'il soit possible d'éditer la cellule directement ou d'après toi faut-il nécessairement passer par une boite de dialogue ?

[Daniel.C]

A mon avis, c'est impossible.

[78chris]

Bonjour

Pour confirmer la réponse de Daniel que je salue, le TCD est superposé à la feuille Excel mais ce sont deux objets distincts.
En réalité les données sont stockées ailleurs, dans une sorte de cube non visible et donc non éditable.

Par ailleurs ton cas est un cas particulier car la vocation du TCD est l'analyse statistique et on a donc rarement un TCD dont chaque donnée reflète la source.

[Lisarien]

Ok, merci beaucoup pour votre aide.

Je vais m'inspirer de cette solution pour faire ce qu'on me demande.

A bientôt et bonne journée