Average sur plage

[degap05]

Bonjour,

Je reprends le thème de la discussion initiée par "fady", à laquelle j'ai apporté un début de réponse.

Des données en colonne "A".
La moyenne en "B1" de "A1:A10", en "B2" de "A11:A20", etc....

Comment adapter la macro pour la faire fonctionner sur autant de données qu'il y en a en colonne "A"(sauf si la dernière plage a moins de 10 lignes), sans avoir à allonger le code ? Une boucle ?

Avec votre aide.
Merci.
A+

 

[Minick]

Re : Average sur plage

Salut,

Sans boucle:

    Dim DerFormule As Integer
    
    DerFormule = Int(Range("A1").End(xlDown).Row / 10)
    If DerFormule <> 0 Then
        Range("B1:B" & DerFormule).FormulaR1C1 = "=AVERAGE(OFFSET(R1C1:R10C1,(ROW()-1)*10,))"
    End If

 

[degap05]

Re : Average sur plage

Parfait, merci Minick,

Je vais communiquer ta réponse à "fady".

Salut.