Comparer Valeur d'un TEXTbOX

Bonjour à tous,

j'ai un Userform avec 10 textbox.

Lorsque je mets une valeur dans un textbox il doit comparer son contenu par rapport aune feuille nommée DB.

Si la valeur est bonne le Textbox devient de couleur verte.

Si la valeur arrive au mini ou au Maxi sa couleur devient Jaune.

Si la valeur est fausse alors couleur rouge.

J'ai essayé plusieurs solution mais sans succès.

If TextBox3.Value < Sheets("DB").Cells(6, 1).Value Then
  TextBox3.ForeColor = RGB(0, 0, 0)
  TextBox3.BackColor = RGB(0, 255, 0)
End If

J'ai du me résoudre à mettre les valeurs en dur dans la code, mais j'aime pas trop

'COULEUR VERTE SI VALEUR CHANFER BASE LOWER OK

If TextBox3.Value < "0.2" Then
  TextBox3.ForeColor = RGB(0, 0, 0)
  TextBox3.BackColor = RGB(0, 255, 0)
End If

 'JAUNE CHANFER BASE LOWER MAX
 If TextBox3.Value = "0.2" Then
   TextBox3.ForeColor = RGB(0, 0, 0)
   TextBox3.BackColor = RGB(224, 255, 0)
  End If

  'CHANFER BASE LOWER MAX

If TextBox3.Value = "0.2" Then

             Select Case MsgBox("ATTENTION CHANFREIN BASE LOWER MAX ! :" & TextBox3 _
                                & vbCrLf & "" _
                                & vbCrLf & "Pour Continuer Cliquer sur OK pour Modifier Cliquer sur Cancel" _
                                , vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)

                Case vbOK

                Case vbCancel
                            With TextBox3
                            .Value = ""
                            .ForeColor = RGB(0, 0, 0)
                            .BackColor = RGB(255, 255, 255)
                            .SetFocus
                            End With

                            Exit Sub
             End Select

End If

Si une personne à une idée franchement je suis preneur et j'arrive au bout de mets compétences.

Le fichier est en pièce jointe.

Merci.

Bonne journée.

Bonjour Marcel, le forum,

Un exemple ci-joint, en espérant que cela t'aidera,

Cordialement,

Bonjour xorsankukai,

merci pour ta réponse rapide.

Je tester ton code cela fonctionne, j'au juste changer la plage et placée sur la feuille 2 et le type de variable, vue que j'ai des cotes du type 0.25.

Je vais tester sur mon fichier en espérant que la Textbox garde sa valeur afin de la placer dans feuille d'encodage.

Je ferme pas le sujet, je vais tester ce Week-end, j'ai deux jours de sécurité, je te reviens lundi, pour réponse ou clôturer le sujet.

Merci

Bon Week-end

Bonjour xorsankukai,

comme convenu j'ai fais mes tests et cela marche avec mon fichier.

Merci pour ton aide.

Je met le sujet en résolu.

Bonne semaine

Bien à toi

Marcel

Bonjour Marcel Dehousse,

Merci pour ton retour,

Ravi d'avoir pu te mettre sur la voie,

A bientôt,

ps: pour clôturer, clique sur le bouton en haut à droite, tu es le seul à pouvoir le faire.