Backcolor TextBox

Fermé

Jono92600 - 17 févr. 2017 à 21:45
Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 - 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

A voir également:

Vba textbox backcolor
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba dépassement de capacité ✓ - Forum Excel

2 réponses

Réponse 1 / 2

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
Modifié par f894009 le 18/02/2017 à 08:17

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....

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
18 févr. 2017 à 15:05

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.

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
18 févr. 2017 à 15:34

Re,

Montrez le code que vous utilisez plutot qu'une phrase

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024
20 févr. 2017 à 09:21

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.

Réponse 2 / 2

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
20 févr. 2017 à 09:31

Bonjour,

Marche tres bien, mais votre code est comme toujours incomplet

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
20 févr. 2017 à 09:43

Je vais peut être mettre le fichier c'est plus simple.

https://www.cjoint.com/c/GBuiRv46vAG

Re,

Si vous voulez de la couleur en fond des textbox's, la propriete BackStyle:
1-fmBackStyleOpaque pas en 0-fmBackStyleTransparent

Oui c'est exacte c'était fmBackStyleOpaque le soucis.
Sa fonctionne correctement.

Merci beaucoup.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

[VBA] format de date dans textbox

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel