Backcolor TextBox

Jono92600 -
Jono92600 Messages postés 78 Statut Membre - 20 févr. 2017 à 15:13

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 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
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 Messages postés 78 Statut Membre
  
  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
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Jono92600 Messages postés 78 Statut Membre
    
    Re,
    
    Montrez le code que vous utilisez plutot qu'une phrase
    
    0
  2. Jono92600 Messages postés 78 Statut Membre > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
    
    Re,
    
    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 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Marche tres bien, mais votre code est comme toujours incomplet
0
1. Jono92600 Messages postés 78 Statut Membre
  
  Je vais peut être mettre le fichier c'est plus simple.
  
  https://www.cjoint.com/c/GBuiRv46vAG
  
  0
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Jono92600 Messages postés 78 Statut Membre
    
    Re,
    
    Si vous voulez de la couleur en fond des textbox's, la propriete BackStyle:
    1-fmBackStyleOpaque pas en 0-fmBackStyleTransparent
    
    0
  2. Jono92600 Messages postés 78 Statut Membre > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
    
    Oui c'est exacte c'était fmBackStyleOpaque le soucis.
    Sa fonctionne correctement.
    
    Merci beaucoup.
    
    0

Backcolor TextBox

2 réponses

Discussions similaires

Newsletters