Bonjour le forum, existe-t'il un moyen de simplifier ce code qui se répète 27 fois sur les zones de texte (avec des noms différents) du formulaire ?
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
22
Private Sub Fax_GotFocus()
    Me.TimerInterval = 700
    With Me.Fax_Étiquette
        .SpecialEffect = 2
        .BackColor = vbRed
        .ForeColor = vbWhite
    End With
    Set Etiquette = Me.Fax_Étiquette
    Cont = Me.Fax.Name
 
    ' Vérification Internet
    VerifInternet
End Sub
 
Private Sub Fax_LostFocus()
    Me.TimerInterval = 0
    With Me.Fax_Étiquette
        .SpecialEffect = 1
        .BackColor = RGB(204, 200, 194)
        .ForeColor = vbBlack
    End With
End Sub
et l'action sur le Timer du formulaire
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
Private Sub Form_Timer()
    If Me.Etiquette.ForeColor = vbBlack Then
        With Me.Etiquette
            .SpecialEffect = 2
            .BackColor = vbRed
            .ForeColor = vbWhite
        End With
    Else
        With Me.Etiquette
            .SpecialEffect = 1
            .BackColor = RGB(204, 200, 194)
            .ForeColor = vbBlack
        End With
    End If
End Sub
Merci de votre aide.