Discussion :

[corinthien]

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.

[mercatog]

Bonjour

Regarde du côté des modules de classe.

[corinthien]

Merci mercatog, j'y pensais mais je ne sais pas comment faire…

[Philippe Tulliez]

Bonjour,

j'y pensais mais je ne sais pas comment faire…

Un peu de lecture sur le sujet

• Office et les modules de classes
• Création et utilisation de classes personnalisées en VB 6.0 et VBA (partie 1)
• https://fauconnier.developpez.com/articles/vba/general/classes/

[corinthien]

Merci Philippe, je vais voir ça.

[patricktoulon]

bonsoir

désolé de t'arréter dans ton élan mais si tes fax... sont des textboxs les modules classe ne gerent pas les evenement focus