XL 2013 Moyenne d'un plage variante (Résolu)

Dranreb

XLDnaute Barbatruc

• 3 Septembre 2019

• #2

Bonjour.
Moi je ferais en D24 :

Code:

=MOYENNE(D$2:DECALER(D24;-1;0))

Et en D45 :

Code:

=MOYENNE(D$27:DECALER(D45;-1;0))

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Septembre 2019

• #3

Bonjour Dranreb,

Malheureusement, les en-têtes ne sont pas toujours aux mêmes lignes et le nombre de lignes pour chaque section varient d'une semaine à l'autre. Donc, il faut trouver la moyenne entre l'en-tête Rendement machine et la dernière cellule non vide.

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Septembre 2019

• #4

S'il faut aussi pouvoir insérer une ligne tout devant ou supprimer la 1ère ligne vous pouvez mettre :

Code:

=MOYENNE(DECALER(D$2);1;0):DECALER(D24;-1;0))

 

Dernière édition: 3 Septembre 2019

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Septembre 2019

• #5

Vous pouvez aussi essayer cette macro si les cellules devant recevoir la formule sont vides au départ :

VB:

Sub Test()
   Dim Cel As Range, Fml As String
   Set Cel = ActiveSheet.[D1]
   Do: Set Cel = Cel.Resize(Rows.Count - Cel.Row).Find("Rendement machine")
      If Cel Is Nothing Then Exit Do
      Fml = "=AVERAGE(R" & Cel.Row + 1 & "C:R[-1]C)"
      Set Cel = Cel.End(xlDown).Offset(1)
      Cel.FormulaR1C1 = Fml: Loop
   End Sub

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Septembre 2019

• #6

Bonjour Dranreb,

Le code fonctionne très bien. J'avais comme formule =SOMME(INDIRECT(ADRESSE(2;COLONNE())&":"&ADRESSE(LIGNE()-1;COLONNE()))) mais il ne fonctionnait pas pour la parti Remy 1 car les adresses changent.

Merci

 

Vote positif 0 Vote négatif