couleur de textbox

[polin]

bonjour a tous

je desirerais changer la couleur de fond d'une textbox lorsque l'utilisteur clique sur une case a cocher (les deux sont dans un userform)

j'ai essayer avec if then et backcolor mais ma syntaxe dois vraiment laisser a désirer car rien ne veut marcher

je debute en vba et ne sais même pas si cela est faisable

merci d'avance pour vos reponses et pour les solutions que j'ai déja trouvées pour d'autres problèmes dans le forum

 

[Hervé]

Bonsoir

essaye comme ceci :

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
TextBox1.BackColor = &HC0C0FF
Else
TextBox1.BackColor = 16777215
End If
End Sub

salut

 

[polin]

Merci

ça marche impeccable, apparemment tout ou presque est possible avec vba

comme j'aime bien comprendre ce que je fais, pourrais tu me dire à quoi correspond le nombre 1677215 de backcolor et ou je pourrais trouver les correspondances couleurs reelles (bleu, jaune,etc) avec les &HC0....F

 

[Eric C]

Bonjour le forum
Bonjour polin, bonjour Hervé

En complément et pour ta soif d'apprendre (tout à fait légitime), une démo de notre ami Mytå en pièce jointe. [file name=COULEUR_RGB_20050525141118.zip size=9163]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/COULEUR_RGB_20050525141118.zip[/file]

J'oubliais, comme dirais notre Ti_ (que je salue au passage), EXCEL sais presque tout faire sauf le café.

Message édité par: Eric C, à: 25/05/2005 14:12

 

[Hervé]

Bonjour poli,
salut eric
bonjour le forum



Pour le café, Eric, faut pas désespérer, j'ai trouvé cette macro :

Sub Bouton2_QuandClic()
Dim m
Dim t As String
Dim i As Byte, unecuillère, danslacafetièremettre
Dim appuyersurleboutondemarche As Boolean, caféquicoule, benalorspourquoicacoulepas
Dim cafetière As Range, mesuredeau, eauàverser
m = Array('66', '111', '110', '32', '109', '97 ', '105', '110', '116', '101', '110', '97', '110', '116', '44', '32', '97', '117', '32', '98', '111', '117', '108', '111', '116')
Set cafetière = Range('a1:a10')

For unecuillère = 1 To 3
    danslacafetièremettre = unecuillère
Next

For Each mesuredeau In cafetière
    mesuredeau = eauàverser
Next

If appuyersurleboutondemarche = True Then
caféquicoule = True
Else
benalorspourquoicacoulepas = True
End If

For i = 0 To UBound(m)
t = t & Chr(m(i))
Next i
MsgBox t
End Sub

Salut

 

[Eric C]

Bonjour le forum
Re bonjour Polin, re bonjour Hervé



EXCELlent ton café et ton humour. @ ce soir peut être sur le Chat ?

 

[polin]

encore une fois impeccable

merci Hervé,Eric et Myta

pour le café, je vais de ce pas acheter des filtres spécial vba

bravo le forum