Création par VBA de lien Hypertexte

Le 02/09/2015 à 23:19

Bonjour,

ci-joint un fichier Excel qui permet de créer des liens hypertexte en nommant des cellules automatiquement.

Petit soucis que je ne comprend pas :

lorsqu'on lance la macro par le bouton, le premier lien est créé correctement, mais à partir du deuxième, tout ce qui est "présentation" du lien fonctionne mais le lien en lui-même n'est pas fonctionnel.

Ca peut arriver, une erreur de programmation, mais le hic c'est que si je "déroule" la procédure en pas à pas, alors là tous les liens fonctionnent !

J'ai mis des temporisations au cas où le code aille trop vite par rapport à Excel , mais bien évidemment ça n'a servit à rien !!!

Auriez vous une idée sur cette affaire ?

Merci par avance

@ bientôt

LouReeD

40creation-de-lien-hypertexte.xlsm (20.08 Ko)

Le 03/09/2015 à 01:56

Inexplicable !!

Remplace :

ActiveWorkbook.Names.Add Name:="_" & Valeur_Cherchee, RefersToR1C1:="=" & Sheets(2).Name & "!R" & Trouve.Row & "C" & Trouve.Column & ""

par ceci :

Sheets(2).Range("B" & Trouve.Row).Name = "_" & Valeur_Cherchee

pour les explications du pourquoi du comment, je suis sec !

Le 03/09/2015 à 05:38

Bonjour et MERCI !!!!

en effet inexplicable !!! le pas à pas fonctionne mais pas le déroulé classique !!!!

En somme votre solution (LA solution !) est : on nome la cellule "match" de la feuille 2, puis on crée un lien pointant sur elle, alors que le code précédent créé un NOM avec comme référence la cellule "Match"...

Bien vu !

Par contre la différence entre pas à pas et fonctionnement normal....

Merci encore, j'ai encore du chemin à faire dans la programmation, je veux dire que tous les chemins mènent à Rome mais il faut savoir prendre des routes secondaires. Dans ce cas le fait de nommer une cellule directement "dans la cellule" à permis de contourner cette étrangeté de fonctionnement du code.

@ bientôt

LouReeD

Le 03/09/2015 à 05:55