J'utilise cette fonction pour avoir une musique de fond dans un classeur.
'------------
Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
'--------------
Et cette instruction pour la lancer
'---------------
Call sndPlaySound32(ThisWorkbook.Path & "\sound002.wav", 1)
'---------------
Cela fonctionne bien SAUF (évidemment)......
quand un clique se fait sur le CURSEUR d'une des barres de défilement d'une feuille, je dis bien sur le
CURSEUR (seulement).
Auquel cas le son s'arrête, sans que je comprenne pourquoi.
Ceci sans plantage et sans message de la part d'xl
Une explication peut-être ??
Testé sur xl2003 et xl2007, même problème
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
Jacquouille
Salut Jacky Si JPS était ici, il ne pourrait s'empêcher de relever ton problème de caleçon:
Auquel cas le son s'arrête, sans que je comprenne pourquoi.
Ceci dit, je suis complètement incapable de t'aider.... Bonne m. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "Jacky" a écrit dans le message de groupe de discussion : jntn7e$e0$
Bonjour,
J'utilise cette fonction pour avoir une musique de fond dans un classeur. '------------ Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long '-------------- Et cette instruction pour la lancer '--------------- Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1) '---------------
Cela fonctionne bien SAUF (évidemment)...... quand un clique se fait sur le CURSEUR d'une des barres de défilement d'une feuille, je dis bien sur le CURSEUR (seulement). Auquel cas le son s'arrête, sans que je comprenne pourquoi. Ceci sans plantage et sans message de la part d'xl
Une explication peut-être ?? Testé sur xl2003 et xl2007, même problème
Merci pour votre assistance ;o) -- Salutations JJ
Salut Jacky
Si JPS était ici, il ne pourrait s'empêcher de relever ton problème de
caleçon:
Auquel cas le son s'arrête, sans que je comprenne pourquoi.
Ceci dit, je suis complètement incapable de t'aider....
Bonne m. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
jntn7e$e0$1@speranza.aioe.org...
Bonjour,
J'utilise cette fonction pour avoir une musique de fond dans un classeur.
'------------
Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
'--------------
Et cette instruction pour la lancer
'---------------
Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1)
'---------------
Cela fonctionne bien SAUF (évidemment)......
quand un clique se fait sur le CURSEUR d'une des barres de défilement d'une
feuille, je dis bien sur le
CURSEUR (seulement).
Auquel cas le son s'arrête, sans que je comprenne pourquoi.
Ceci sans plantage et sans message de la part d'xl
Une explication peut-être ??
Testé sur xl2003 et xl2007, même problème
Salut Jacky Si JPS était ici, il ne pourrait s'empêcher de relever ton problème de caleçon:
Auquel cas le son s'arrête, sans que je comprenne pourquoi.
Ceci dit, je suis complètement incapable de t'aider.... Bonne m. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "Jacky" a écrit dans le message de groupe de discussion : jntn7e$e0$
Bonjour,
J'utilise cette fonction pour avoir une musique de fond dans un classeur. '------------ Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long '-------------- Et cette instruction pour la lancer '--------------- Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1) '---------------
Cela fonctionne bien SAUF (évidemment)...... quand un clique se fait sur le CURSEUR d'une des barres de défilement d'une feuille, je dis bien sur le CURSEUR (seulement). Auquel cas le son s'arrête, sans que je comprenne pourquoi. Ceci sans plantage et sans message de la part d'xl
Une explication peut-être ?? Testé sur xl2003 et xl2007, même problème
Merci pour votre assistance ;o) -- Salutations JJ
MichD
Bonjour,
As-tu essayé la combinaison de ces 3 événements?
'L'action que tu veux exécuter lorsque tu déplaces le curseur '-------------------------------------------------- Private Sub ScrollBar1_Change() Range("A1").Value = Me.ScrollBar1.Value End Sub '--------------------------------------------------- Private Sub ScrollBar1_Scroll() Call ScrollBar1_Change End Sub '---------------------------------------------------
'Utilise cet événement pour lancer le fichier de musique :
'---------------------------------------------------- Private Sub ScrollBar1_GotFocus() Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1) End Sub '----------------------------------------------------
'L'action que tu veux exécuter lorsque tu déplaces le curseur
'--------------------------------------------------
Private Sub ScrollBar1_Change()
Range("A1").Value = Me.ScrollBar1.Value
End Sub
'---------------------------------------------------
Private Sub ScrollBar1_Scroll()
Call ScrollBar1_Change
End Sub
'---------------------------------------------------
'Utilise cet événement pour lancer le fichier de musique :
'----------------------------------------------------
Private Sub ScrollBar1_GotFocus()
Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1)
End Sub
'----------------------------------------------------
'L'action que tu veux exécuter lorsque tu déplaces le curseur '-------------------------------------------------- Private Sub ScrollBar1_Change() Range("A1").Value = Me.ScrollBar1.Value End Sub '--------------------------------------------------- Private Sub ScrollBar1_Scroll() Call ScrollBar1_Change End Sub '---------------------------------------------------
'Utilise cet événement pour lancer le fichier de musique :
'---------------------------------------------------- Private Sub ScrollBar1_GotFocus() Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1) End Sub '----------------------------------------------------
Il ne s'agit nullement d'un objet ScrollBar dans le cas présent, mais des barres de défilement (natives) de la feuille Le fichier sonore est lancé à l'ouverture du classeur. Si un utilisateur clique sur le curseur pour se déplacer dans la feuille, le son se bloque. Ceci uniquement s'il clique sur le CURSEUR, pas s'il clique sur les flèches ou les parties supérieur ou inférieur au curseur
-- Salutations JJ
"MichD" a écrit dans le message de news: jnu36j$2a8$
Bonjour,
As-tu essayé la combinaison de ces 3 événements?
'L'action que tu veux exécuter lorsque tu déplaces le curseur '-------------------------------------------------- Private Sub ScrollBar1_Change() Range("A1").Value = Me.ScrollBar1.Value End Sub '--------------------------------------------------- Private Sub ScrollBar1_Scroll() Call ScrollBar1_Change End Sub '---------------------------------------------------
'Utilise cet événement pour lancer le fichier de musique :
'---------------------------------------------------- Private Sub ScrollBar1_GotFocus() Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1) End Sub '----------------------------------------------------
Il ne s'agit nullement d'un objet ScrollBar dans le cas présent, mais des barres de défilement (natives) de la
feuille
Le fichier sonore est lancé à l'ouverture du classeur.
Si un utilisateur clique sur le curseur pour se déplacer dans la feuille, le son se bloque.
Ceci uniquement s'il clique sur le CURSEUR, pas s'il clique sur les flèches ou les parties supérieur ou
inférieur au curseur
--
Salutations
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: jnu36j$2a8$1@speranza.aioe.org...
Bonjour,
As-tu essayé la combinaison de ces 3 événements?
'L'action que tu veux exécuter lorsque tu déplaces le curseur
'--------------------------------------------------
Private Sub ScrollBar1_Change()
Range("A1").Value = Me.ScrollBar1.Value
End Sub
'---------------------------------------------------
Private Sub ScrollBar1_Scroll()
Call ScrollBar1_Change
End Sub
'---------------------------------------------------
'Utilise cet événement pour lancer le fichier de musique :
'----------------------------------------------------
Private Sub ScrollBar1_GotFocus()
Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1)
End Sub
'----------------------------------------------------
Il ne s'agit nullement d'un objet ScrollBar dans le cas présent, mais des barres de défilement (natives) de la feuille Le fichier sonore est lancé à l'ouverture du classeur. Si un utilisateur clique sur le curseur pour se déplacer dans la feuille, le son se bloque. Ceci uniquement s'il clique sur le CURSEUR, pas s'il clique sur les flèches ou les parties supérieur ou inférieur au curseur
-- Salutations JJ
"MichD" a écrit dans le message de news: jnu36j$2a8$
Bonjour,
As-tu essayé la combinaison de ces 3 événements?
'L'action que tu veux exécuter lorsque tu déplaces le curseur '-------------------------------------------------- Private Sub ScrollBar1_Change() Range("A1").Value = Me.ScrollBar1.Value End Sub '--------------------------------------------------- Private Sub ScrollBar1_Scroll() Call ScrollBar1_Change End Sub '---------------------------------------------------
'Utilise cet événement pour lancer le fichier de musique :
'---------------------------------------------------- Private Sub ScrollBar1_GotFocus() Call sndPlaySound32(ThisWorkbook.Path & "sound002.wav", 1) End Sub '----------------------------------------------------
Pourrais-tu me confirmer la même anomalie chez toi ?
Ou..... si des volontaires pourraient confirmer Classeur test http://cjoint.com/?BEdxn7OWyPE Eventuellement le ficher son http://cjoint.com/?3EdxtsNL7pV -- Salutations JJ
"MichD" a écrit dans le message de news: jnuee2$2oj$
Pourrais-tu me confirmer la même anomalie chez toi ?
Ou..... si des volontaires pourraient confirmer
Classeur test
http://cjoint.com/?BEdxn7OWyPE
Eventuellement le ficher son
http://cjoint.com/?3EdxtsNL7pV
--
Salutations
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: jnuee2$2oj$1@speranza.aioe.org...
Pourrais-tu me confirmer la même anomalie chez toi ?
Ou..... si des volontaires pourraient confirmer Classeur test http://cjoint.com/?BEdxn7OWyPE Eventuellement le ficher son http://cjoint.com/?3EdxtsNL7pV -- Salutations JJ
"MichD" a écrit dans le message de news: jnuee2$2oj$
Ok Merci du test Xl n'est pas vraiment conçu pour cela, et comme il n'y a pas plantage, ce n'est pas très gênant. Je m'inquiéterais plus :o) si cela ne se produisais que cher moi.
Me voila donc ....rassuré ;o)
-- Salutations JJ
"MichD" a écrit dans le message de news: jnuvne$kqd$
J'observe le même phénomène avec Windows 7 64 bits et Microsoft Office 10.
Comme ce comportement est partie prenante de l'application, cela va être très difficile de trouver un moyen de contournement.
Ok Merci du test
Xl n'est pas vraiment conçu pour cela, et comme il n'y a pas plantage, ce n'est pas très gênant.
Je m'inquiéterais plus :o) si cela ne se produisais que cher moi.
Me voila donc ....rassuré
;o)
--
Salutations
JJ
"MichD" <michdenis@hotmail.com> a écrit dans le message de news: jnuvne$kqd$1@speranza.aioe.org...
J'observe le même phénomène avec Windows 7 64 bits et Microsoft Office 10.
Comme ce comportement est partie prenante de l'application, cela va être très difficile
de trouver un moyen de contournement.
Ok Merci du test Xl n'est pas vraiment conçu pour cela, et comme il n'y a pas plantage, ce n'est pas très gênant. Je m'inquiéterais plus :o) si cela ne se produisais que cher moi.
Me voila donc ....rassuré ;o)
-- Salutations JJ
"MichD" a écrit dans le message de news: jnuvne$kqd$
J'observe le même phénomène avec Windows 7 64 bits et Microsoft Office 10.
Comme ce comportement est partie prenante de l'application, cela va être très difficile de trouver un moyen de contournement.
