Coloration textbox

[karinette]

Bonjour à tous.

J'aimerais savoir si il est possible de colorer les textbox "non vide" d'un USF.
A voir avec le classeur joint ...

Merci de votre aide ...

 

[Pierrot93]

Re : Coloration textbox

Bonjour,

regarde ceci :

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
@+

 

[tototiti2008]

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 :

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

 

[karinette]

Re : Coloration textbox

Erreur de compilation ...

For Each c In Me.Controls

 

[Pierrot93]

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

 

[karinette]

Re : Coloration textbox

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

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 :

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

 

[JNP]

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