Textbox qui change de couleur

Bonsoir , je me permets de vous déranger, j'ai besoin d'un coup de main!

J'ai un fichier d'enregistrement de flotteur machine, ce flotteur à un poids de référence , et il est pesé toute les semaines,. ce poids peu changer si l'on change ce flotteur pour x raisons.

J 'ai créé un formulaire avec un textbox 1 dans lequel j'inscris le poids relevé quand ce flotteur est pesé, nous avons des tolérances . Si je suis hors tolérance ,la textbox passe en rouge et si je suis dans les tolérances la textbox passe en vert .

Merci beau coup , si quelqu'un peut m'aider sur le sujet .

Bonsoir lynelolaluc

Dans l'USF, il faut utiliser cet évènement et ce code

Private Sub TextBox1_AfterUpdate()
  Dim Val1 As Single
  Val1 = Sheets("ENREGISTREMENTS").Range("V3").Value
  If CSng(Me.TextBox1) < (Val1 - 0.4) Or CSng(Me.TextBox1) > (Val1 + 0.4) Then
    Me.TextBox1.BackColor = RGB(255, 0, 0)
  Else
    Me.TextBox1.BackColor = RGB(0, 255, 0)
  End If
End Sub

A+

Bonsoir Bruno M45,

Tout d'abord merci de votre patience et gentillesse !

Le code que vous m'avez fourni ne fonctionne pas , ou c'est surement moi qui ne l'uitilise pas bien ou je l'ai collé au mauvais endroit!

J'ai mis en rouge , l'endroit du code qu'il me mets en défaut.

Merci encore de votre aide.

Private Sub CommandButton1_Click()

Val (TextBox1.Value)

MsgBox "VOUS AVEZ CHOISI LA MACHINE 4"

If TextBox2.Value <> "" Then

Else

MsgBox "MERCI DE RENSEIGNER VOTRE NOM!"

Exit Sub

End If

Label1 = Now

i = 4

'boucle remplissage tableau

Do While Sheets("4").Cells(i, 1) <> ""

If Sheets("4").Cells(i, 1) <> "" Then i = i + 1

Loop

'Cells(I, 2) = Cells(I - 1, 2) + 1

Sheets("4").Cells(i, 1) = UserForm1.Label1 'Date

Sheets("4").Cells(i, 2) = UserForm1.TextBox1.Value 'Nom

Sheets("4").Cells(i, 3) = UserForm1.TextBox2.Value 'poids

End Sub

Private Sub TextBox1_AfterUpdate()

Dim Val1 As Single

Val1 = Sheets("ENREGISTREMENTS").Range("V3").Value

If CSng(Me.TextBox1) < (Val1 - 0.4) Or CSng(Me.TextBox1) > (Val1 + 0.4) Then

Me.TextBox1.BackColor = RGB(255, 0, 0)

Else

Me.TextBox1.BackColor = RGB(0, 255, 0)

End If

End Sub

Bonsoir

Effectivement a quoi ça sert que ducro ce décarcasse

Définissez la variable comme je l'ai fait dans mon code

A+