Rechercher les cinq dernières références
Résolu/Fermé
A voir également:
- Rechercher les cinq dernières références
- Rechercher ou entrer l'adresse - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Rechercher et remplacer word - Guide
- Rechercher une chanson - Guide
- Rechercher mon téléphone - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 4/09/2013 à 08:16
Modifié par michel_m le 4/09/2013 à 08:16
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
4 sept. 2013 à 08:21
remplacer
Lig=derlig+1 par
Lig=Derlig