Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Userform et clignotement de label

Userform et clignotement de label

3 réponses
Avatar
Didier NOVARIN
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se voit
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,


Clignotement Formulaire
Private Sub CommandButton1_Click()
Clignote 6, Me.Label1.Name
End Sub

Sub Clignote(nb, label)
n = 0
Do While n < nb
Me(label).Visible = Not Me(label).Visible
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/ClignoteForm.xls

Cordialement JB


On 5 mai, 10:03, "Didier NOVARIN" wrote:
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se vo it
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i


Avatar
Francois L
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se voit
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i



Bonjour,

Une autre solution que celle de JB à partir des archives du Forum :

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub clign()
Dim i As Byte
For i = 1 To 12
Sleep (50)
DoEvents
UserForm1.Label1.ForeColor = vbBlue
Sleep (50)
DoEvents
UserForm1.Label1.ForeColor = vbRed
Next i
End Sub

--
François L

Avatar
Didier NOVARIN
Merci beaucoup
C'est toujours très sympa et efficace
Bonne journée
Didier

"JB" a écrit dans le message de news:

Bonjour,


Clignotement Formulaire
Private Sub CommandButton1_Click()
Clignote 6, Me.Label1.Name
End Sub

Sub Clignote(nb, label)
n = 0
Do While n < nb
Me(label).Visible = Not Me(label).Visible
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/ClignoteForm.xls

Cordialement JB


On 5 mai, 10:03, "Didier NOVARIN" wrote:
Bonjour,
Je souhaite qu'après lancement de mon userform, si une condition est
remplie, la police d'un label clignote, malheureusement, je ne connais pas
la procédure.
J'ai mis cela dans l'initialise du userform, mais cela bloque et ne se
voit
pas.
Je vous remercie
Didier

Dim i As Byte
For i = 1 To 3
Sleep 200
Label161.ForeColor = vbBlue
Sleep 200
Label161.ForeColor = vbRed
Sleep 200
Next i