Tester la valeur d'une cellule

bonjour,

j'ai essayer d'écrire ce code, mais ça ne me renvoie pas du tout la valeur attendue, j'ai essayé plusieur solution mais ça ne change rien.

merci de votre aide par avance

Sub test()
Dim ligne As String
ligne = 5
Do While Cells(ligne, 1).Value <> ""

If Cells(ligne, 8).Value >= "42" Then
   Cells(ligne, 9).Value = "8"
    Else
 If Cells(ligne, 8).Value >= "36" Then
   Cells(ligne, 9).Value = "7"
    Else
    If Cells(ligne, 8).Value >= "30" Then
   Cells(ligne, 9).Value = "6"
    Else
  If Cells(ligne, 8).Value >= "24" Then
   Cells(ligne, 9).Value = "5"
    Else
    If Cells(ligne, 8).Value >= "18" Then
   Cells(ligne, 9).Value = "4"
    Else
    If Cells(ligne, 8).Value >= "12" Then
   Cells(ligne, 9).Value = "3"
    Else
    If Cells(ligne, 8).Value >= "6" Then
   Cells(ligne, 9).Value = "2"
    Else
    If Cells(ligne, 8).Value >= "1" Then
   Cells(ligne, 9).Value = "1"
    Else

    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If

ligne = ligne + 1
Loop

End Sub

Bonjour,

Essaie avec cette structure

Sub test()
Dim ligne As Byte
    ligne = 5
    Do While Cells(ligne, 1).Value <> ""
        Select Case Cells(ligne, 8).Value
        Case Is >= 42: Cells(ligne, 9).Value = 8
        Case Is >= 36: Cells(ligne, 9).Value = 7
        Case Is >= 30: Cells(ligne, 9).Value = 6
        Case Is >= 24: Cells(ligne, 9).Value = 5
        Case Is >= 18: Cells(ligne, 9).Value = 4
        Case Is >= 12: Cells(ligne, 9).Value = 3
        Case Is >= 6: Cells(ligne, 9).Value = 2
        Case Is >= 1: Cells(ligne, 9).Value = 1
        End Select
        ligne = ligne + 1
    Loop
End Sub

A+

bonjour Frangy

ok pour moi

merci de ton aide