Rechercher les cinq dernières références
Résolu
kit24be
-
kit24be -
kit24be -
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
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
A voir également:
- Rechercher les cinq dernières références
- Rechercher ou entrer l'adresse - Guide
- Rechercher image - Guide
- Rechercher remplacer word - Guide
- Rechercher une chanson - Guide
- Adresse IP locale : comment la trouver facilement - Guide
2 réponses
Bonjour
proposition:
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
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
remplacer
Lig=derlig+1 par
Lig=Derlig