Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cellule sonore

Cellule sonore

8 réponses
Avatar
Guy72
Bonsoir à tous
J'ai actuellement le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case ActiveSheet.Range("DC62")
Case Is = 1215
Range("B2").Select
Call Bravo
Case Else
End Select
End Sub

Je voudrais incérer en même temps un fichier son pendant cette macro.
Quelqu'un peut il me dire comment faire ?
Cordialement

Guy
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fredo P.
Dans une cellule

=Si(A1="ZAZA";FONCTION.APPELANTE("winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDO
WSApplication DataMicrosoftWelcomeWelcom98.wav";1);"Chut")

"Guy72" a écrit dans le message de news:
egJB#
Bonsoir à tous
J'ai actuellement le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case ActiveSheet.Range("DC62")
[A1]="ZAZA"

Case Is = 1215
Range("B2").Select
Call Bravo
Case Else
End Select
[AI]=""

End Sub

Je voudrais incérer en même temps un fichier son pendant cette macro.
Quelqu'un peut il me dire comment faire ?
Cordialement

Guy




Avatar
Guy72
Bonsoir Fredo
Je te remercie de m'avoir répondu.
J'ai un souci, j'ai le message suivant dans le code.

Erreur de compilation.
Instructions et étiquettes incorrectes entre Select Case et le premier case.
???
Cordialement
Guy

"Fredo P." a écrit dans le message de news:

Dans une cellule

=Si(A1="ZAZA";FONCTION.APPELANTE("winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDO
WSApplication DataMicrosoftWelcomeWelcom98.wav";1);"Chut")

"Guy72" a écrit dans le message de news:
egJB#
Bonsoir à tous
J'ai actuellement le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case ActiveSheet.Range("DC62")
[A1]="ZAZA"

Case Is = 1215
Range("B2").Select
Call Bravo
Case Else
End Select
[AI]=""

End Sub

Je voudrais incérer en même temps un fichier son pendant cette macro.
Quelqu'un peut il me dire comment faire ?
Cordialement

Guy








Avatar
Fredo P.
Simplement mal placé
"Guy72" a écrit dans le message de news:

Bonsoir Fredo
Je te remercie de m'avoir répondu.
J'ai un souci, j'ai le message suivant dans le code.

Erreur de compilation.
Instructions et étiquettes incorrectes entre Select Case et le premier
case.

???
Cordialement
Guy

"Fredo P." a écrit dans le message de news:

Dans une cellule


=Si(A1="ZAZA";FONCTION.APPELANTE("winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDO


WSApplication DataMicrosoftWelcomeWelcom98.wav";1);"Chut")

"Guy72" a écrit dans le message de news:
egJB#
Bonsoir à tous
J'ai actuellement le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
[A1]="ZAZA"



Select Case ActiveSheet.Range("DC62")
Case Is = 1215

Range("B2").Select
Call Bravo
Case Else
End Select
[AI]=""

End Sub

Je voudrais incérer en même temps un fichier son pendant cette macro.
Quelqu'un peut il me dire comment faire ?
Cordialement

Guy












Avatar
Fredo P.
Voila c'est plus claire .À vérifier aussi le chemin du fichier Welcom98.wav
et s'il existe!

Dans une cellule

=Si(A1="ZAZA";FONCTION.APPELANTE"winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDOW
SApplicationDataMicrosoftWelcomeWelcom98.wav";1);"Chut")

Private Sub Worksheet_Change(ByVal Target As Range)
[A1]="ZAZA"
Select Case ActiveSheet.Range("DC62")
Case Is = 1215
Range("B2").Select
Call Bravo
Case Else
End Select
[AI]=""
End Sub
Avatar
Guy72
Re
J'avoue que je ne comprends plus rien.
Je n'arrive pas à le faire fonctionner.
Je t'envoie un fichier pour voir si tu peux faire quelque chose
http://cjoint.com/?lvtzb3ilyI
Cordialement
Guy

"Fredo P." a écrit dans le message de news:

Voila c'est plus claire .À vérifier aussi le chemin du fichier
Welcom98.wav
et s'il existe!

Dans une cellule

=Si(A1="ZAZA";FONCTION.APPELANTE"winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDOW
SApplicationDataMicrosoftWelcomeWelcom98.wav";1);"Chut")

Private Sub Worksheet_Change(ByVal Target As Range)
[A1]="ZAZA"
Select Case ActiveSheet.Range("DC62")
Case Is = 1215
Range("B2").Select
Call Bravo
Case Else
End Select
[AI]=""
End Sub




Avatar
MichDenis
| =Si(A1="ZAZA";FONCTION.APPELANTE"winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDOW
| SApplicationDataMicrosoftWelcomeWelcom98.wav";1);"Chut")

LA FONCTION.APPELANTE :
ceci n'est pas utilisable avec toutes les versions de Windows.
sur certains windows, elle inopérante -> "BUG"
Avatar
Fredo P.
Si tu peux, essayes d'ôter la protection de feuille, c'est déjà un point
pour que cela ne fonctionne pas.chez moi avec une vielle bécanne et xl97 le
son ralenti considérablement la macro "Bravo".
Autre point déceler, il est préférable de placer cette macro dans un module
plutôt que dans le code de feuille.
à Suivre
"Guy72" a écrit dans le message de news:

Re
J'avoue que je ne comprends plus rien.
Je n'arrive pas à le faire fonctionner.
Je t'envoie un fichier pour voir si tu peux faire quelque chose
http://cjoint.com/?lvtzb3ilyI
Cordialement
Guy

"Fredo P." a écrit dans le message de news:

Voila c'est plus claire .À vérifier aussi le chemin du fichier
Welcom98.wav
et s'il existe!

Dans une cellule


=Si(A1="ZAZA";FONCTION.APPELANTE"winmm.dll";"sndPlaySoundA";"JCJ";"C:WINDOW


SApplicationDataMicrosoftWelcomeWelcom98.wav";1);"Chut")

Private Sub Worksheet_Change(ByVal Target As Range)
[A1]="ZAZA"
Select Case ActiveSheet.Range("DC62")
Case Is = 1215
Range("B2").Select
Call Bravo
Case Else
End Select
[AI]=""
End Sub








Avatar
MichDenis
Dans le haut d'un module Standard :

Déclaration des API
'-------------------------------------------
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

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

Sub JouerSon()
Dim Chemin As String
'à adapter ....selon où le fichier .Wav est situé...
Chemin = "C:WINDOWSMedia"
PlaySound Chemin & "tada.wav", 0, 0
End Sub
'-------------------------------------------

Ta macro pourrait devenir :
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case target.value
Case 1215
JouerSon
Range("B2").Select
End Select
End Sub
'----------------------