Label clignotant

S

soune26

XLDnaute Junior

• 31 Juillet 2011

• #2

Re : Label clignotant

salut,

Comment ça qu'il clignotte?

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 31 Juillet 2011

• #3

Bonjour apdf, soune et le forum.

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

Code:

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 +

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 31 Juillet 2011

• #4

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

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 31 Juillet 2011

• #5

Re

C'est ce que fait mon code.

A +

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 31 Juillet 2011

• #6

Re : Label clignotant

Re,

Il clignote pas ?

@+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 31 Juillet 2011

• #7

Re : Label clignotant

Bonjour apdf1,stefan373

Regardes si cela convient ?

A+

 

Dernière édition: 31 Juillet 2011

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 31 Juillet 2011

• #8

Bonsoir néné et re aux autres.

Ci-joint clignote quelque fois et stop.

A +

Difficile de faire plus.

 

Pièces jointes

• Caracteres interdit (1).xlsm

  54.9 KB · Affichages: 113

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 31 Juillet 2011

• #9

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+

 

Pièces jointes

• Caracteres interdit _fhoest.xlsm

  52.9 KB · Affichages: 151

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Août 2011

• #10

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

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 1 Août 2011

• #11

Re : Label clignotant

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

Code:

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

A+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Août 2011

• #12

Re : Label clignotant

Re,

Je te remercie et te souhaite une bonne journée

@+

Max

 

Vote positif 0 Vote négatif