Backcolor TextBox

Jono92600 -  
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   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 76 Date d'inscription   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 715 > Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Montrez le code que vous utilisez plutot qu'une phrase
0
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 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 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Marche tres bien, mais votre code est comme toujours incomplet
0
Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
Je vais peut être mettre le fichier c'est plus simple.

https://www.cjoint.com/c/GBuiRv46vAG
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715 > Jono92600 Messages postés 76 Date d'inscription   Statut Membre Dernière intervention  
 
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 76 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Oui c'est exacte c'était fmBackStyleOpaque le soucis.
Sa fonctionne correctement.

Merci beaucoup.
0

Discussions similaires

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

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

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

15 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

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

0 réponse