Backcolor TextBox

Jono92600 -  
Jono92600 Messages postés 78 Statut Membre -
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

2 réponses

Réponse 1 / 2
f894009 Messages postés 17413 Statut Membre 1 715
 
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
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
f894009 Messages postés 17413 Statut Membre 1 715 > Jono92600 Messages postés 78 Statut Membre
 
Re,

Montrez le code que vous utilisez plutot qu'une phrase
0
Jono92600 Messages postés 78 Statut Membre > f894009 Messages postés 17413 Statut Membre
 
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 17413 Statut Membre 1 715
 
Bonjour,

Marche tres bien, mais votre code est comme toujours incomplet
0
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
f894009 Messages postés 17413 Statut Membre 1 715 > 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
Jono92600 Messages postés 78 Statut Membre > f894009 Messages postés 17413 Statut Membre
 
Oui c'est exacte c'était fmBackStyleOpaque le soucis.
Sa fonctionne correctement.

Merci beaucoup.
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
[VBA] format de date dans textbox
antic80 -
nabilone -

15 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses