Donne un son si la reponse est juste

[tinet]

bonsoir le forum,

après plusieurs recherches, je demande de l'aide au forum.

avez-vous un fichier en exemple qui permettrait de jouer un son si la réponse est juste.
en clair je souhaite soumettre un petit exercice à une équipe sur Excel 2003.
si le résultat obtenu dans une cellule définie et juste l'ordinateur émet un son de même si la réponse est faux un autre son.

cette exécution serait réalisée par une macro.

dans l'attente de vous lire.

a+

 

[phlaurent55]

Re : Donne un son si la reponse est juste

Bonjour Tinet

voir fichier joint

à+
Philippe

 

[tinet]

Re : Donne un son si la reponse est juste

Bonsoir Philippe,

O.K., sommes-nous limités par un simple bip

a+

 

[JCGL]

Re : Donne un son si la reponse est juste

Bonjour à tous,
Salut Philippe,

Sur le fichier de Philippe...

A+ à tous

 

[tinet]

Re : Donne un son si la reponse est juste

Bonsoir JCGL,

C'est pas du Mozard, mais mieux que bip.

Dommage de n'avoir pas plus de possibilité.


Je fais la modification dans mon fichier avec un bouton test (macro) pour la vérification en fin de calcul.

a+ si vous avez plus d'idées

 

[JCGL]

Re : Donne un son si la reponse est juste

Bonjour à tous,

Après le mot Beep, la première valeur est la Fréquence, la deuxième est le Temps d'exécution....

A toi de faire sonner...

Tu peux remplacer les beeps par un son wav ou midi

A+ à tous

 

[tinet]

Re : Donne un son si la reponse est juste

Re,

Un son Wav ou midi , oui plus de possibilité.
tu écris ça comment alors.
je suppose que le fichier doit être identifié à un endroit précis sur le disque dur.

a+

 

[JCGL]

Re : Donne un son si la reponse est juste

Bonjour à tous,

Dans un module :

Option Explicit

Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long

Sub Son_Wav()
If Application.CanPlaySounds Then Call sndPlaySound32("C:\Bienvenue JC.wav", 0)
End Sub

A+ à tous

 

[tinet]

Re : Donne un son si la reponse est juste

Re,

Merci Jcgl, je vais m'éclater avec cette fonction.

a+