Sub etablir_priorites()
src_col_no = 2 ' pour la colonne B (A = 1, B = 2)
src_lg_no = 2 ' à partir de la deuxieme ligne
dst_col_no = 1
cur_priorite = 1
max_valeur = 9999999
best_lg_no = src_lg_no
' Première boucle pour chaque ligne
Do While Not IsEmpty(Cells(src_lg_no, src_col_no))
' Deuxième boucle pour repérer la plus grande cellule inf à celle déjà vue
min_valeur = -1
src_lg_no2 = 2 ' Repartir d en haut
Do While Not IsEmpty(Cells(src_lg_no2, src_col_no))
If (Cells(src_lg_no2, src_col_no).Value > min_valeur _
And Cells(src_lg_no2, src_col_no).Value < max_valeur) Then
best_lg_no = src_lg_no2
min_valeur = Cells(src_lg_no2, src_col_no).Value
End If
src_lg_no2 = src_lg_no2 + 1
Loop
Cells(best_lg_no, dst_col_no).Value _
= cur_priorite
cur_priorite = cur_priorite + 1
max_valeur = min_valeur
src_lg_no = src_lg_no + 1
Loop
End Sub |
FORUM HardWare.fr
