Label clignotant

[apdf1]

Bonjour,

J'ai besoin d'un petit coup de main.
J'ai un USF avec Plusieurs TextBox et certaine sont numérique et pour interdire les lettres il y a une alerte avec un label qui se déclenche. J'aimerais que se dernier clignote je ne sais pas quel code lui associer.
Est il possible d'avoir un code qui me le permette.

Ci-joint mon fichier qui seras plus parlant.

Je vous remercie par avance et vous souhaite une bonne journée

Cordialement

Max

 

[soune26]

Re : Label clignotant

salut,

Comment ça qu'il clignotte?

 

[stefan373]

Bonjour apdf, soune et le forum.

Voilà ce que j'ai réussi à bricoler avec mes compétence.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Static i As Byte
For i = 1 To 4
If i = 5 Then Exit Sub
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
UserForm1.Label3.Caption = "Attention !!! caractere    interdit"
Application.Wait Now + TimeValue("00:00:01")
UserForm1.Label3.Visible = False
Application.Wait Now + TimeValue("00:00:01")
UserForm1.Label3.Visible = True

End If
Next i
UserForm1.Label3.Visible = False

End Sub

A +

 

[apdf1]

Re : Label clignotant

Bonjour Stefan, soune,

En faite quand l'utilisateur rentre une lettre alpha l'alerte se déclenche "Attention !!! caractere interdit" et le message qui se trouve dans le label doit clignoter

@+

Max

 

[stefan373]

Re

C'est ce que fait mon code.

A +

 

[apdf1]

Re : Label clignotant

Re,

Il clignote pas ?

@+

 

[néné06]

Re : Label clignotant

Bonjour apdf1,stefan373

Regardes si cela convient ?

A+

 

[stefan373]

Bonsoir néné et re aux autres.

Ci-joint clignote quelque fois et stop.

A +

Difficile de faire plus.

 

[fhoest]

Re : Label clignotant

Bonsoir a tous
A tester:
bien sur on peut tout imaginer comme changer couleur de fond et autres mais cela a déjà été proposer
A+

 

[apdf1]

Re : Label clignotant

Bonjour Néné, Stefan, fhoest,

Je vous remercie beaucoup j'ai adopté celui de Fhoest qui correspond le mieux à ma demande.

Juste une petite remarque peut-on modifier la vistesse du clignotement.

Bonne journée à tous

@+

Max

 

[fhoest]

Re : Label clignotant

Bonjour a tous,
oui on le peut il suffit de changer dans le module la ligne suivante:

Do While Timer - debut < 3 / 4 'par exemple ou 2/3 ,pour  1/2 trop rapide

A+

 

[apdf1]

Re : Label clignotant

Re,

Je te remercie et te souhaite une bonne journée

@+

Max