• Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

apdf1

XLDnaute Impliqué
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
 

Pièces jointes

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 +
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
980
Réponses
2
Affichages
1 K
Retour