Amélioration du code survol liste Résolu/Fermé

Question

Bonjour a tous, forum bonjour,

Configuration: Windows 7 / EI11.0

Le petit code qui me donne du soucis est disponible sur le lien ci-dessous.

http://www.cjoint.com/c/FKghkwrglaz

Renommer si besoin comme ci-dessous, le fichier fonctionne bien.

Change couleur texte au passage de la souris.xlsm


Le programme affiche une liste de vidéos en colonne (A) 

Les noms de cette liste change de couleur au passage où survol de la souris

Lorsque l'on sélectionne une vidéo, celle ci est charger et devient visible avec le multimédia de Windows 7 32 bits, le programme est en cours.

Pour avoir l'affichage qui change en rouge, il fallu en (mode création ajouter un CommandBoutton) qui sert de masque rendu transparent et que j'ai superposer sur la liste en colonne (A)

La liste ne va pas s'arrêter là et c'est là que ca va plus, quand je déplace le curseur de la souris sur la liste les noms changent bien de couleur mais plus on descends dans la liste on peux voir que le curseur se décale par rapport a la liste.

En haut de liste la souris corresponds bien avec le nom en ligne 1 puis plus on descends là ca commence se décaler doucement puis de plus en plus d'écart.

Donc, Je ne sais pas si c'est a cause du masque CommandBoutton mais je demande comment faire pour descendre plus bas en ligne 4000 et rester syncro souris / liste ???

Je vous souhaite un agréable dimanche a tous et merci pour votre aide.

Cdlt

Patrice33740 · Answer

Bonjour,

Une autre approche :
https://www.cjoint.com/c/FKgoGKQZlbY

Patrice33740 · Answer

Re,

Pour ne pas avoir le message, il ne faut pas créer le lien (et donc tu ne pas ouvrir le fichier via le lien) :
Public Function SiSurvolCellule(n°L, n°C)
Dim lien As String
  With ActiveSheet
    .Columns(n°C).Interior.ColorIndex = xlNone
    .Cells(n°L, n°C).Interior.ColorIndex = 4
  End With
End Function
Et ouvrir le fichier via Worksheet_SelectionChange 

Les n°C et n°L sont envoyés à la fonction SiSurvolCellule par les fonctions LIGNE() et COLONNE()) via les formules de chaque cellule de la liste des films :
=SIERREUR(LIEN_HYPERTEXTE(sisurvolcellule(LIGNE();COLONNE());"film.avi");"film.avi") Elles permettent d'identifier la position de la cellule à colorer

vieuxray · Answer

Salut Patrice,

Merci pour les infos et le code modifier, c'est gentil a toi.

Bon ca fonctionne mais la version hyperlien me plait bien, c'est envoi du film direct au lecteur multimédia. 

Malgré l'affichage de cette bulle infos, qui n'ai pas trop gênant mais ca manque de discrétion.

Je vais adapter a mon code puis je verrai si ca me va ou pas.

Je te souhaite un bon début de semaine, une bonne journée a toi et encore grand merci pour ton savoir partager.

Cordialement
Raymond

Patrice33740 · Answer

Bonjour,

Pour entendre la barre sur 3 colonnes, il suffit de modifier SiSulvolCellule :
Public Function SiSurvolCellule(n°L, n°C)
Dim lien As String
  With ActiveSheet.Cells(n°L, n°C)
    .Resize(1, 3).EntireColumn.Interior.ColorIndex = xlNone
    .Resize(1, 3).Interior.ColorIndex = 4
    lien = "D:/Répertoire des films/" & .Value
    SiSurvolCellule = lien
  End With
End Function

Mais il n'est pas possible d'étendre sur les 3 colonnes le lien hypertexte créé par formule, le changement de couleur continue de s'effectuer au survol du texte de la colonne A. 
Cordialement
Patrice

vieuxray · Answer

Salut Patrice,

Merci pour ta réponse et pour la modification, ca fonctionne bien.

Mais il n'est pas possible d'étendre sur les 3 colonnes le lien hypertexte créé par formule, le changement de couleur continue de s'effectuer au survol du texte de la colonne A. 

Et pour cette réponse c'est très bien comme ca, nickel.

Par contre est 'il possible de ne pas faire apparaitre voir svp la photo sur le lien ci dessous.

je souhaiterai que lorsque je clic sur un titre que le nom s'affiche en D5 ca c'est fait et que le film se lance directement sans l'affichage des deux bulles
et revenir a la liste quand le lecteur multi média se ferme (fin du film)

http://www.cjoint.com/c/FKikbQbUegz

Quand tu a le temps rien ne presse et si cela reste possible bien sur.

Une bonne journée a toi et grand merci a toi pour l'aide que tu m'apportes.

Cordialement Raymond

vieuxray · Answer

Re Patrice,

Merci pour ta réponse et pour le lien

j'ai lu sur le lien, interressant je connais pour éventuellement modifier le registre, juste être attentif afin d'éviter la cata.

je revois ca plus tard si ca s'avère vraiment utile.

A partir du moment ou je clic sur un titre ca l'affiche en D5 ok

et se charge pour lecture du film par le lecteur Windows.

Comment fait tu svp a partir du clic pour envoyer le film vers le lecteur.

A plus tard et merci a toi.

Cdlt Raymond

vieuxray · Answer

Salut Patrice

Merci pour la réponse, 

Je verrai a l'usage si cela est gênant auquel cas je regarderai le registre en suivant tes conseils et le lien proposer.

je continue d'avancer sur ce programme, pour l'instant ca va bien, hum bon
c'est pas gagner quand même.

Merci pour ton aide bonne journée a toi

Cdlt Raymond

Amélioration du code survol liste

7 réponses

Discussions similaires