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

roro69

XLDnaute Impliqué

• 24 Mars 2008

• #2

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

Cliquez pour agrandir...

 

Dernière édition: 24 Mars 2008

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 24 Mars 2008

• #3

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 !

Code:

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

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 24 Mars 2008

• #4

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.

Code:

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

@ ++

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 24 Mars 2008

• #5

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

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 24 Mars 2008

• #6

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 !

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 24 Mars 2008

• #7

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 24 Mars 2008

• #8

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)

 

Dernière édition: 24 Mars 2008

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 24 Mars 2008

• #9

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

 

Pièces jointes

• textbox clignotant.xls

  25 KB · Affichages: 170
• textbox clignotant.xls

  25 KB · Affichages: 187
• textbox clignotant.xls

  25 KB · Affichages: 184

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 24 Mars 2008

• #10

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

Cliquez pour agrandir...

 

Pièces jointes

• clignote(2).zip

  7.7 KB · Affichages: 134

Dernière édition: 24 Mars 2008

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 26 Mars 2008

• #11

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 26 Mars 2008

• #12

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é!!!!!

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 26 Mars 2008

• #13

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

 

Vote positif 0 Vote négatif