bonjour,


je voudrais que lorsque l'utilisateur navigue d'un textbox à l'autre que la couleur d'arrière plan du textbox activé change

je sais qu'on peut le faire avec l'évement enter du textbox

je voudrais le faire avec une boucle

j'ai tenté une première approche mais en vain
voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub colorietxt()
Dim ctrl As Controls
 
For Each ctrl In Me.Controls
     If TypeOf ctrl Is MSForms.TextBox Then
      If ctrl.SetFocus = True Then
     ctrl.BackColor = &H80FFFF
     End If
     End If
    Next ctrl
End Sub
une idée de mon erreur merci