Hypertexte entre 2 colonnes et 2 feuilles
Bonjour,
voici une partie de la réponse (enfin peut-être...)
ActiveSheet.Hyperlinks.Add Anchor:=Range("B8"), Address:="", SubAddress:= _
"feuillenom!B15", TextToDisplay:="ACH3"où B8 est la cellule de départ et feuillenom!B15 est la cellule cible.
Reste à faire une boucle...
Seulement le problème c'est que si vous insérez une ligne (ou colonne) ou plus ou si vous en enlever, la référence reste B15 et du coup le lien tape "à coté".
La solution est de nommer les cellules cibles, hors les référence commence par des chiffres pour certaines, donc il faudrait nommer le cellules avec comme structure "_" + le nom de la nomenclature
exemple : associé 3TMOB1 avec sa jumelle sur la feuille 2 en nommant la cellule correspondante en : _3TMOB1
Et là pas de soucis le lien pointe sur la bonne cellule malgré l'ajout ou la suppression de ligne ou de colonne.
Un peu comme ça avec la deuxième feuille activée :
Range("B2").Select
ActiveWorkbook.Names.Add Name:="_ACH1", RefersToR1C1:="=feuillenom!R2C2"
Sheets("feuilletab").Select
ActiveSheet.Hyperlinks.Add Anchor:=Range("B2"), Address:="", SubAddress:= _
"_ACH1", TextToDisplay:="ACH1"Reste plus qu'à faire des boucles afin de mettre en variable les valeurs des cellules qui sont ici écrites en "dur"...
Bon courage et à bientôt
LouReeD
Re bonjour,
Ci joint le fichier avec le code !
Seul petit soucis, il ne fonctionne qu'en mode pas à pas, [F8] dans l'éditeur VBA d'Excel...
je ne comprend pas.
Boucle après boucle les liens se sont créés avec comme cible une cellule portant le même nom que la nomenclature précédé d'un underscor "_"
Si vous trouvez pourquoi en auto elle ne fonctionne pas, merci de me faire un signe.
@ bientôt
LouReeD