Donne un son si la reponse est juste

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Mars 2011

• #2

Re : Donne un son si la reponse est juste

Bonjour Tinet

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xls

  33 KB · Affichages: 79
• 111.xls

  33 KB · Affichages: 85
• 111.xls

  33 KB · Affichages: 96

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 7 Mars 2011

• #3

Re : Donne un son si la reponse est juste

Bonsoir Philippe,

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

a+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2011

• #4

Re : Donne un son si la reponse est juste

Bonjour à tous,
Salut Philippe,

Sur le fichier de Philippe...

A+ à tous

 

Pièces jointes

• JC Sons sur Gagné.xls

  33.5 KB · Affichages: 83

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 7 Mars 2011

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2011

• #6

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 7 Mars 2011

• #7

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Mars 2011

• #8

Re : Donne un son si la reponse est juste

Bonjour à tous,

Dans un module :

VB:

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 7 Mars 2011

• #9

Re : Donne un son si la reponse est juste

Re,

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

a+

 

Vote positif 0 Vote négatif