alarme sonore sur excel

  • Initiateur de la discussion Initiateur de la discussion zack3fr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Z

zack3fr

Guest
Je suis en train de créer un tableau avec des montants à saisir. il ne faut pas que la somme de ces chiffres dépasse un certain montant. j'ai donc créé une mise en forme conditionnelle. Mais comme mon tableau est assez grand, j'ai peur que la cellulce coloriée ne se voit pas assez. Aussi de souhaiterais de plus avertir celui qui saisit de l'erreur par un bip sonore.
Je ne vois vraiment pas comment faire. Est-ce que quelqu'un peut me donner un coup de main?
Merci
 
Salut tout le monde

Si tu ne souhaite qu'un bip, en VBA une fonction existe avec la ligne de commande:

Beep

Edition: je viens de voir que la même question a déjà été postée et avait déjà reçu plus ou moins les mêmes réponses... peut-être ne sera-t'il point nécessaire de remettre ca !!!!!

Ya'v

Message édité par: ya_v_ka, à: 15/04/2006 13:14
 
Bonjour à tous
Bonjour zack3fr

J'avais ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('A1') > 22 Then
Call sndPlaySound32('C:/WINDOWS/Media/Avertir.wav', 0)
End If
Range('A1').Select
End Sub

Le chemin du son est pour winXp

Temjeh
 
Rebonjour

Voici la suite(oubli declare)

Dans la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Macro1
End Sub

Dans module:

Declare Function sndPlaySound32 Lib 'winmm.dll' Alias 'sndPlaySoundA' _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long

Sub Macro1()
If Range('A1') > 22 Then
Call sndPlaySound32('C:/WINDOWS/Media/Avertir.wav', 0)
End If
End Sub




Temjeh [file name=Son.zip size=7724]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Son.zip[/file]

Message édité par: temjeh, à: 24/06/2006 00:47
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
Réponses
3
Affichages
898
gwenael
G
Réponses
4
Affichages
808
A
Réponses
9
Affichages
3 K
L
  • Question Question
Réponses
7
Affichages
6 K
R
Réponses
12
Affichages
1 K
rendan2
R
S
Réponses
1
Affichages
872
Retour