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

[patricktoulon]

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

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

2° et remplacer la cellule D1 par un name

 

[RyuAutodidacte]

tr
non ca ne fonctionne pas
Regarde la pièce jointe 1178076

je te l'ai fait sur le 2ème tableau, ton fichier modifier :

 

[patricktoulon]

re
c'est bon ne te tracasse pas j'ai trouvé
en fait c'est beaucoup plus simple que ça
dans mes formules MFC il fallait que j'enlève des dollars

 

[RyuAutodidacte]

dans mes formules MFC il fallait que j'enlève des dollars

 

[RyuAutodidacte]

On a fini par y arriver à faire un truc de sympa

 

[patricktoulon]

ben oui tu en doutais
je vais maintenant faire un classeur avec ta méthode et tes formules MFC
et les deux miennes avec leur formule MFC et faire un TOTOriel
à moins que tu veux t'y coller

 

[RyuAutodidacte]

C'est ton truc les TOTOriels

T h e E n d

 

[patricktoulon]

dégonflé!!!

 

[RyuAutodidacte]

dégonflé!!!

on peut le faire ensemble si tu veux pas de souci … …

 

[RyuAutodidacte]

dégonflé!!!

 

[patricktoulon]

ok
on voit ça demain je te prépare un classeur avec mes deux méthodes tu y rajoutera ta feuille et tes methodes
on fera les comment ensuite

 

[TooFatBoy]

Hopla !

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

je croix ta pas tous piger ces biens plus fort queue sa
sa fais event mouse move sans meme mover la mouse trop for

 

[patricktoulon]

re
voila le classeur

ajoute y une page et met y ta méthode

 

[patricktoulon]

Bonjour Ryu
et ça nous offre d'autre possibilités aussi

 

[RyuAutodidacte]

Hello Patrick

J'ai testé une autre possibilité, qu'en penses tu ?

=SIERREUR(LIEN_HYPERTEXTE("";GetAnnee());"ACTIVÉS")

Function GetAnnee()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name And ws.Name <> "LIST" Then
            ws.Range("E1:G1").Interior.Color = -1
            ws.Range("G1").Font.ColorIndex = 2
        Else
            Range("E1:G1").Interior.Color = 65535
            Range("G1").Font.ColorIndex = 3
            Names("AN").Value = [A2].Value
        End If
    Next
    'MsgBox "UPDATE DES JOURS FERIÉS"
End Function

 

[patricktoulon]

bonjour ryu
envoie le fichier