Bonjour,
je cherche à faire changer la couleur de police de textbox.
je fais comme ceci: (sur une même ligne)
If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then
assolement.TextBox3.ForeColor = RGB(255, 0, 0)
Le problème est que j'ai 45 textbox et quand l'une des textbox changent de
valeur et redevient inf à 0.5 la couleur reste rouge!
je souhaiterais savoir si il est possible de remettre la couleur initiale à
toutes les textbox en même temps (en début de code).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Nicolas Dans l'évènement Intitalize de ton Userform : Private Sub UserForm_Initialize() For Each Ctr In Me.Controls If TypeOf Ctr Is MSForms.TextBox Then Ctr.ForeColor = vbBlack End If Next Ctr End Sub
Cordialement Pascal
"Nicolas S" a écrit dans le message de news:c1hu4m$b5p$
Bonjour, je cherche à faire changer la couleur de police de textbox. je fais comme ceci: (sur une même ligne) If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then assolement.TextBox3.ForeColor = RGB(255, 0, 0) Le problème est que j'ai 45 textbox et quand l'une des textbox changent de valeur et redevient inf à 0.5 la couleur reste rouge! je souhaiterais savoir si il est possible de remettre la couleur initiale à
toutes les textbox en même temps (en début de code).
Nicolas toujours respectueux et admiratif
Bonjour Nicolas
Dans l'évènement Intitalize de ton Userform :
Private Sub UserForm_Initialize()
For Each Ctr In Me.Controls
If TypeOf Ctr Is MSForms.TextBox Then
Ctr.ForeColor = vbBlack
End If
Next Ctr
End Sub
Cordialement
Pascal
"Nicolas S" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news:c1hu4m$b5p$1@news.tiscali.fr...
Bonjour,
je cherche à faire changer la couleur de police de textbox.
je fais comme ceci: (sur une même ligne)
If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then
assolement.TextBox3.ForeColor = RGB(255, 0, 0)
Le problème est que j'ai 45 textbox et quand l'une des textbox changent de
valeur et redevient inf à 0.5 la couleur reste rouge!
je souhaiterais savoir si il est possible de remettre la couleur initiale
à
toutes les textbox en même temps (en début de code).
Bonjour Nicolas Dans l'évènement Intitalize de ton Userform : Private Sub UserForm_Initialize() For Each Ctr In Me.Controls If TypeOf Ctr Is MSForms.TextBox Then Ctr.ForeColor = vbBlack End If Next Ctr End Sub
Cordialement Pascal
"Nicolas S" a écrit dans le message de news:c1hu4m$b5p$
Bonjour, je cherche à faire changer la couleur de police de textbox. je fais comme ceci: (sur une même ligne) If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then assolement.TextBox3.ForeColor = RGB(255, 0, 0) Le problème est que j'ai 45 textbox et quand l'une des textbox changent de valeur et redevient inf à 0.5 la couleur reste rouge! je souhaiterais savoir si il est possible de remettre la couleur initiale à
toutes les textbox en même temps (en début de code).
Nicolas toujours respectueux et admiratif
Nicolas S
Merci pour ta réponse C'est bizarre, je croyais avoir posté ce message le 25.....?? et il a la date du 26 à mon écran ( outlook) et ta réponse est du 25 ?? Aujourd'hui j'ai posté celui ci ( à 9H 28):
Bonjour, je souhaiterai changer la couleur de plusieurs text box (pas toutes) en même temps (avec la même instruction). Cela est-il possible ?
Merci de vos réponses
papou a écrit dans le message ...
Bonjour Nicolas Dans l'évènement Intitalize de ton Userform : Private Sub UserForm_Initialize() For Each Ctr In Me.Controls If TypeOf Ctr Is MSForms.TextBox Then Ctr.ForeColor = vbBlack End If Next Ctr End Sub
Cordialement Pascal
"Nicolas S" a écrit dans le message de news:c1hu4m$b5p$
Bonjour, je cherche à faire changer la couleur de police de textbox. je fais comme ceci: (sur une même ligne) If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then assolement.TextBox3.ForeColor = RGB(255, 0, 0) Le problème est que j'ai 45 textbox et quand l'une des textbox changent de
valeur et redevient inf à 0.5 la couleur reste rouge! je souhaiterais savoir si il est possible de remettre la couleur initiale à
toutes les textbox en même temps (en début de code).
Nicolas toujours respectueux et admiratif
Merci pour ta réponse
C'est bizarre, je croyais avoir posté ce message le 25.....??
et il a la date du 26 à mon écran ( outlook) et ta réponse est du 25 ??
Aujourd'hui j'ai posté celui ci ( à 9H 28):
Bonjour,
je souhaiterai changer la couleur de plusieurs text
box (pas toutes) en même temps (avec la même instruction).
Cela est-il possible ?
Merci de vos réponses
papou a écrit dans le message ...
Bonjour Nicolas
Dans l'évènement Intitalize de ton Userform :
Private Sub UserForm_Initialize()
For Each Ctr In Me.Controls
If TypeOf Ctr Is MSForms.TextBox Then
Ctr.ForeColor = vbBlack
End If
Next Ctr
End Sub
Cordialement
Pascal
"Nicolas S" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news:c1hu4m$b5p$1@news.tiscali.fr...
Bonjour,
je cherche à faire changer la couleur de police de textbox.
je fais comme ceci: (sur une même ligne)
If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then
assolement.TextBox3.ForeColor = RGB(255, 0, 0)
Le problème est que j'ai 45 textbox et quand l'une des textbox changent
de
valeur et redevient inf à 0.5 la couleur reste rouge!
je souhaiterais savoir si il est possible de remettre la couleur initiale
à
toutes les textbox en même temps (en début de code).
Merci pour ta réponse C'est bizarre, je croyais avoir posté ce message le 25.....?? et il a la date du 26 à mon écran ( outlook) et ta réponse est du 25 ?? Aujourd'hui j'ai posté celui ci ( à 9H 28):
Bonjour, je souhaiterai changer la couleur de plusieurs text box (pas toutes) en même temps (avec la même instruction). Cela est-il possible ?
Merci de vos réponses
papou a écrit dans le message ...
Bonjour Nicolas Dans l'évènement Intitalize de ton Userform : Private Sub UserForm_Initialize() For Each Ctr In Me.Controls If TypeOf Ctr Is MSForms.TextBox Then Ctr.ForeColor = vbBlack End If Next Ctr End Sub
Cordialement Pascal
"Nicolas S" a écrit dans le message de news:c1hu4m$b5p$
Bonjour, je cherche à faire changer la couleur de police de textbox. je fais comme ceci: (sur une même ligne) If assolement.TextBox3 / assolement.TextBox2 > 0.5 Then assolement.TextBox3.ForeColor = RGB(255, 0, 0) Le problème est que j'ai 45 textbox et quand l'une des textbox changent de
valeur et redevient inf à 0.5 la couleur reste rouge! je souhaiterais savoir si il est possible de remettre la couleur initiale à
toutes les textbox en même temps (en début de code).
