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.