Bonjour,
En effet c'est depuis que j'ai voulu mettre un affichage de l'heure en temps réel que l'UF a commencé à planter. J'ai changé ce morceau de code pour un autre plus stable, et ça a l'air de tenir donc bon ..
Au début, j'utilisais dans mon module d'ouverture :
Dim temps
Sub affiche_heure()
UserForm_General.Label56.Caption = Format(Now, "hh:mm:ss")
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "affiche_heure"
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="affiche_heure", Schedule:=False
End Sub
Sub Affichage_User_HFx()
UserForm_General.Show
End Sub
et dans le code UF :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
auto_close
End Sub
et
Private Sub UserForm_Initialize ()
affiche_heure
End Sub
A force de me renseigner j'ai cru comprendre que c'était trop lourd pour VBA niveau mémoire et que fatalement, le programme planterait au bout d'un certain temps.
J'ai donc supprimé ces lignes (plus de soucis), donc ça venait bien de là, et maintenant j'utilise tout simplement :
Label56.Caption = Format(Now, "hh:mm")
avec un bouton à côté permettant de l'actualiser pour un utilisateur qui resterait plus d'une minute .. ^^
Mais si tu as des infos pour afficher le temps avec les secondes, sans besoin d'actualiser, je suis preneur !
Bonne journée !