Mario Agrillo a écrit :
La macro est assez simple (une petite erreur dans celle de François, c'est winmm.dll) comme dans cet exemple :Bonjourmerci je vais travailler dans ce sens , mais existe t il un moyen sans utiliser de macro ? merciDate: Mon, 28 Jan 2008 10:48:56 +0100> From: [EMAIL PROTECTED]> To: [email protected]> 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> > >
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
Lancer un son conditionnel.ods
Description: application/vnd.oasis.opendocument.spreadsheet
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
