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:

Textbox.backcolor vba
Vba textbox date format dd/mm/yyyy ✓ - Forum Excel
Textbox date ✓ - Forum VB / VBA
Format textbox vba ✓ - Forum VB / VBA
Vba textbox ✓ - Forum VB / VBA
Excel vba format textbox phone number ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > 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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

[VBA] format de date dans textbox

Récupérer la valeur d'un textbox a partir d'un formulaire différ

TextBox au format date

[Excel-VBA] format date

propriété du textbox en VB

Discussions similaires

Newsletters