poussy67
XLDnaute Occasionnel
Bonjour le forum
j'ai un petit souci lors de l'affichage d'une horloge dans un userform des l'ouverture il me plante, le message est sub ou fonction non définie
j'ai placer un code dans thisworbook ( UserForm1.Show 0)
et dans :
'==================================================
Private Sub UserForm_Initialize()
'Affichage sur le UserForm
UserForm1.LblDateHeure.Caption = "Nous sommes le " & Format(Date, "Long Date") _
& vbCrLf & vbCrLf & "Il est " & Format(Now, "Long Time")
UserForm1.LblDateHeure.Caption = UCase(Left(UserForm1.LblDateHeure.Caption, 1)) _
& Right(UserForm1.LblDateHeure.Caption, Len(UserForm1.LblDateHeure.Caption) - 1)
'Active le minuteur maintenant
ActiverTimer 1
'==================================================
cdt poussy
j'ai un petit souci lors de l'affichage d'une horloge dans un userform des l'ouverture il me plante, le message est sub ou fonction non définie
j'ai placer un code dans thisworbook ( UserForm1.Show 0)
et dans :
'==================================================
Private Sub UserForm_Initialize()
'Affichage sur le UserForm
UserForm1.LblDateHeure.Caption = "Nous sommes le " & Format(Date, "Long Date") _
& vbCrLf & vbCrLf & "Il est " & Format(Now, "Long Time")
UserForm1.LblDateHeure.Caption = UCase(Left(UserForm1.LblDateHeure.Caption, 1)) _
& Right(UserForm1.LblDateHeure.Caption, Len(UserForm1.LblDateHeure.Caption) - 1)
'Active le minuteur maintenant
ActiverTimer 1
'==================================================
cdt poussy