OVH Cloud OVH Cloud

Changer la couleur d'un Textbox

4 réponses
Avatar
François
Bonjour,

Je cherche comment changer la couleur de fond d'un Textbox sans succès. J'ai
essayé ceci :

If tabtemp(O, 20) = True Then
TextBox4.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 44) = True Then
TextBox5.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Est-ce que quelqu'un aurait une solution ?

Merci

4 réponses

Avatar
François
Bonjour Daniel,

Voici ce que j'ai essayé mais malheureusement toujours sans succès :

If tabtemp(O, 41) = True Then
UsfInventaire.TextBox14.BackColor = RGB(204, 255, 255)
CheckBox10.Value = True
OptionButton3.Value = True
Else
If tabtemp(O, 44) = True Then
UsfInventaire.TextBox15.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Je ne prendre Activesheet car j'ai plusieurs Userform.

Merci pour ton aide.

François

"Daniel" a écrit dans le message de news:
%23C63j$
Bonjour.
ActiveSheet.TextBox4.BackColor = RGB(204, 255, 255)
ou Userform1.TextBox1.BackColor = RGB(204, 255, 255)
Cordialement.
Daniel
"François" a écrit dans le message de news:
AIVHg.61034$
Bonjour,

Je cherche comment changer la couleur de fond d'un Textbox sans succès.
J'ai essayé ceci :

If tabtemp(O, 20) = True Then
TextBox4.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 44) = True Then
TextBox5.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Est-ce que quelqu'un aurait une solution ?

Merci







Avatar
Daniel
Bonjour.
ActiveSheet.TextBox4.BackColor = RGB(204, 255, 255)
ou Userform1.TextBox1.BackColor = RGB(204, 255, 255)
Cordialement.
Daniel
"François" a écrit dans le message de news:
AIVHg.61034$
Bonjour,

Je cherche comment changer la couleur de fond d'un Textbox sans succès.
J'ai essayé ceci :

If tabtemp(O, 20) = True Then
TextBox4.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 44) = True Then
TextBox5.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Est-ce que quelqu'un aurait une solution ?

Merci



Avatar
Daniel
Es-tu sûr que les conditions soient remplies ?
Le code se trouve-t-il dan le Userform ou dans un module ?
Daniel
"François" a écrit dans le message de news:
cpWHg.62638$
Bonjour Daniel,

Voici ce que j'ai essayé mais malheureusement toujours sans succès :

If tabtemp(O, 41) = True Then
UsfInventaire.TextBox14.BackColor = RGB(204, 255, 255)
CheckBox10.Value = True
OptionButton3.Value = True
Else
If tabtemp(O, 44) = True Then
UsfInventaire.TextBox15.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Je ne prendre Activesheet car j'ai plusieurs Userform.

Merci pour ton aide.

François

"Daniel" a écrit dans le message de news:
%23C63j$
Bonjour.
ActiveSheet.TextBox4.BackColor = RGB(204, 255, 255)
ou Userform1.TextBox1.BackColor = RGB(204, 255, 255)
Cordialement.
Daniel
"François" a écrit dans le message de news:
AIVHg.61034$
Bonjour,

Je cherche comment changer la couleur de fond d'un Textbox sans succès.
J'ai essayé ceci :

If tabtemp(O, 20) = True Then
TextBox4.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 44) = True Then
TextBox5.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Est-ce que quelqu'un aurait une solution ?

Merci











Avatar
François
Bonjour Daniel,

J'ai finalement trouvé mon erreur. C'était ma référence aux cellules qui
était mauvaise.

Merci pour ton aide.

François

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

Es-tu sûr que les conditions soient remplies ?
Le code se trouve-t-il dan le Userform ou dans un module ?
Daniel
"François" a écrit dans le message de news:
cpWHg.62638$
Bonjour Daniel,

Voici ce que j'ai essayé mais malheureusement toujours sans succès :

If tabtemp(O, 41) = True Then
UsfInventaire.TextBox14.BackColor = RGB(204, 255, 255)
CheckBox10.Value = True
OptionButton3.Value = True
Else
If tabtemp(O, 44) = True Then
UsfInventaire.TextBox15.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Je ne prendre Activesheet car j'ai plusieurs Userform.

Merci pour ton aide.

François

"Daniel" a écrit dans le message de news:
%23C63j$
Bonjour.
ActiveSheet.TextBox4.BackColor = RGB(204, 255, 255)
ou Userform1.TextBox1.BackColor = RGB(204, 255, 255)
Cordialement.
Daniel
"François" a écrit dans le message de news:
AIVHg.61034$
Bonjour,

Je cherche comment changer la couleur de fond d'un Textbox sans succès.
J'ai essayé ceci :

If tabtemp(O, 20) = True Then
TextBox4.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 44) = True Then
TextBox5.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton3.Value = True
End If
End If

Est-ce que quelqu'un aurait une solution ?

Merci