Discussion :

[maxval18]

Bonjour

Je suis a la recherche du code pour faire clignoter le texte dans un textbox d'un USF

Merci d'avance

Cordialement

Max

[jfontaine]

Bonjour,

Ci dessous une méthode.

1 Dans un module tu mets la procèdure ci dessous en modifiant le nom de la textbox ainsi que les couleurs et le délais (ici 1 seconde)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub clignote()
If UserForm1.TextBox1.ForeColor = &H80000008 Then
    UserForm1.TextBox1.ForeColor = &HFF&
Else
    UserForm1.TextBox1.ForeColor = &H80000008
End If
 
Application.OnTime Now + TimeValue("00:00:01"), "clignote"
 
DoEvents
 
End Sub

2 Dans la userform tu déclenches le clignotement

Code :

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

Application.OnTime Now + TimeValue("00:00:01"), "clignote"

3 pour arreter le clignotement

Code :

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

Application.OnTime Now + TimeValue("00:00:01"), "clignote", False

[maxval18]

Re,

Je te remercie beaucoup

Max