Tassos aimerait qu’Excel lise un fichier audio lorsque la valeur d’une certaine cellule dépasse un seuil. Par exemple, lorsque la valeur d’une cellule dépasse 999, il souhaite qu’un fichier son particulier soit lu.

Il n’y a pas de moyen intégré de le faire dans Excel (bien que ce serait un ajout intéressant aux fonctionnalités de mise en forme conditionnelle d’Excel). Vous pouvez, cependant, lire un fichier son en utilisant une macro pour effectuer un appel à l’API Windows.

Vous devez commencer par placer du code dans l’objet Sheet pour le classeur. (Cliquez avec le bouton droit de la souris sur l’onglet de la feuille de calcul et choisissez Afficher le code dans le menu contextuel.) Déclarez la fonction «lecture sonore» à l’aide du code suivant:

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

Ensuite, vous pouvez créer une petite macro qui jouera réellement le fichier son. En supposant que le fichier audio se trouve dans le même répertoire que le classeur, le code suivant fonctionnera. (Vous devez modifier le code afin qu’il contienne le nom de fichier et l’emplacement appropriés.)

Sub PlayWAV()

WAVFile = ThisWorkbook.Path & "\MyAudioFile.wav"

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

Enfin, définissez les critères de lecture du fichier. Dans ce cas, vous voulez que le fichier son soit lu chaque fois que la valeur de la cellule cible dépasse la valeur seuil de 999. Ce qui suit vérifiera cette condition dans la cellule C5 et, si nécessaire, lira le fichier son:

Private Sub Worksheet_Change(ByVal Target As Range)

Threshold = 999     If Range("C5").Value > Threshold Then PlayWAV End Sub

Désormais, chaque fois que la valeur de la cellule C5 change et dépasse 999, le fichier audio sera lu une fois. Si les valeurs sont modifiées à moins de 999, rien ne joue. Si la valeur passe à une autre valeur supérieure à 999, le fichier audio sera lu à nouveau.

Pour des idées supplémentaires sur la lecture de fichiers audio, consultez ces sites:

http://www.j-walk.com/ss/excel/tips/tip87.htm http://www.cpearson.com/excel/PlaySound.aspx

Notez également que vous pouvez demander à Excel de lire un son système en utilisant la validation des données. Configurez simplement les critères de validation (décrits dans d’autres numéros de ExcelTips), puis, dans l’onglet Erreur, spécifiez si vous souhaitez qu’Excel arrête, avertisse ou informe l’utilisateur. Lorsqu’une valeur entrée dans la cellule ne correspond pas aux critères, une boîte de dialogue s’affiche et le son du système est entendu.

_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 (6559) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.