diese a la fin d'un decompte

[mimi1958]

bonjour
apres un bonne repose d'un membre du forum , je continue l'evolution de mon classeur.
un petit probleme a la fin du decompte de 5 seconde ( que j'ai regle pour gain de temps )
des dieses apparraisent.
je voudrai savoir pkoi
la procedure est celle ci :
se mettre sur TOUR1 ET cliquer sur " chronometre
puis dans userform cliquer sur chrono qui dirige vers feuille ou se trouve chrono
le chrono demarra et a la fin apparaissent les dieses
je vous joint fichier
d'autre question viendront par la suite
merci par avance

 

[vgendron]

Hello
apparemment, les # apparaissent à la fin du décompte.. quand B1<A1
change la formule en C1 =SI(B1>=A1;$B$1-$A$1;"")

 

[gosselien]

Bonjour,

éventuellement passer dans les options cocher calendrier 1904
P.

 

[mimi1958]

la formule
C1 =SI(B1>=A1;$B$1-$A$1;"") ne marche pas
de plkus histoire du calendrier j'ai pas compris desole

 

[gosselien]

la formule
C1 =SI(B1>=A1;$B$1-$A$1;"") ne marche pas
de plkus histoire du calendrier j'ai pas compris desole

Dans les "vieilles" option avancées d'excel on peut cocher la zone "calendrier 1904" ce qui permet d'avoir les heures en négatif.
ça existe dans TOUTES les versions excel, cherche un peu, tu la trouveras
Quelle version utilises-tu ?

 

[mimi1958]

ok ca marche mais le probleme est que je voudrai qu'il s'arrete quans il arrive a zero au lieu de faire un decompte negatif
est ce possible

 

[Modeste geedee]

Bonsour®

ok ca marche mais le probleme est que je voudrai qu'il s'arrete quans il arrive a zero au lieu de faire un decompte negatif
est ce possible

quelques modifications :

Public Sub CommandButton1_Click()
   If running = False Then
      Range("a1") = 0
      running = True
      compte
   End If
End Sub

puis dans module 1

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'************************
Sub compte()
Dim i As Integer
If running Then
Range("A1").Value = Range("A1").Value + UneSec
Application.OnTime Now + TimeValue("00:00:01"), "compte"
'************************
running = Range("B1").Value > Range("A1").Value
Else
Beep 1000, 250
Beep 3000, 100
Beep 1000, 500
'************************
End If
End Sub

 

[mimi1958]

impeccable
merci pour tout