Discussion :

[Ghost0000]

Bonjour à tous,

Je vous explique mon problème :

J'ai utilisé ce code dans le but de rajouter l'heure au niveau d'un userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim temps
Sub majHeure()
 UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
 temps = Now + TimeValue("00:00:1")
 Application.OnTime temps, "majHeure"
End Sub
 
Sub auto_close()
 On Error Resume Next
 Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
 
Sub afficheform()
   UserForm1.Show
End Sub
 
Private Sub UserForm_Initialize()
   majHeure
End Sub
 
Private Sub UserForm_Initialize()
  majHeure
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  auto_close
End Sub

Mon label affiche bien l'heure, jusque là pas de souci. Le souci provient du fait que lorsque je clique sur un textbox, la barre clignotante s'affiche, puis elle disparait et je ne peux plus la revoir. (Mon textbox est cependant sélectionné et je peux toujours rentrer des informations à l'intérieur, c'est juste que je me sens un peu perdu car je ne sais plus où j'ai cliqué...)

Une idée pour résoudre ce problème ?

Je pensais à textbox1.setfocus ...

Mais je sais pas trop comment faire....

GK

[parmi]

Bonjour,

Peut-être essayer avec un Repaint (?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub majHeure()
 UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
 temps = Now + TimeValue("00:00:1")
 Application.OnTime temps, "majHeure"
 UserForm1.Repaint
End Sub