Feuille inactive avec userform

[happymax]

Bonjour,
J'essaie actuellement de réaliser un chronomètre sous vba excel 2007. Etant débutant sous vba et après quelques recherches j'en ai trouvé un qui me convient pour l'instant mais j'ai un problème: Peut-on avoir un userform actif (Ici mon chrono) et en même temps travailler sur sa feuille excel?

Je m'explique: Ce chrono doit servir à compter des tours mais on peut très bien décider de rajouter des commentaires tour par tour, ou pas. C'est pourquoi j'aimerais avoir toujours la main sur ma feuille avec le chrono fonctionnant. La seule "solution" que j'avais trouvée me rendait la main mais me stoppait mon chrono. Voici la définition de mon userform: (4boutons 3 labels). Merci d'avance!

Option Explicit

Dim marche As Boolean, arret As Boolean
Private Sub QUITTER_Click()
End
End Sub

Sub chrono()
Dim départ As Double, ARRIVÉE As Double, durée As Double
Dim j As Long, i As Long, sd As Long, ms As Long
Dim mn As Long, tps As String, Temps As Double
i = 14
départ = GetTickCount&
'DoEvents
Do
Do While marche And Not arret '-> le bouton PAUSE entraîne [marche = False] => Sortie de cette boucle
ARRIVÉE = GetTickCount&
durée = ARRIVÉE - départ
Label1.Caption = durée
[A1] = durée
DoEvents 'Laisse un délai pour l'affichage (tout petit petit...)
Loop
If Not arret And Not marche Then
durée = ARRIVÉE - départ
mn = Int(durée / 1000 / 60)
sd = Int((durée / 1000) - (mn * 60))
ms = durée - (sd * 1000) - (mn * 1000 * 60)
tps = mn & ":" & sd & ":" & ms
Labeltemp.Caption = tps
Temps = Val(mn & "." & Right("00" & sd, 2) & Right("000" & ms, 3))
DoEvents
marche = True
End If

Loop Until arret
durée = ARRIVÉE - départ
mn = Int(durée / 1000 / 60)
sd = Int((durée / 1000) - (mn * 60))
ms = durée - (sd * 1000) - (mn * 1000 * 60)
tps = mn & ":" & sd & ":" & Right("000" & ms, 3)
LabelFin.Caption = tps
Temps = Val(mn & "." & Right("00" & sd, 2) & Right("000" & ms, 3))
End Sub

Private Sub DEPART_Click()
If Not marche Then
Init
arret = False
marche = True
chrono
End If
End Sub

Private Sub PAUSE_Click()
Dim j As Long
marche = Not marche
For j = 1 To 10000
DoEvents
Next
End Sub

Sub Init()
Labeltemp.Caption = "00:00:00"
LabelFin.Caption = "00:00:00"
End Sub

Private Sub ARRIVEE_Click()
arret = True
marche = False
End Sub

Private Sub UserForm_Initialize()
Init
End Sub

 

[cocotier]

Re : Feuille inactive avec userform

salut !!
quand tu appel à l'ouverture de Forms
ex: le nom de la forms s'appel "FormsChoro"

sub OuvrirChrono()

FormsChono.show (0)

' (0) = induque que la forme est ti en premier plan mais tu peux tj traaille que _ ' autres support...



end sub

 

[happymax]

Re : Feuille inactive avec userform

Merci cocotier de ta réponse mais comme je disais cette instruction marche, c'est à dire que j'ai bien accès à ma feuille mais lorsque je veux saisir une valeur dans une case le chronomètre (dans mon userform) s'arrête complètement.
Or j'aimerais beaucoup pouvoir travailler en meme temps que mon chronomètre défile...
Merci de ton aide

 

[happymax]

Re : Feuille inactive avec userform

Je te remercie de ta réponse Cocotier mais malheureusement j'avais déjà testé cette formule qui résout un problème pour en créer un autre
En fait cela me donne bien accès à la feuille je peux rentrer une valeur dans une cellule quelconque mais malheureusement quand je le fais mon chronomètre (dans mon userform) s'arrête... Et là est le problème. Je voudrais pouvoir travailler et avoir mon chronomètre qui défile en même temps (afin de pouvoir faire des temps au tour de temps en temps).
Merci de ton aide et bonne soirée.

 

[happymax]

Re : Feuille inactive avec userform

Je te remercie de ta réponse Cocotier mais malheureusement j'avais déjà testé cette formule qui résout un problème pour en créer un autre
En fait cela me donne bien accès à la feuille je peux rentrer une valeur dans une cellule quelconque mais malheureusement quand je le fais mon chronomètre (dans mon userform) s'arrête... Et là est le problème. Je voudrais pouvoir travailler et avoir mon chronomètre qui défile en même temps (afin de pouvoir faire des temps au tour de temps en temps).
Merci de ton aide et bonne soirée.

 

[francois22]

Re : Feuille inactive avec userform

Bonjour à vous,

Il est certainement un peu tard pour te répondre mais cela pourrait intéresser d'autres internautes :

Si la propriété ShowModal de l'USF est réglée sur False, cela permet de tout faire pendant que l'USF reste visible.

Bien cordialement,
François