Trimestrialiser des données mensuelles

Bonjour à tous,

j'aurai besoin d'aide concernant un paquet de données. Je dois réaliser une moyenne sur 3 cellules consécutives et la reporter dans la colonne à côté. Pour ce set de données, j'ai plus de 300 cellules. Donc pas vraiment envie de le faire à la main sous Excel.

J'ai tenté un code sous VBA, le problème réside dans la mise en place de l'itération pour le nom des cellules.

Le fameux code en question :

Sub Trimestrialiser()

End Sub

Je vous remercie pour votre aide !!

Bonjour,

Ce ne sera pas ma méthode préférée... mebon !

Sub Trimestrialiser()
    Dim n%, i%
    With ActiveSheet
        n = WorksheetFunction.CountA(.Range("B:B"))
        For i = 2 To n Step 3
            .Range("C" & i) = WorksheetFunction.Average(.Range("B" & i).Resize(3))
        Next i
    End With
End Sub

Bonjour MFerrand,

je vous remercie pour la réponse rapide et efficace!