Son sur des liens?

[Cédric]

Bonjour le forum et tout les forumeurs.

Je viens soliciter, une fois de plus, votre aide. En effet, j'ai un fichier Excel avec environ 70 feuilles avec des liens qui permettent de naviguer de page en page ( certaines pages ont jusqu'à 8 liens sur la même feuilles).

Je souhaiterai que lorsque l'on clique sur les différents liens, un petit son (basique, style "bip" ...) s'émette.

Je suis novice, donc si vous pouvez m'expliquer les démarches à suivre "de A à Z" se serait sympa.

Je vous en remercie par avance ...

Cédric

 

[Cédric]

Re,

j'espere que j'ai été assez clair dans ma demande, si vous voulez plus de précision sur celle-ci, n'hésitez pas, laissez moi un message.

Cédric

 

[Jean-Marie]

Bonjour, le forum

Sur le chat, avec Pascal nous avons proposé à Cédric cette solution. A placer dans le thisworkbook du classeur.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Beep
End Sub

@+Jean-Marie & Pascal

 

[michel]

bonsoir Cedric , bonsoir Jean-Marie


avec Excel2002 , il est possible de gérer directement les evenements hyperlinks

pour une feuille
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Beep
End Sub

pour tout le classeur
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Beep
End Sub


bonne soiree
MichelXld

 

[Pascal76]

Bonjour

Michel personnellement j'utilise très très rarement les liens hypertexte et je n'avais pas remarqué ce FollowHyperlink. Alors merci pour l'info ça peut servir.

Juste une précision sur Excel 2000 c'est géré également.

Bonne journée

Pascal

 

[Jean-Marie]

Bonjour Cédric, Michel, Pascal,

Juste une petite info, il n'y a pas d'événements sur HyperLink sur la plate-forme mac. Voilà c'est tout

@+Jean-Marie

 

[Cédric]

Bonjour Jean-Marie, Michel, Pascal

Michel, qu'appeles tu les evenements hyperlinks?

Quelles différence y a t'il avec la solution de Jean-Marie?


Merci de votre aide.

A plus ...

Cédric

 

[Cédric]

Ca y est,

la différence est sur les liens et non pas sur le changement de feuilles.
Je vais mettre en place la solution de Michel.

Je vous remercie tous pour votre aide.

A bientot

Cédric

 

[Cédric]

Re à tous,

c'est encore moi, j'ai un petit souci, j'ai mis en place la macro de Michel,

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Beep
End Sub

mais quand je clique sur les différents liens il n'y a pas de son.

Que dois je faire?

Merci

Cédric

 

[michel]

bonsoir Cedric , Jean-Marie et Pascal

Cedric tu peux tester le classeur joint

sinon , quelle version d'excel utilises tu ?
quelle est la plateforme ( Mac/Pc) ?


bonne soirée
MichelXld

 

[Jean-Marie]

Bonjour

Michel, je vais te répondre, les liens sont sur des shapes, et la plate-forme est PC en version 2002.

@+Jean-Marie

 

[michel]

bonsoir Jean-Marie

merci pour ton message

...oouuppsss...effectivement ça change tout .
Dans ce cas ma proposition ne peut pas fonctionner .Ta solution et celle de Pascal est la mieux adaptée


bonne soiree
MichelXld

 

[Celeda]

Bonsoir,

Question subsidiaire mimi :
existe-il un autre son que celui du Beep (donc un autre code à mettre)
qui n'est pas un son très gai, (il fait penser plutôt à un sou qui tombe au fond du puit), svp,
Merci à l'avance,

 

[michel]

bonjour Celeda

à ma connaissance l'instruction Beep est le seul son intégré dans Excel .
Il est peut etre possible de modifier le son utilisé par défaut , mais dans ce cas je ne saurais te dire comment il faut faire pour le changer

Sinon , deux autres solutions dans ce lien : J'espere que cela pourra t'aider

Lien supprimé


bonne journee à toi
MichelXld

 

[Celeda]

Bonjour,

Merci Michel, je vais voir si cela est adaptable pour ce que je veux faire
sans créer une usine, car cette simple ligne me semblait bien pratique.