Bonjour
Je bosse sur un projet qui attribue aléatoirement des scores à des noms.
Je dois faire un classement des trois meilleurs noms.
J'utilise une formule type : =RECHERCHE(GRANDE.VALEUR(matrice des scores;rang de classement);matrice des scores;matrice des noms)
Le problème est que j'obtiens très rarement les bons résultats, ça arrive une fois sur 50 et en règle générale il m'affiche le dernier nom de ma liste des noms.
Je pense que la recherche s'effectue pendant le random et que ma recherche ne sait donc plus où elle habite.
J'aurais besoin d'une formule viable ou alors une macro VBA.
Merci d'avance.
Niiluje

Bonjour
 
Un petit exemple du tableau m'aiderait pour... t'aider... lol

 
Regarde juste les colones cheval et scores

Donc dans tes cellules Score doit apparaitre un nombre aléatoire ? Puis trouver les 3 meilleurs ?
Ce nombre aleatoire est dans quelle fourchette ?

Dans mes cellules score il apparait un nombre aleatoire compris entre 0 et 50 avec une fonction =ENT(ALEA()*50)
Dans un autre classeur je dois classer les trois meilleurs et ils doivent etre rafraichis a chaque nouvelle alea

Salut,
 
Le nombre de lignes de ton tableau est-il fixe ou variable?

Par meilleurs tu entends celui qui a le score le plus haut de 0 à 50 ?
Si c'est le cas, pourquoi tu ne tries pas ton autre classeur par ordre decroissant...?  
Sinon, apres je pense qu'il faut coder...
Mais attends la réponse de TAM136 il aura peut etre une meilleure idée.
 
Cordialement

Salut,
 
Essaies cette macro
 
Sub MacroProjet()
Range("B4" ).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Administrateur\Mes documents\Nom de ton second fichier.xls"
    Range("A1" ).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone
    Columns("I:I" ).Select
        Selection.CurrentRegion.Sort Key1:=Range("I1" ), Order1:=xlDescending, Header:= _
        xlNo, OrderCustom:=1, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A4" ).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
    Range("A1" ).Select
End Sub
 
Edit:Range("B4" ).Select
Je me suis basé sur ton screenshot. Le 1er cheval se trouve en B4