Somme des X dernières valeurs d'une colonnes

[lrnt]

Bonjour à tous,

Je souhaite faire la somme des X dernières valeurs d'une colonne.
Sachant que certaines cellules peuvent être égales à 0 et certaines peuvent être vides

Comment faire?

 

[job75]

Re : Somme des X dernières valeurs d'une colonnes

Bonjour lrnt, bienvenue sur XLD,

J'arrive à une formule assez compliquée, il y a peut-être plus simple.

Donc formule matricielle en D16 :

=SOMME(SI(ESTNUM(D2:D15);D2:D15*ESTNUM(EQUIV(LIGNE(D2:D15);GRANDE.VALEUR(SI(ESTNUM(D2:D15);LIGNE(D2:D15));LIGNE(INDIRECT("1:"&B16)));0))))

A valider par Ctrl+Maj+Entrée.

Fichier joint.

A+

 

[Robert]

Re : Somme des X dernières valeurs d'une colonnes

Bonsoir Irnt, Job, bonsoir le forum,

Une proposition VBA avec la macro événementielle Change ci-dessous. Renseigne le nombre de notes prisent en compte en B16, le total s'affiche en D16 :

Private Sub Worksheet_Change(ByVal Target As Range) 'à l'édition dans une cellule
Dim x As Integer 'déclare la variable x (incrément)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim t As Double 'déclare la variable t (Total)
 
If Target.Address <> "$B$16" Then Exit Sub 'si l'édition a lieu ailleur qu'en B16, sort de la procédure
 
dl = Cells(Application.Rows.Count, 11).End(xlUp).Row 'définit la dernière ligne de la colonne K
For x = 1 To CInt(Target.Value) 'boucle sur le nombre de note prisent en compte
    If Cells(dl, 11).Value <> "" Then 'condition : si la cellule n'est pas vide
        t = t + Cells(dl, 11) 'définit le total t
        dl = dl - 1 'redéfinit la dernière ligne
    Else 'sinon
        dl = dl - 1 'redéfinit la dernière ligne
        x = x - 1 'redéfinit le nombre de notes prisent en compte (une boucle de plus)
    End If 'fin de la condition
Next x 'prochaine note de la boucle
Range("D16").Value = t 'place le total dans la cellule D16
End Sub

 

[lrnt]

Re : Somme des X dernières valeurs d'une colonnes

merci à vous 2 pour vos réponses

Ca va me faire avancer beaucoup plus vite.

 

[Tibo]

Re : Somme des X dernières valeurs d'une colonnes

Bonsoir,

Même réponse que celle apportée ailleurs :

=SOMMEPROD((LIGNE($D$2:$D$15)>=GRANDE.VALEUR(($D$2:$D$15<>"")*LIGNE($D$2:$D$15);B16))*1;$D$2:$D$15)

@+

 

[CISCO]

Re : Somme des X dernières valeurs d'une colonnes

Bonsoir à tous

On peut aussi faire avec

=SOMME(DECALER(D15;;;GRANDE.VALEUR(SI(ESTNUM(D2:D15);LIGNE(D2:D15));B16)-LIGNE(D15)-1))

en matriciel (ctrl+maj+entrer)

Tu peux bien sûr remplacer le - LIGNE(D15) - 1 par -16.

@ plus