Rechercher les cinq dernières références Résolu

Question

Bonjour, 

je désire rechercher les 5 dernières valeurs  d'une référence dans une
liste qui compte plusieurs centaines de références différentes et en faire la moyenne.

les références sont en colonne B et les valeurs en colonne C

Merci d avance pour votre aide

michel_m · Answer

Bonjour

proposition:
Option Explicit
Sub Cinq_dernieres()
Dim Derlig As Long, Ref As String, Lig As Long, Nbre As Byte, Somme As Double

Derlig = Columns("B").Find("*", , , , , xlPrevious).Row
Ref = Range("choix")
If Application.CountIf(Range("B2:B" & Derlig), Ref) < 5 Then GoTo inferieur

Lig = Derlig + 1
For Nbre = 1 To 5
     Lig = Range("B2:B" & Lig).Find(Ref, , , , , xlPrevious).Row
     Somme = Somme + Cells(Lig, "C")
     Lig = Lig - 1
Next
Range("moyenne") = Somme / 5

Exit Sub
inferieur:
MsgBox "nombre de " & Ref & " inférieur à 5", vbCritical

End Sub


et la maquette de  travail
https://www.cjoint.com/?3IeijTCgV0h

remarque: "plusieurs centaines" étant très subjectif, j'ai déclaré derlig et lig en long... :o)


 
 Michel

kit24be · Answer

Bonjour,

un très grand merci pour votre réponse. Cela fonctionne super bien.
Bonne journée

Rechercher les cinq dernières références

2 réponses

Discussions similaires

Newsletters