Ken sait créer des formats conditionnels dans Excel. Ce qu’il veut vraiment faire, cependant, c’est qu’Excel émette un son audible (un bip ou autre) si les conditions sont remplies.

Il n’y a aucun moyen de faire cela sans recourir à des macros. Si vous voulez juste émettre un bip, vous pouvez utiliser quelque chose comme ceci:

Function BeepMe() As String     Beep     BeepMe = ""

End Function

Tout ce que fait cette fonction définie par l’utilisateur est de jouer un son (qui variera selon le système que vous utilisez), puis de renvoyer une chaîne vide.

Vous pouvez utiliser la fonction dans votre feuille de calcul de cette manière:

=IF(A12>300,BeepMe(),"")

Si vous souhaitez lire un son autre que le bip système par défaut, vous devrez utiliser la fonction PlaySound de l’API Windows. Le code suivant crée une fonction définie par l’utilisateur qui jouera le « tada » par défaut

son si répandu dans de nombreuses versions de Windows.

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal lpszName As String, _   ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0     Const SND_ASYNC = &H1     Const SND_FILENAME = &H20000

Function SoundMe() As String     Call PlaySound("c:\windows\media\tada.wav", _       0, SND_ASYNC Or SND_FILENAME)

SoundMe = ""

End Function

Cette fonction peut être appelée de la même manière que l’exemple précédent:

=IF(A12>300,SoundMe(),"")

Si vous souhaitez lire un autre fichier WAV, modifiez simplement la spécification du fichier dans la fonction SoundMe.

Notez que le code doit être entré dans un module inséré dans l’éditeur VBA pour que la fonction fonctionne correctement.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (5834) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Conditionally_Making_a_Sound [Conditionally Making a Sound].