Textbox en coleur

bonjour

je suis debutant en vba et je besoin de votre aide

je fait dif entre deux date le resultat est affiché a textbox3 j’essaie de faire une condition .mais pas de solution

If TextBox3 >= 30JRS Then

TextBox3.BackColor = vbGreen ' VERT

ElseIf TextBox3 > 20JRS And TextBox3 < 30JRS Then

TextBox3.BackColor = vbMagenta 'Gold

Else: TextBox3.BackColor = vbRed 'Red

End If

Merci de votre aide

Bonjour,

Private Sub cbbmachine_Change()
Dim Ligne As Long
Dim nb As Long

    If Me.cbbmachine.ListIndex = -1 Then Exit Sub
    Ligne = (Me.cbbmachine.ListIndex * 2) + 6
    With Ws
        Me.TextBox2 = .Range("F" & Ligne)
        Me.TbxMoteur = .Range("C" & Ligne)
        Me.TextBox3 = .Range("G" & Ligne)
        Me.TextBox4 = .Range("F" & Ligne + 1)
        nb = .Range("F" & Ligne) - .Range("F" & Ligne + 1)
    End With

    If nb >= 30 Then
        TextBox3.BackColor = vbGreen    ' VERT
    ElseIf nb > 20 And nb < 30 Then
        TextBox3.BackColor = vbMagenta    'Gold
    Else
        TextBox3.BackColor = vbRed    'Red
    End If

End Sub

Bonjour

Bonjour Jean-Eric

A tester

bonjour

merci bien