Bonjour à tous,
J'ai besoin de votre aide. Je suis en train de travailler sur un TCD ci-joint et mon but c'est de permettre la modification des quantités directement dans le TCD. Les totaux dans le TCD doivent se mettre à jour automatiquement + les quantités doivent se mettre à jour directement dans le tableau source.
Voici le code que j'ai mis :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, Sheets("TCD1").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, 16).ClearContents
.Cells(1, 16).Formula = "=sumproduct((A1:A11000=""" & nom & """)*(C1:C11000=""" & ref & """)*row(A1:A11000))"
lig = .Cells(1, 16)
col = Target.Column + 3
.Cells(col, lig) = CDbl(valeur)
End With
ThisWorkbook.RefreshAll
End Sub
Apparemment, il y a un souci vu que j'ai un message d'erreur ci dessous :
Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet
Pouvez vous m'aidez SVP,
Merci beaucoup de votre aide!
Partager