Beep et msgBox Excel

Résolu
Edaine Messages postés 62 Date d'inscription   Statut Membre Dernière intervention   -  
Edaine Messages postés 62 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je voudrai faire en sorte que lors de l'affichage d'une msgbox, celle-ci soit accompagnée d'un "beep" d'excel. J'ai vu plusieurs codes pour ce beep, mais je n'arrive pas à l'intégrer dans ma macro,


voici le passage du code de la msgbox concernée : 

Else: NombreErreur = NombreErreur + 1  
MsgBox (" Produit Non attendu : " & vbCrLf & vbTab & ean1 & vbCrLf & "!!!")


Lorsqu'Excel affiche cette msgBox, j'aimerai qu'un signal sonore l'accompagne pour avertir les utilisateurs.

Merci d'avance pour vos réponses !

A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour,

En toute 1° ligne de ton module(avant toutes les sub) 

Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long


et dans code 1°nombre:note; 2° nombre :durée 
Beep 600, 800
MsgBox (" Produit Non attendu : " & vbCrLf & vbTab & ean1 & vbCrLf & "!!!")

tu peux enchainer les Beep pour jouer du Mozart (si,si)
0
Réponse 2 / 2
Edaine Messages postés 62 Date d'inscription   Statut Membre Dernière intervention  
 
Super !

Merci !



Je vais éviter de faire une mélodie entière :P
0