Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment jouer un son si une condition est remplie dans Excel?

Dans Excel, nous pouvons appliquer la mise en forme conditionnelle pour formater et mettre en surbrillance les cellules pour répondre à la condition dont vous avez besoin, mais, parfois, vous voudrez peut-être jouer un son si une condition est remplie. Par exemple, si la valeur de la cellule dans A1 est supérieure à 300, je souhaite qu'un son soit lu. Excel ne prend pas en charge cette fonctionnalité, cet article, je vais vous présenter quelques codes VBA pour résoudre cette tâche.

Jouez un bip système par défaut basé sur la valeur de la cellule avec le code VBA

Jouez un son personnalisé basé sur la valeur de la cellule avec le code VBA

Jouez un son si la valeur de la cellule change dans une colonne spécifique avec le code VBA


flèche bleue bulle droite Jouez un bip système par défaut basé sur la valeur de la cellule avec le code VBA

Voici un code pratique pour vous permettre de jouer un bip système par défaut lorsqu'une condition spécifique est remplie, procédez comme suit:

1. Maintenez la touche ALT + F11 clés, puis il ouvre le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Jouez un bip système par défaut basé sur une valeur de cellule:

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

3. Ensuite, enregistrez et fermez cette fenêtre de code, revenez à la feuille de calcul et entrez cette formule: = SI (A1> 300, BeepMe (), "") dans une cellule vide à côté de la cellule contient la valeur sur laquelle vous souhaitez jouer un son, puis appuyez sur Entrer clé, rien ne sera affiché dans la cellule de formule, voir capture d'écran:

doc jouer le son si conditon vrai 1

4. Et maintenant, si la valeur entrée dans la cellule A1 est supérieure à 300, un bip système par défaut sera émis.


flèche bleue bulle droite Jouez un son personnalisé basé sur la valeur de la cellule avec le code VBA

Si vous voulez jouer un autre son que le bip système par défaut, ici aussi un code VBA peut vous rendre service.

1. Maintenez le ALT + F11 clés, puis il ouvre le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Jouez un son spécifique en fonction d'une valeur de cellule:

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
    Call PlaySound("c:\windows\media\Speech On.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    SoundMe = ""
End Function

3. Ensuite, enregistrez et fermez cette fenêtre de code, revenez à la feuille de calcul et entrez cette formule: = SI (A1> 300, SoundMe (), "")dans une cellule vide à côté de la cellule contient la valeur sur laquelle vous souhaitez jouer un son, puis appuyez sur Entrer clé, rien ne sera affiché dans la cellule de formule, voir capture d'écran:

doc jouer le son si conditon vrai 2

4. À partir de maintenant, si une valeur supérieure à 300 est entrée dans la cellule A1, un son spécifique sera joué à la fois.

Notes: Dans le code ci-dessus, vous pouvez modifier le fichier son wav selon vos besoins à partir de c: \ windows \ media \ chemin du fichier. Voir la capture d'écran:

doc jouer le son si conditon vrai 3


flèche bleue bulle droite Jouez un son si la valeur de la cellule change dans une colonne spécifique avec le code VBA

Si vous souhaitez lire un son si la valeur de la cellule change dans une colonne spécifique, vous pouvez appliquer le code VBA suivant.

1. Cliquez avec le bouton droit sur l'onglet de la feuille pour lequel vous souhaitez lire un son lorsque la valeur change dans une colonne, puis choisissez Voir le code dans le menu contextuel, et dans le Microsoft Visual Basic pour les applications fenêtre, copiez et collez le code suivant dans le module vide:

Code VBA: Jouez un son si la valeur de la cellule change dans une colonne:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
  If Intersect(Target, Columns(3)) Is Nothing Then
    Exit Sub
  Else
    For Each xCell In Columns(3)
        On Error Resume Next
        If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
          Beep
          Exit For
        End If
     Next
  End If
End If
End Sub

doc jouer le son si conditon vrai 4

Notes: Dans le code ci-dessus, le numéro 3 dans le script Colonnes (3) est le numéro de colonne dont vous souhaitez diffuser le son lorsque la valeur change dans cette colonne.

2. Et puis enregistrez et fermez cette fenêtre de code, maintenant, si une valeur de cellule change dans la troisième colonne, un bip système par défaut sera joué.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Willian · 2 months ago
    Nice Work! Thank you so much for the code, it was all that I needed
  • To post as a guest, your comment is unpublished.
    Artemis2021 · 4 months ago
    Not just photos or files. Sometimes you can insert a music file into the EX at https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. This is an interesting thing, isn't it?
  • To post as a guest, your comment is unpublished.
    Stefano · 7 months ago
    Grazie molte. ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. aiuto prezioso
  • To post as a guest, your comment is unpublished.
    Kaylin · 11 months ago
    I am a business person, using Excel is too familiar. I usually save the names of tracks in execl so that it is simpler to find them than to save them in files. Great.
    The music I use for business comes from ZigTone.com.You can go there and study them, maybe it's good for you.
  • To post as a guest, your comment is unpublished.
    BurniceCateline · 1 years ago
    Hello

    Is there any solution that wants to activate the audio only once means only the first criteria are met and then stopped ??

    Thank you very much
    You can learn the sound here: https://sonneriepro.com/samsung/
  • To post as a guest, your comment is unpublished.
    Tonosdellamadacanciones · 1 years ago
    For more interesting sounds, you can visit https://tonosdellamadacanciones.com/ to download the latest and coolest sounds on popular tabs from countries around the world.
  • To post as a guest, your comment is unpublished.
    Sia · 1 years ago
    That was lovely and very well taught. Enjoyed it a lot. Thank you so much!

  • To post as a guest, your comment is unpublished.
    dgesa · 1 years ago
    Quando colo essa formula recebo um erro, como se estivesse faltando valor entra as aspas = IF (A1> 300, BeepMe (), "")
  • To post as a guest, your comment is unpublished.
    a · 2 years ago
    Nice.

    Thanks
  • To post as a guest, your comment is unpublished.
    Ribeiro · 2 years ago
    Hi adm. I am trying to create, via VBA, an "IF" command which would sound an specifc sentence when a pre determined condition is reached. Could you help me, please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 2 years ago
    Hi adm. I am trying to create, via VBA, an "IF" command which would sound an specifc sentence when a pre determined condition is reached. Could you help me, please?
  • To post as a guest, your comment is unpublished.
    devraj · 2 years ago
    code is not working what i can do
  • To post as a guest, your comment is unpublished.
    Shehzad · 2 years ago
    Hey admin, please tell , if i want to save sound file in excel file and i will open my excel file in any computer , can i hear that sound ???
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Shehzad,
      If you apply the first and third VBA code to play a default system beep sound, the sound can be hear from any other computer. But, with the second vba code, you should set the custom sound to your need.

      Note: You should save the workbook as Excel Macro-Enabled Workbook format.
  • To post as a guest, your comment is unpublished.
    Excelakos · 4 years ago
    Hi there
    I try to use the Play a custom sound based on cell value with VBA code but i have a problem. Here is an example:
    I have a time countdown in cell A1 which means value changes per second.
    Then in cell B1 i have inserted =8/(24*60) in a 0:08:00 format
    So the if i use to trigger the sound is if B1>A1,SoundMe(),""
    But the sound will never be heard. I can hear a sound like something is looping and i guess it has something to do with the fact that the value is dynamically changing.
    Then i tried to alter the code in the part Call PlaySound("c:\windows\media\Speech On.wav", _
    0, SND_ASYNC Or SND_FILENAME)
    I changed SND_ASYNC with SND_SYNC.

    This way i managed to play the sound, but it gets repeating forever.

    Is there any solution like to trigger the sound only once meaning just the very first time the criteria is met and then stop ??
    Thank you a lot
    • To post as a guest, your comment is unpublished.
      vicovih · 8 months ago

      I love your article thanks for share article.


      • To post as a guest, your comment is unpublished.
        Leonard Bush · 2 months ago
        good article you can listen to music at https://bruitagesgratuits.com