Macro condition ElseIf

Bonsoir à tous,

Je rencontre un problème sur la macro suivante mais j'arrive pas à déterminer le problème:

If Nombre <= (0.4) Then Range("F26").Interior.Color = RGB(0, 255, 153)
ElseIf Nombre > (0.4) And Nombre <= (0.7) Then Range("F26").Interior.Color = RGB(255, 204, 0)
Else
Range("F26").Interior.Color = RGB(255, 51, 0)
End If

J'obtiens un message d'erreur: Erreur de compilation: Else sans If

Pourriez-vous m'aider svp ?

Un grand merci !

JB

Bonjour,
Essaie ainsi :

Sub test()
Dim Nombre As Double
    Nombre = Range("A1").Value
    If Nombre <= 0.4 Then
        Range("F26").Interior.Color = RGB(0, 255, 153)
    ElseIf Nombre <= 0.7 Then
        Range("F26").Interior.Color = RGB(255, 204, 0)
    Else
        Range("F26").Interior.Color = RGB(255, 51, 0)
    End If
End Sub

Sub test_2()
Dim Nombre As Double
    Nombre = Range("A1").Value
    Select Case Nombre
        Case Is <= 0.4: Range("F26").Interior.Color = RGB(0, 255, 153)
        Case Is <= 0.7: Range("F26").Interior.Color = RGB(255, 204, 0)
        Case Else: Range("F26").Interior.Color = RGB(255, 51, 0)
    End Select
End Sub

Bonsoir Jean-Eric,

Merci c'est parfait ! J'ai retenu le code n°1. J'ai compris mon erreur après le elseIf

Bonne soirée

JB