Bonjour,
Je ne comprends pas ton nouveau fichier. Il est identique à celui que j'ai envoyé précédemment.
Sinon la source du TCD est dynamique (plage nommée BDD). L'actualisation et le calcul du nombre de parties s'effectue à l'activation de la feuille TCD.
Peux-tu regarder le joueur Brice pour la date du 08/05P72. Il fausse les résultats !
A te relire.
Cdlt.
Private Sub Worksheet_Activate()
Dim Rng As Range, Rng2 As Range, r As Range
Dim lCol As Long, LRow As Long, I As Long
Application.ScreenUpdating = False
Set r = Me.Cells.Find(what:="NB Parties", LookIn:=xlValues, lookat:=xlWhole)
If Not r Is Nothing Then
r.EntireColumn.ClearContents
End If
With Me.PivotTables(1)
.PivotCache.Refresh
With .TableRange1
lCol = .Columns.Count
LRow = .Rows.Count
End With
Set Rng = .TableRange1
End With
Set Rng2 = Rng.Cells(1, 1).Offset(2, lCol + 1).Resize(LRow - 3)
Rng2.Cells(1, 1).Offset(-1).Value = "NB parties"
For I = 1 To Rng2.Rows.Count
Rng2.Cells(I, 1).Value = _
Application.Count(Rng.Cells(1, 1).Offset(2 + I - 1, 1).Resize(1, lCol - 2))
Next I
Set Rng2 = Nothing: Set Rng = Nothing
End Sub