"petit son" dès que la cellule est activée....
#1
Aspirant XLPages

Inscription: 14/09/2007

Messages: 26

Posté le : 06-10-2007 02h11
Bonjour à vous tous,

Comment, s'il vous plaît, déclencher un "petit son" dès qu'une cellule de la colonne D est Activée ?

Dans l'attente, veuillez croire à mon immense remerciement.

Cordialement Oxor.
Hors Ligne
Rapport   Haut 

Re: "petit son" dès que la cellule est activée....
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 06-10-2007 03h01
Bonsoir oxor, le Forum,

Drôle d'idée... :mind:

Cela dit, il est possible de faire comme suit :

Dans le module de code de la feuille :
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If 
Not Application.Intersect(TargetColumns(4)) Is Nothing Then
        JouerSon  
'appel de la procédure qui jouera le son
    End If
End Sub

[hr=30%]

La procédure JouerSon sera ensuite saisie dans un module de code standard (exemple : Module1). A partir d'ici, tout dépend du type de son que tu souhaites obtenir...

Voici 3 possibilités pour cette unique procédure (au choix) :

POSSIBILITE 1 : le classique (et surtout le plus simple)
Option Explicit

Sub JouerSon
()
    
Beep
End Sub



POSSIBILITE 2 : le classique revu et corrigé (pas vraiment conseillé compte tenu de l'utilisation d'API Windows)
Option Explicit

Private Declare Function BeepLib "Kernel32" (ByVal Fq&, ByVal Tm&)

Sub JouerSon()     'A adapter comme tu le souhaites... (faire des essais)
'
Beep tonalitédurée
    Beep 500
500
    Beep 550
100
    Beep 625
100
    Beep 675
100
    Beep 750
100
    Beep 850
100
End Sub



POSSIBILITE 3 : le fun (fichiers Wav) (pas vraiment conseillé compte tenu de l'utilisation d'API Windows)
Option Explicit

Private Declare Function PlaySoundLib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName$, _
        ByVal hModule
&, ByVal dwFlags&)

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

Sub JouerSon
()
Dim MonWav As String
    MonWav 
"C:\LeSon.wav"     '... chemin et nom à adapter
    Call PlaySound(MonWav, 0&, SND_ASYNC Or SND_FILENAME)
End Sub


Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: "petit son" dès que la cellule est activée....
#3
Aspirant XLPages

Inscription: 14/09/2007

Messages: 26

Posté le : 07-10-2007 02h17
Bonsoir Didier,

Je tenais juste à vous remercier sincèrement pour votre aide et votre dévouement.
La solution "POSSIBILITE 1 : le classique" que vous m'avez transmise est finalement la solution miracle à mon problème et j'ai pu la mettre en place en suivant vos instructions.

Cette drôle d'idée accoustique, m'aide, de part mon handicap, à s'avoir que je suis dans la bonne cellule d'un immense tableau, afin de déclancher une macro appeler par un simple bouton.

Un immense merci pour votre aide précieuse.

Cordialement : Oxor.
Hors Ligne
Rapport   Haut 

Re: "petit son" dès que la cellule est activée....
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 07-10-2007 18h50
Bonsoir oxor, le Forum,

Content que tu aies trouvé réponse à ton problème.

Effectivement, parfois on a peine à imaginer le pourquoi d'une demande.
Merci pour ton retour.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes