Function Recup_Titre(matrice As Range, num_colonne_nom As Integer, num_colonne_valeur As Integer, rang As Double)
'Réalisation : ODESTA
'Date 2009
Dim tableau_nom(1 To 10000) As String
Dim tableau_valeur(1 To 10000) As Integer
valeur_trouve = 0
'mettre les valeurs dans un tableau
ligne = 0
For Each ID_ligne In matrice.Rows
ligne = ligne + 1
tableau_valeur(ligne) = matrice(ligne, num_colonne_valeur)
tableau_nom(ligne) = matrice(ligne, num_colonne_nom)
Next
'trier les tableaux de 1 à ligne
i = 1
While i <= ligne
If tableau_valeur(i) < tableau_valeur(i + 1) Then
'inverser
valeur_temp = tableau_valeur(i)
tableau_valeur(i) = tableau_valeur(i + 1)
tableau_valeur(i + 1) = valeur_temp
valeur_temp = tableau_nom(i)
tableau_nom(i) = tableau_nom(i + 1)
tableau_nom(i + 1) = valeur_temp
i = 1
Else
i = i + 1
End If
Wend
Recup_Titre = tableau_nom(rang)
End Function