Bonjour,
Une contribution :
Sub MoyennesTrim()
Dim TT(), nT1%, nT2%, i%, a%, c As Range
ReDim TT(1 To 16, 1 To 3)
For a = 0 To 3
For i = 1 To 4
TT(i + a * 4, 1) = "T" & i & "-" & 2014 + a
Next i
Next a
For Each c In Worksheets("Feuil4").Range("E2:E23")
a = CInt(Right(c.Cells(1, 2), 4)) - 2014: i = CInt(Mid(c.Cells(1, 2), 2, 1))
nT1 = i + a * 4
a = CInt(Right(c.Cells(1, 3), 4)) - 2014: i = CInt(Mid(c.Cells(1, 3), 2, 1))
nT2 = i + a * 4
For i = nT1 To nT2
TT(i, 2) = TT(i, 2) + c.Value: TT(i, 3) = TT(i, 3) + 1
Next i
Next c
For i = 1 To 16
If TT(i, 2) <> "" Then TT(i, 2) = TT(i, 2) / TT(i, 3)
Next i
ReDim Preserve TT(1 To 16, 1 To 2)
With Worksheets("Feuil4").Range("K2")
.Resize(16, 2).Value = TT
End With
End Sub
Cliquer sur le bouton Moyennes trim. A toi de voir comment tu veux adapter...
Cordialement.