Textbox en condition de temp

BONJOUR

J'ai un petit souci que je n'arrive pas à résoudre .

J'essaie de faire une condition avec Le temps qui alimente les textbox se trouve ds userform1 .

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

Bonjour,

Avec juste des "" cela à l'aire de fonctionner...

Le message d'erreur est bien : erreur de syntaxe, non ?

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

Après je n'ai pas regardé si les "calculs" > ou < ou = fonctionnés.

@ bientôt

LouReeD

bonjour

j ai fait un essai mais j'ai trouvé que la condition ca marche pas.

est se que la valeur entre "" donne une valeur date ou caractere?

merci de votre aide

Bonjour

je fait plusieur essaie ;mais je n'arrive pas car je suis debutant en vba.

Private Sub cbbmachine_Change()
Dim Ligne As Long

  If Me.cbbmachine.ListIndex = -1 Then Exit Sub
  Ligne = (Me.cbbmachine.ListIndex * 2) + 6
  With Ws
    Me.TextBox2 = .Range("B" & Ligne).Text
    Me.TbxMoteur = .Range("C" & Ligne)
    Me.TextBox3 = .Range("D" & Ligne).Text
    Me.TextBox4 = .Range("E" & Ligne).Text
    Me.TextBox5 = .Range("D" & Ligne + 1).Text
    Me.TextBox7 = .Range("E" & Ligne + 1).Text
  End With
   If TextBox4.Value >= "1,25" Then
TextBox4.BackColor = vbGreen ' VERT
ElseIf TextBox4.Value > "0,416666" And TextBox4.Value < "1,25" Then
TextBox4.BackColor = vbMagenta 'Gold
Else: TextBox4.BackColor = vbRed 'Red
End If
If TextBox3 >= "1,25" Then
TextBox3.BackColor = vbMagenta  ' VERT
ElseIf TextBox3 > "0,416666" And TextBox3 < "1,25" Then
TextBox3.BackColor = vbMagenta 'Gold
Else: TextBox3.BackColor = vbRed 'Red
End If
End Sub

merci de votre aide

Re

Chez moi ça marche super !

en changeant des valeurs dans le tableau les tests fonctionnent !

Je vous joint le fichier avec un point d'arrêt sur la gestion du changement du combobox.

VBA va s'ouvrir, ensuite appuyez sur [F8] pour faire dérouler la procédure pas à pas.

Pendant ce fait, si vous placez le curseur de la souris sur les variables vous pouvez constater leur valeurs, Attention ! la ligne surlignée en jaune n'est pas encore effectuée il faut faire [F8] pour que la ligne s'exécute, et ainsi de suite : exemple

ligne surlignée en jaune : i=2 (i vaut toujours vide tant qu'on ne clic pas sur F8).

une fois F8 cliqué, en mettant le curseur de la souris sur i une infobulle vous indique "=2"

Ceci vous permet de comprendre ce qui se passe, et pour ma part le fichier joint fonctionne.

@ bientôt

LouReeD

bonjour

tjours le mm probleMe

la condition est:

IF le temp qui existe ds textbox4 et > 30:00 BackColor = vbGreen

ElseIf le temp qui existe ds textbox4 et > 20:00 And le temp qui existe ds textbox4 et < 30:00 BackColor = vbMagenta

Else: le temp qui existe ds textbox4 BackColor = vbRed

mm chose pour textbox3

MERCI

Re et bonne nuit

Ci joint le fichier qui " à l'air " de fonctionner...

@ bientôt

Loureed

Nota : fonction Val qui permet "d'évaluer" le texte en valeur numérique....

à voir si ça marche.

Bonjour

effectivement., ca marche tres bien

merci