Lancer une musique à partir d'un lien hypertexte.

[Océane]

Bonjour le forum
La macro situé dans l'exemple ci-joint gère effectivement mon besoin (explication dans la feuille du classer), mais malheureusement dans le cas de double clic, c'est le format entier qui est modifié, ( police de caractères, bordure de la cellule...).
En fait j'ai besoin de tout retrouver, sauf la couleur de fond.
Merci d'avance si un "macro-technicien" trouve la solution.

 

[Compte Supprimé 979]

Re : Lancer une musique à partir d'un lien hypertexte.

Bonjour Océane

Le problème de ton code, c'est qu'il utilise les "Styles" et donc ton style "non cliqué"
n'utilise pas la bonne police, les bonnes bordures (à définir correctement)

a+

 

[Océane]

Re : Lancer une musique à partir d'un lien hypertexte.

Bonjour Bruno
Effectivement, ne connaissant pas grand chose aux macros je suis allé au plus simple pour moi, avec une combinaison avec les styles;
Mais si il excite une solution 100/100 macro je suis preneur.
Bon dimanche

 

[Compte Supprimé 979]

Re : Lancer une musique à partir d'un lien hypertexte.

Re,

C'était une très bonne idée, mais un peu restreinte 😉

Voici le code possible

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  'If Range(Target.Address).Style = "cliqué" Then _
    Range(Target.Address).Style = "non cliqué": Cancel = True
  With Target
    If .Interior.Color = 10092543 Then
      .Interior.Pattern = xlNone
      Cancel = True
    End If
  End With
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Target.Range.Style = "cliqué"
  With Target.Range.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 10092543
  End With
End Sub

Bonne fin de journée et bon dimanche

A+

 

[YANN-56]

Re : Lancer une musique à partir d'un lien hypertexte.

Bonjour Oceane, Bruno, et à ceux qui passeront par là,

Voici une petite idée jointe.

Mais à noter que:

- Je ne l'ai fait qu'avec un son ".wav", car le ".mp3" ne fonctionne pas chez moi.
- Je n'ai mis qu'une action suite à un "Double-Click" car je suis infichu de me servir d'une Feuille.

Donc; à présent, une Double-click n'importe où lance le son.

Ceci dit, il y aurait plein de chose à faire avec une ListView.
- Sélection
- Ordre de passage
- Mise en Couleur de cette liste, ou des cellules concernées dans la feuille.

Amicalement,

Yann

 

[Océane]

Re : Lancer une musique à partir d'un lien hypertexte.

Oui c'est bon, mais ce qui est curieux, c'est que lorsque je fais un autre essai dans la feuille je n'arrive pas a obtenir et à garder la police choisie...
A+

Gloups, je suis allé trop vite, c'est bon, merci Bruno.

 

[YANN-56]

Re : Lancer une musique à partir d'un lien hypertexte.

Bonsoir carcharodon-carcharias 🙂,

Tu as totalement raison!

A tel point que je demande bien ce que je suis venu faire là!!! 😱

Amicalement,

Yann

 

[Océane]

Re : Lancer une musique à partir d'un lien hypertexte.

Bonjour Oceane, Bruno, et à ceux qui passeront par là,

Voici une petite idée jointe.

Mais à noter que:

- Je ne l'ai fait qu'avec un son ".wav", car le ".mp3" ne fonctionne pas chez moi.
- Je n'ai mis qu'une action suite à un "Double-Click" car je suis infichu de me servir d'une Feuille.

Donc; à présent, une Double-click n'importe où lance le son.

Ceci dit, il y aurait plein de chose à faire avec une ListView.
- Sélection
- Ordre de passage
- Mise en Couleur de cette liste, ou des cellules concernées dans la feuille.

Amicalement,

Yann

Bonjour Yann
Je ne sais pas pourquoi mais chez moi avec Excel 2007, je ne peux pas lancer le lien..."message sécurité des macro"
A+