Discussion :

[crissud]

Bonjour

Je cherche depuis ce matin comment changer la couleur de fond d'un contrôle où se trouve le curseur.

j'ai trouvé un code pourtant semble être simple, mais cela ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

j'ai besoin d'un petit coup de main pour résoudre ce problème

[Daniel.C]

Bonjour,

Ca fonctionne, mais pas dans UserForm_Initialize où il n'y a pas de notion de "ActiveControl".

[crissud]

merci bien

bonne soirée