Sur userform : Focus sur textbox avec MAJ d'heure
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:
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
