texbox probleme de syntaxe pour donnees multiples

bonjour a tous

voila quand j’écris ceci cela fonctionne

Code:

---

1 2 3

If Interface.TextBox96.Value = Feuil4.Range("B44").Value ThenInterface.TextBox96.BackColor = Feuil4.Range("B44").Interior.color End If

---

donc du coup j'ai voulu faire mieux mais la cela ne marche pas quelqu'un peut il m'aider.

mon souci est le suivant

j'aimerais que si dans le textbox96 la valeur est une des valeurs de la feuil4 de b44 a b60
alors le fond du textbox96 prend la couleur de la cellue concernée

exemple :

feuil4 en B44 lettre G couleur verte
B45 lettre C couleur rouge
B46 lettre Z couleur jaune
B47 lettre U couleur rose etc etc

donc
si le textbox96 est = a "U" alors il color le textbox96 en rose
si le textbox96 est = a "C" alors il color le textbox96 en rouge etc etc

voici ce que j'ai ecrit mais cela ne marche pas

Code:

---

1 2 3 4

If Interface.TextBox96.Value = Feuil4.Range("B44:B65").Value Then Interface.TextBox96.BackColor = Feuil4.Range("B44:B65").Interior.color End If

---

merci encore de votre aide

Bonjour,

Il n'est pas possible de comparer une chaine de caractères à une plage de valeurs.

Veux-tu dire que le TextBox contient une concaténation du contenu des cellules de la plage ?

merci defluc de ta réponse

il est vrai que ce n'est pas toujours facile de bien expliquer ce que l'on souhaite

en fait dans mon textbox remontera automatiquement un valeur

cette valeur sera forcement une valeur qui existe sur la feuil4 de B44 a B60

j'aimerais donc que lorsque qu'il sagit de la valeur de b45 par exemle il color mon textbox de la meme couleur que le fond de la cellule de b45

de meme si la valeur es celle de b59 etc etc

Alors, il faut utiliser une boucle sur chaque cellule de la plage.

ca je sais pas faire

Il faudra que tu apprennes. C'est fondamental en programmation.

Code:

---

1 2 3 4 5 6 7

Dim i As Integer For i = 44 To 44 + Range("B44:B65").Count If Interface.TextBox96.Value = Feuil4.Cells(i, 2).Value Then Interface.TextBox96.BackColor = Feuil4.Cells(i, 2).Interior.Color Exit For End If Next i

---