Mauvais ecriture d'un code

Bonjour

J'ai surement fais une erreur quelque part et je suis Pommé

If WorkSheet (Feuil1 (Range("A5")) > TextBox1.Value Then TextBox1.BackColor = vbRed

Merci pour votre aide

Crdlt

Bonjour

If Sheet (Feuil1). (Range("A5") > val(TextBox1.Value) Then TextBox1.BackColor = vbRed

A+ François

Bonjour François,

Merci pour ton aide.

J'ai un bug sur le mot Sheet (erreur de compilation Sub ou fonction non défini)

Private Sub TextBox1_Change()

If Sheet(Feuil1).Range("A5") > Val(TextBox1.Value) Then TextBox1.BackColor = vbRed

End Sub

Re,

Fanfan38 à été un peu trop vite

If Sheets("Feuil1")

"Feuil1" étant le nom de l'onglet/feuille

A+

Bonjour Bruno,

Merci pour ton aide

Je joins le fichier test car j'ai toujours un bug

Salut,

deux solutions :

• Soit par le nom de la feuille : If ThisWorkbook.Worksheets.Item("Feuil1").Range("A5").Value > Val(TextBox1.Value) Then TextBox1.BackColor = vbRed
• Soit par la feuille elle-même : If Feuil1.Range("A5").Value > Val(TextBox1.Value) Then TextBox1.BackColor = vbRed

Donc dans ton cas ne pas oublier les guillemets ...

Ne pas oublier de remettre la couleur.

Bonjour jean Paul

Merci impeccable ce qu'il me fallait

Bonne soirée