Coloration textbox

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2011

• #2

Re : Coloration textbox

Bonjour,

regarde ceci :

Code:

Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "TextBox" And c.Value <> "" Then c.BackColor = RGB(255, 0, 0)
Next c

bonne journée
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 21 Juin 2011

• #3

Re : Coloration textbox

Bonjour karinette,

Un conseil pour commencer, mettre le remplissage de tes textbox dans l'évènement UserForm_Initialize plutôt que UserForm_Activate (sinon à chaque activation il se re-remplira...)

puis ajouter le code là à la fin :

Code:

Dim TB As Control

For Each TB In UserForm1.Controls
    If TypeName(TB) = "TextBox" Then
        If TB.Text <> "" Then
            TB.BackColor = &H80FF&
        End If
    End If
Next

Edit : Bing, Bonjour Pierrot 😉

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 21 Juin 2011

• #4

Re : Coloration textbox

🙁 Erreur de compilation ...

For Each c In Me.Controls

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2011

• #5

Re : Coloration textbox

Re, bonjour toto🙂

ou as tu mis le code ??? il doit être utilisé dans le module de l'usf... Attention il est préférable d'utiliser le code de Toto si tu as des controles dans ton usf qui ne possèdent pas de propriétés "value"....

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 21 Juin 2011

• #6

Re : Coloration textbox

Merci beaucoup, tototiti2008, ça fonctionne parfaitement ....

🙂

tototiti2008 à dit:

Bonjour karinette,

Un conseil pour commencer, mettre le remplissage de tes textbox dans l'évènement UserForm_Initialize plutôt que UserForm_Activate (sinon à chaque activation il se re-remplira...)

puis ajouter le code là à la fin :

Code:

Dim TB As Control

For Each TB In UserForm1.Controls
    If TypeName(TB) = "TextBox" Then
        If TB.Text <> "" Then
            TB.BackColor = &H80FF&
        End If
    End If
Next

Edit : Bing, Bonjour Pierrot 😉

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 21 Juin 2011

• #7

Re : Coloration textbox

Bonjour le fil 🙂,
Une solution par module de classe qui permet de modifier la couleur à chaque modification d'un TextBox 😛...
En même temps, si tu ranges proprement tes Textbox avec les numéros dans le bon ordre, je t'ai mis une petite boucle pour un bloc de TextBox à complèter 🙄...
Bonne journée 😎

 

Pièces jointes

• Module de classe TextBox.xls

  89 KB · Affichages: 43

Vote positif 0 Vote négatif