diese a la fin d'un decompte

vgendron

XLDnaute Barbatruc

• 26 Janvier 2018

• #2

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 26 Janvier 2018

• #3

Bonjour,

éventuellement passer dans les options cocher calendrier 1904 🙂
P.

 

Vote positif 0 Vote négatif

M

mimi1958

XLDnaute Junior

• 26 Janvier 2018

• #4

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 26 Janvier 2018

• #5

mimi1958 à dit:

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

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

M

mimi1958

XLDnaute Junior

• 26 Janvier 2018

• #6

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

 

Pièces jointes

• tournoi howell 7 paires essai1.xlsm

  189.1 KB · Affichages: 31

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 27 Janvier 2018

• #7

Bonsour®

mimi1958 à dit:

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

Cliquez pour agrandir...

quelques modifications :

VB:

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

puis dans module 1

VB:

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

 

Pièces jointes

• tournoi howell 7 paires essai1.xlsm

  190.2 KB · Affichages: 29

Vote positif 0 Vote négatif

M

mimi1958

XLDnaute Junior

• 27 Janvier 2018

• #8

impeccable
merci pour tout

 

Vote positif 0 Vote négatif