Bonsoir,
Jean Michel PIERRE a écrit :
Mario Agrillo a écrit :
Bonjour
merci je vais travailler dans ce sens , mais existe t il un moyen sans
utiliser de macro ?
merci
Date: Mon, 28 Jan 2008 10:48:56 +0100> From: [EMAIL PROTECTED]> To:
users@fr.openoffice.org> Subject: Re: [users-fr] [CALC] Exécuter un
son dans une formule> > Bonjour,> > Mario Agrillo a écrit :> >
Bonjour> > > > je voudrais savoir SVP comment , a partir d'un test
conditionnel dans une cellule on peut executer un son (.wav . .)> > >
> merci> > Voici une idée ;-)> > * le test conditionnel peut être
conservé, notamment pour des affichages > différenciés au moyen des
styles.> > Pour sonoriser une condition> * paramétrer une règle de
validité (menu Données>Validité) avec par > exemple :> - dans onglet
Critères> => Autoriser : Nombre décimal (cellules vides permises)> =>
Données : différent> => Valeur : 0> - dans onglet Message d'erreur>
=> Action Macro (parcourir pour rechercher la macro qui sera exécutée
> : playSound comme dans l'exemple ci-dessous)> > * macro nécessaire>
Sous Windows (désolé je n'ai pas d'équivalent pour Unix)> > Declare
Function PlaySnd "vinmm.dll" Alias "PlaySoundA" _> (ByVal lpszName as
string, _> ByVal hModule as long, _> ByVal dwFlags as long) as long>
> sub playSound> PlaySnd("c:\windows\media\tada.wav", &H0, &H20000)>
end sub> > Francois> > >
La macro est assez simple (une petite erreur dans celle de François,
c'est winmm.dll) comme dans cet exemple :
Ben franchement je dois bigler car c'est bien ce qui était mentionné. Non ?
Mais l'essentiel c'est que Mario puisse jouer ;-)
REM ***** BASIC *****
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
sub JoueSon
PlaySound("c:\applaus.wav", &H0, &H20000)
end sub
Maintenant à toi d'adapter avec les styles conditionnels la proposition
de François.
J.M
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]