Discussion :

[UDSP50]

bonjour a tous

voila quand j’écris ceci cela fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[defluc]

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 ?

[UDSP50]

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

[defluc]

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

[UDSP50]

ca je sais pas faire

[defluc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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