Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

TextBox colorié si CheckBox coché

5 réponses
Avatar
Pierre93
Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93

5 réponses

Avatar
JB
Bonsoir,

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub

JB


On 10 mar, 18:51, "Pierre93" wrote:
Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93


Avatar
JB
Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, vbRed, vbWhite)
End Sub

JB


On 10 mar, 19:04, JB wrote:
Bonsoir,

Private Sub CheckBox1_Click()
  Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub

JB

On 10 mar, 18:51, "Pierre93" wrote:



Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Pierre93
Bonsoir et merci JB !!!


"JB" a écrit dans le message de news:


Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, vbRed, vbWhite)
End Sub

JB


On 10 mar, 19:04, JB wrote:
Bonsoir,

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub

JB

On 10 mar, 18:51, "Pierre93" wrote:



Bonsoir !

Comment "colorier" en rouge, par exemple, un TextBox si un CheckBox est
coché ?

Cdt,

Pierrot 93- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Modeste
Bonsour® JB avec ferveur ;o))) vous nous disiez :

Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub


pour le fun !!
Private Sub CheckBox1_Click()
Me.TextBox1.BackColor = RGB(255, -255 * Not (Me.CheckBox1), -255 * Not
(Me.CheckBox1))
End Sub




--
--
@+
;o)))

Avatar
JB
Bonjour,

ou ça

TextBox1.BackColor = -vbRed * CheckBox1 + vbWhite * (1 + CheckBox1)

JB

On 10 mar, 20:47, "Modeste" wrote:
Bonsour® JB  avec ferveur  ;o))) vous nous disiez :

Private Sub CheckBox1_Click()
  Me.TextBox1.BackColor = IIf(Me.CheckBox1, RGB(255, 0, 0), RGB(255,
255, 255))
End Sub


pour le fun !!
Private Sub CheckBox1_Click()
  Me.TextBox1.BackColor = RGB(255, -255 * Not (Me.CheckBox1), -255 * N ot
(Me.CheckBox1))
End Sub

--
--
@+
;o)))