Depuis ce matin j'essaye un code, de façon a changer la couleur du contrôle où se trouve le curseur
mais je bloque sur le code
Code:
Option Explicit
Dim Ctrl As Control
Private Sub UserForm_Initialize()
'date
TxtDateComptable.Value = Format(Now(), "ddmmyyyy")
TxtDateSaisie.Value = Format(Now(), "ddmmyyyy")
'ActiveControl.BackColor = 100
For Each Ctrl In UserForm1.Controls
If Ctrl.Name <> ActiveControl.Name Then
Ctrl.BackColor = 100
Else
ActiveControl.BackColor = 200
End If
Next Ctrl
End Sub
Re : changer la couleur d'un control lorsqu'il reçoit le focus
Bonjour à tous
Tu n'es pas dans la bonne procédure: Private Sub UserForm_Initialize()
Celle-ci ne s'éxécute qu'a l'affichage de l'userform
Par contre ici c'est déjà mieux mais pas encore tout à fait cela
(test OK sur un Userform contenant un TextBox nommé TextBox2)
Code:
Private Sub TextBox2_Change()
TextBox2.BackColor = RGB(100, 100, 100)
End Sub
EDITION: Voila qui est un peu mieux
(conditions de test : deux textbox sur l'userform
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.BackColor = RGB(100, 100, 100)
End Sub
Quand tu quittes le TextBox1, en appuyant sur la touche Tab par exemple, la couleur du TextBox2 changera PS: Les TabIndex sont à 0 pour TextBox1 et 1 pour TextBox2
(voir dans les propriétés des Textbox)
Re : changer la couleur d'un control lorsqu'il reçoit le focus
Bonjour crisud, le Forum,
Bonjour Staple1600
Je dirais même plus, en jouant avec les évennements:
Code:
Private Sub TextBox2_Enter()
TextBox2.BackColor = RGB(255, 0, 0)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.BackColor = RGB(100, 100, 100)
End Sub
Re : changer la couleur d'un control lorsqu'il reçoit le focus
Bonsoir Laetitia90,,xhudi69, Jean Marie
çà c'est du travail collectif..... merci à toutes et tous pour votre retour.
grâce à votre aide, je peux à présent finir mon code.
Les solution se Xhudi69 et Jean Marie fonctionnent parfaitement
mais ce serait trop facile..... Laetitia90 a vu juste.... j'ai 120 contrôles, l'intuition féminine