XL 2013 RollOver sur cell sans boucle peut on modifier le lien avec une liste(array en VBA)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
suite a une réponse qui a été donnée sur le forum avec un lien vers youtube
j'ai testé l'astuce et elle fonctionne
cependant je me demande si l'on peut pas remplacer la liste de ref par un array dans la fonction
en effet
voila l'astuce
  1. je fait une liste en A2:A8( j'en ai fait un tableau structuré mais c'est pas obligé)
  2. je vais prendre une cellule ailleurs et je vais lui donner le nom de Ref_cel
  3. je vais prendre une autre plage de même dimension que ma liste ayant les même valeurs
  4. dans la première cellule de cette plage je vais y mettre cette formule =SIERREUR(LIEN_HYPERTEXTE(getvalCel(B2));B2) et je l’étends sur les 7 lignes de cette plage
  5. dans un module standard je lui met cette fonction
VB:
Public Function getvalCel(nom_cellule As Range)
Range("Ref_Cel").Value = nom_cellule.Value
End Function

j'ajoute une mise en forme conditionelle à cette plage
1693920423995.png


et voila le resultat
demo.gif


donc sa fonctionne
j'ai bien l'impression que même si dans cette plage de reception ce n'est pas des liens , c'est bel et bien le fait qu'il y est la fonction lienhypertext qui fait le repeat et donc fait office d'event mouse move

deux questions

1° peut on dans ce contexte dans la fonction par exemple remplacer la plage liste originale par un array dans la fonctions
moyennant des modifs dans la formule utilisant l'indexage par la fonction ligne() par exemple sur un array

2° et remplacer la cellule D1 par un name
 

Pièces jointes

Dernière édition:
Bonjour le forum, bonjour @patricktoulon,

Je suis repartie sur un fichier bcp plus simple sur chaque feuille:
Avec la fonction Rollover et MsgBox:

Capture01.PNG

Le même avec la fonction Roolover et Worksheets.Activate:

Capture02.PNG

Les Msgbox apparaissent, mais pas de changement de feuille avec Worksheets.Activate.
Pourriez-vous m'aider à comprendre svp? Je crois que je vais laisser tomber ma présentation !!!
Merci par avance
PMG
 

Pièces jointes

oui je l'ai constater moi aussi
il faudra que je reprenne ce projet car me semble t il même dans le fichier démo dans les ressources je n'ai pas de soucis
est ce par ce la cellule de ref n'est pas dans la même feuille ou quoi qu'est ce
Re
J'ai essayé avec la cellule de ref ds la même feuille et pas de changement.
Par contre sur les deux fichiers, si clic droit à la souris ça marche...
En tout cas merci pour ton retour, je vais mettre ça de côté pour l'instant!!
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour