Chrono d'un userform
Bonjour à tous,
Je me dirige vers vous pour une problèmatique liée à un userform.
Je ne sais pas si ma demande est réalisable.
J'aimerai chronométrer le temps d'ouverture d'un usf et reporter le temps (qui évolue) dans un textbox2.
En fouinant sur internet j'ai vu le fonction GetTickCount mais en toute franchise je n'ai pas la connaissance necessaire pour l'appliquer.
Avez vous une idée si cela et réalisable et me fournir quelques pistes pour y arriver?
D'avance merci à tous pour votre aide et votre temps
Vinno
EDIT: une fois le bouton cliquer, le temps passait doit aller dans la feuille "clore"
bonjour,
voici une macro à tester.
Dis nous si cela te convient.
La macro s'arrête au bout de 15 secondes, tu peux changer ce chiffre dans la macro UserForm_Activate au niveau de la ligne :
For i = 0 to 15 Step 1A plus !
Edit : Je viens de m'apercevoir que si le temps dépasse les 60 secondes, le timer ne prend pas en compte les minutes et continue avec 61,62,63 ... Je règle ça et revient vers toi.
Merci Braters pour ton aide.
En effet, le chrono continue après le 60.
Pour reporter le temps écoulé dans une cellule, c'est le même principe que le report d'un textbox classique?
En tout cas l'idée est bonne, merci à toi
Et voilà le problème doit être réglé.
Le USF reste ouvert 10 minutes avant de se fermer en indiquant un message.
Tu peux stoper soit à l'aide de la croix rouge soit à l'aide du bouton "Clore"
A plus !
bonjour
ses pas mal mes il faut changer la valeur de la TextBox2 pour être en format heure
ex:
Sheets("Clos").Range("B2") = CDate(TextBox2.Value)
Sheets("Clos").Range("B2").NumberFormat = "h:mm:ss"A+
Maurice
Désolé pour la réponse tardive.
Un grand merci à vous 2. vous avez réglé mon problème de chrono.
Vinno