Chrono (suite)

Efgé

XLDnaute Barbatruc

• 12 Janvier 2010

• #2

Re : Chrono (suite)

Bonsoir à tous,
Pardonnez moi pour ce POST qui n'ammene rien au fil, mais je serai interresser par un "BIP" sonore au bout des deux minutes.
Désolé de phagocyter le fil... mais c'est interressant...
Cordialement

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 12 Janvier 2010

• #3

Re : Chrono (suite)

Bonjour Efgé

De mon coté "mon" chrono lorqu'il s'arrête à 2 mn est relié à un fichier wav qui emet un son (à choisir) plus important qu'un beep.

J'ai récupéré ce code qui fonctionne bien :

Option Explicit
Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub alerte_sonore()
Call sndPlaySound32(ThisWorkbook.Path & "\alerte_sonore.Wav", 0)

End Sub

Le fichier Wav est : "alerte_sonore.Wav" et est placé dans le même répertoire que le fichier excel.


Ensuite le code suivant (ou B4 est la cellule du chrono) pour déclencher le son à 2mn :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If [B4].Text = "02:00" Then alerte_sonore
End Sub

Mais, pour revenir à mon problème je ne parviens pas à faire repartir le chrono après 2mn

 

Vote positif 0 Vote négatif

K

krobar

Guest

• 12 Janvier 2010

• #4

Re : Chrono (suite)

Bonsoir,
peut-être une piste avec ceci

Code:

Sub Depart2()

    [B4] = "02:02:01"
    Chrono = Now() - [B4]
    
    Do
        [B4] = Now() - Chrono
        DoEvents
    Loop

End Sub

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 12 Janvier 2010

• #5

Re : Chrono (suite)

Merci beaucoup carcharodon-carcharias

Mais celà ne correspond pas tout à fait à ce que je souhaite.

J'aurai voulu le plus simple possible et éviter une check box avec un clic supplémentaire (sachant que les boutons seront utilisés par des non initiés excel).

Bref n'avoir q'un bouton qui déclenche automatiquement le chrono là ou il s'est arrété et dans toutes les circonstances et notamment après l'arrêt à 2mn.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 12 Janvier 2010

• #6

Re : Chrono (suite)

Bonsoir à tous,
Merci de vos réponses
Le

globule Efgé

Cliquez pour agrandir...

vous en est reconnaissant 😀 .
Cordialement

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 12 Janvier 2010

• #7

Re : Chrono (suite)

Merci Krobar

En effet c'est une solution que j'avais envisagé (ajouter un bouton pour repartir de 2mn) mais j'espérais simplifier au maximum et eviter de créer un nouveau bouton.

Bref garder toujours le même bouton pour déclencher le chrono.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 12 Janvier 2010

• #8

Re : Chrono (suite)

Hello,

Pas vu les autres réponses, mais je dépose tout de même ma petite contribution.

Cdt, Hulk.

 

Pièces jointes

• chrono.xls

  26.5 KB · Affichages: 136
• chrono.xls

  26.5 KB · Affichages: 147
• chrono.xls

  26.5 KB · Affichages: 147

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 12 Janvier 2010

• #9

Re : Chrono (suite)

Merci Hulk

Celà correspond à ce que je voulais.

Je suis vraiment désolé mais j'ai une dernière question :

Est ce possible de faire en sorte que le chrono puisse s'arrêter automatiquement 2 fois, par exemple à 2mn comme actuellment mais aussi à 3 mn avec le même principe de déclenchement ensuite pour continuer le chrono là ou il s'est arrêté ?

Merci

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 12 Janvier 2010

• #10

Re : Chrono (suite)

Re,

Voici avec l'arrêt à 3 minutes.

Regardes comme j'ai fais et si tu veux encore un arrêt à 4 et/ou plus, tu y modifies.
N'oublies pas de modifier aussi du côté du code de la feuille.

Cdt, Hulk.

P.S. Je n'ai rien inventé 😀

 

Pièces jointes

• chrono.xls

  38 KB · Affichages: 147
• chrono.xls

  38 KB · Affichages: 155
• chrono.xls

  38 KB · Affichages: 162

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 12 Janvier 2010

• #11

Re : Chrono (suite)

Merci encore Hulk

Très bonne fin de soirée

 

Vote positif 0 Vote négatif