couleur de textbox

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...