Backcolor TextBox

Jono92600 -

Bonjour,

Dans un UserForm, j'ai plusieurs TextBox. Je voudrais mettre une couleur.

Si (no_ligne, 2) = "" alors
TextBox.backcolor = RGB (255,0,0)

Dans l'attente de vous lire.

Merci

Afficher la suite

2 réponses

Réponse 1 / 2
f894009
Bonjour,
```
Sub test()
    If Cells(n_ligne, 2) = "Alors" Then
        TextBox1.BackColor = RGB(255, 0, 0)     'rouge
    Else
        TextBox1.BackColor = RGB(255, 255, 255) 'blanc
   End If
End Sub
```
Avec une petite recherche avec GOOGLE, vous auriez trouvé
et dans le dernier fichier que j'ai modifié pour vous, c'est tout écrit pour un test cellule, donc vous ne regardez pas....
0
1. Jono92600
  
  Merci. Si j'ai bien regardé le fichier. Justement j'ai fais exactement sa mais sa ne fonctionne pas. Sachant que pour les autre textBox sa fonctionne correcteemnt. Je ne sais pas si c'est au cause des paramètre ou non.
  
  Merci.
  
  0
2. f894009
  
  @Jono92600Re,
  
  Montrez le code que vous utilisez plutot qu'une phrase
  
  0
3. Jono92600
  
  @f894009Re,
  
  Me("txt10" & i).Value = f.Cells(i + début, 22) 'SILLON
  If Me("txt10" & i).Value = "REFUSER" Then
  Me("txt10" & i).BackColor = RGB(255, 0, 0) 'Rouge
  ElseIf Me("txt10" & i).Value = "DEMANDER" Then
  Me("txt10" & i).BackColor = RGB(255, 255, 0) 'Jaune
  ElseIf Me("txt10" & i).Value = "NON DEMANDER" Then
  Me("txt10" & i).BackColor = RGB(237, 127, 16) 'Orange
  End If
  
  ce fonctionne fonctionne correctement avec "ForeColor" mais pas avec "BackColor".
  
  Merci.
  
  Bonne journée à vous.
  
  0
Réponse 2 / 2
f894009
Bonjour,

Marche tres bien, mais votre code est comme toujours incomplet
0
1. Jono92600
  
  Je vais peut être mettre le fichier c'est plus simple.
  
  https://www.cjoint.com/c/GBuiRv46vAG
  
  0
2. f894009
  
  @Jono92600Re,
  
  Si vous voulez de la couleur en fond des textbox's, la propriete BackStyle:
  1-fmBackStyleOpaque pas en 0-fmBackStyleTransparent
  
  0
3. Jono92600
  
  @f894009Oui c'est exacte c'était fmBackStyleOpaque le soucis.
  Sa fonctionne correctement.
  
  Merci beaucoup.
  
  0

Backcolor TextBox

2 réponses

Discussions similaires

Newsletters