* Bonjour, *

Je reviens de nouveau vers vous
Dans un tableau,j'ai une colonne qui correspond aux résultats des courses par classes (chaque niveau est séparé par une ligne vide). Je désire créer une macro qui me permet de trouver la classe qui à le moins de point pour chaque niveau. Voici le code que j'ai créé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Class_niveau()
'
' Macro permettant de classer la meilleur classe d'un niveau
'
Dim Cel As Range, Plage As Range
Dim num_class As String
Dim note As Integer, note_ref As Integer
 
Application.ScreenUpdating = False
 
 
        Set Plage = Range("J3:J8")
        note_ref = Range("J3").Value
        For Each Cel In Plage
            If Cel.Value < note_ref And Cel.Value <> "" Then num_class = Cel.Offset(0, -5).Value
        Next
        Set Plage = Nothing
        Range("N18") = num_class
 
        Set Plage = Range("J9:J14")
        note_ref = Range("J9").Value
        For Each Cel In Plage
            If Cel.Value < note_ref And Cel.Value <> "" Then num_class = Cel.Offset(0, -5).Value
        Next
        Set Plage = Nothing
        Range("N20") = num_class
 
        Set Plage = Range("J15:J20")
        note_ref = Range("J15").Value
        For Each Cel In Plage
            If Cel.Value < note_ref And Cel.Value <> "" Then num_class = Cel.Offset(0, -5).Value
        Next
        Set Plage = Nothing
        Range("N22") = num_class
 
        Set Plage = Range("J21:J26")
        note_ref = Range("J21").Value
        For Each Cel In Plage
            If Cel.Value < note_ref And Cel.Value <> "" Then num_class = Cel.Offset(0, -5).Value
        Next
        Range("N24") = num_class
 
        Set Plage = Nothing
 
End Sub
Pour le premier niveau cela fonctionne mais pas pour les trois autres.
Voivi les données qui se trouve dans la plage :
J9:J14 35,72 31,21 63,81 34,75 67,85 (dernière ligne vide)
J15:J20 63,88 59,32 28,35 39,25 44,29 (dernière ligne vide)

Pouvez vous m'indiquer mon erreur

Merci