textbox qui clignote si vide et "reprendre la main" pour écrire dedans

[pascal21]

bonsoir le forum
je suis tombé sur le post de cloclo57 (que je remercie d'avoir trouvé ça)cet après midi et le sujet m'interresse
voici le code

Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If TextBox5.Visible = True Then TextBox5.Visible = False Else TextBox5.Visible = True
a = Timer
Loop

ce code sert à faire clignoter le textbox
est-il possible que ce textbox ne clignote que si le textbox est vide
et de "pouvoir reprendre la main" pour inscrire une donnée ensuite
merci

 

[roro69]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

Bonsoir pascal
Code à essayer

Dim a As String, b As Byte

'Pour la condition
If TextBox5.Value = "" Then
a = Timer
Do
b = b + 1
Do Until a + 0.5 <= Timer
DoEvents
Loop
If TextBox5.Visible = True Then TextBox5.Visible = False Else TextBox5.Visible = True
a = Timer
Loop Until b = 5
Else: Exit Sub
End If

 

[abtony]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

bonsoir roro69, pascal21,

voiçi ce que j'ai pu obtenir en faisant des test, l'idée du textbox clignotant quand on oublie une saisie est pas mal du tout !

Dim a As String

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1 = "" Then
a = Timer
End If
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If TextBox1.Visible = True Then TextBox1.Visible = False Else TextBox1.Visible = True
a = Timer
Loop

End Sub

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
a = 0 <= Timer
End Sub

on clique sur le bouton pour valider les entrée si le textbox1 est vide alors il clignote, au passage de la souris il arrête de clignoté pour permettre la saisie !

à adapter ensuite, cela m'intéresse aussi.

a vous relire

 

[abtony]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

re,

j'ai ajouter le fond en rouge pendant le clignotement, il retourne au blanc une fois le focus dessus.

Dim a As String

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1 = "" Then
TextBox1.BackColor = RGB(255, 0, 0)
a = Timer
End If
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If TextBox1.Visible = True Then TextBox1.Visible = False Else TextBox1.Visible = True
a = Timer
Loop
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox1.BackColor = RGB(255, 255, 255)
End Sub

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
a = 0 <= Timer
TextBox1.BackColor = RGB(255, 255, 255)
End Sub

@ ++

 

[justine]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

bonsoir a tous
je me permets de me joindre a votre post pour avoir un complement d'info sur une ligne de cette macro fort sympathique:

que signifie la ligne

Do Until a + 0.5 <= Timer

merci

 

[abtony]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

Bonsoir justine,

je supose que c'est la boucle pour faire clignoter toutes les 5 secondes la textbox !

 

[justine]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

re
oui ca j'ai vu mais ce que je cherche a comprendre c'est ce qu'elle signifie exactement

 

[pascal21]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

bonsoir roro abtony
abtony j'ai essayé ton code
ça fonctionne jusqu'au moment où je veux "reprendre la main" sur la combobox
je n'obtiens que le changement de couleur du fond (retour couleur blanche)
mais le clignotement ne s'arrète pas
au pire je suis prêt à mettre un bouton pour faire stopper la macro (je ne sais pas faire non plus)

 

[abtony]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

re pascal,
chez moi il s'arrete je suis sous excel 2003.

au passage de la souris il s'arrete et tu peut ecrire sur le textbox

je te joint mon fichier

 

[roro69]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

ties essaye ce code le clignotement se fait trois fois si tu veut plus de cligntement augmenter le b de 2 EN 2

Dim a As String, b As Byte

'Pour la condition
If TextBox5.Value = "" Then
a = Timer
Do
b = b + 1
Do Until a + 0.5 <= Timer
DoEvents
Loop
If TextBox5.Visible = True Then TextBox5.Visible = False Else TextBox5.Visible = True
a = Timer
Loop Until b = 6
Else: Exit Sub
End If

 

[abtony]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

Bonsoir pascal21,

je vois que tu na pas donnée suite a ça ! tu a trouvé ton bonheur ?

Merci

 

[pascal21]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

bonsoir abtony
oui j'ai réussi à le faire fonctionner quand même
j'avais oublié de revenir remercier
désolé!!!!!

 

[abtony]

Re : textbox qui clignote si vide et "reprendre la main" pour écrire dedans

re,

je t'en prie tu na pas a être désolé ! c'était juste pour info merci