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
je fait une liste en A2:A8( j'en ai fait un tableau structuré mais c'est pas obligé)
je vais prendre une cellule ailleurs et je vais lui donner le nom de Ref_cel
je vais prendre une autre plage de même dimension que ma liste ayant les même valeurs
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
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
et voila le resultat
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
Public Function RollOverX(X As Long)
Range("Ref_Cel").Value = Application.Caller.Value
' OU
Names("Ref_X").Value = Application.Caller.Value
End Function
Attention tu y a mis un virgule au lieu d'un point :
re ton tableau1 ne peut pas fonctionner
tu utilise le nom Rollover1 pour la cellule et c'est aussi le nom de ma première fonction
d'ailleurs on voit bien que c'est le numero de ligne qui change dans la cellule et non la valeur de la cellule survollée
Public Function RollOverX(X As Long)
Range("Ref_Cel").Value = Application.Caller.Value
' OU
Names("Ref_X").Value = Application.Caller.Value
End Function
re ton tableau1 ne peut pas fonctionner
tu utilise le nom Rollover1 pour la cellule et c'est aussi le nom de ma première fonction
d'ailleurs on voit bien que c'est le numero de ligne qui change dans la cellule et non la valeur de la cellule survollée
bon j'ai fait le ménage
j'ai supprimer ma feuille exemple
j'ai supprimer le names inutiles en doublons avec la fonction
j'ai supprimé le module de mes fonctions
bref je n'ai gardé que le tiens
dans rollover1 tu utilise "Row"
ben dans la formule MFC il faut que tu l'utilise aussi c'est évident
donc si
VB:
Function RyuRollOver1()
Range("RollOver1").Value = Application.Caller.Row
End Function
ben la formule dans la MFC doit fonctionner avec le numero de ligne et non la valeur
bon j'ai fait le ménage
j'ai supprimer ma feuille exemple
j'ai supprimer le names inutiles en doublons avec la fonction
j'ai supprimé le module de mes fonctions
bref je n'ai gardé que le tiens
dans rollover1 tu utilise "Row"
ben dans la formule MFC il faut que tu l'utilise aussi c'est évident
donc si
VB:
Function RyuRollOver1()
Range("RollOver1").Value = Application.Caller.Row
End Function
Pourquoi double corrections ? j'avais tout corriger pour le tient et le mien
et y pas de doublon entre le tiens et le miens car la façon d'insérer les donnée son différentes aussi (titi etc …)