Création Lien hypertexte

Fermé
Michest94 Messages postés 82 Date d'inscription mardi 8 septembre 2020 Statut Membre Dernière intervention 8 août 2021 - 3 nov. 2020 à 19:36
Michest94 Messages postés 82 Date d'inscription mardi 8 septembre 2020 Statut Membre Dernière intervention 8 août 2021 - 4 nov. 2020 à 09:06
https://mon-partage.fr/f/zT24inAx/

Bonjour,

Ci joint un fichier pour exemple de ce que je souhaite appliquer dans mon projet.

Visuellement je pense que cela sera plus explicite plutôt que du javanais .

Merci,

Mon besoin concerne que la partie lien hypertexte pour les images c'est bon .
A voir également:

1 réponse

Michest94 Messages postés 82 Date d'inscription mardi 8 septembre 2020 Statut Membre Dernière intervention 8 août 2021 1
4 nov. 2020 à 09:06
Bonjour,
Je vais tenter d'argumenter mon fichier exemple ( pas toujours simple à expliquer )
Dans mon projet réel j'ai une feuille nommée Documentations qui renvoie pas mal de visuels pour lesquels je compte lié des liens hypertexte afin d'avoir les docs originaux à dispo. pour les utilisateurs.
A travers mon exemple j'essaie de reproduire le principe.( j'ai numéroté des colonnes et des lignes pour mes explications )
La partie de gauche 'AVANT' représente la feuille à l'état initial, avec en colonne A5 à A14 les éléments déclencheurs, ce qui donne en partie droite 'APRES' le résultat souhaité.
Exemple: quand je clique sur la cellule A5 je souhaite afficher en C4 le lien hypertexte correspond à la cellule A5 qui permettra de faire le lien vers le fichier original correspondant. Concernant l'affichage de l'image ceci est déja OK.Par la ligne de code ci-dessous.
'Declencheur Visuel

If Not Intersect(Target, Range("A5")) Is Nothing Then
Feuil1.Document1.Picture = LoadPicture("F:\01_DD\01_R&I\01_A-INSTALL\01_P&P\04_Sup_tech\03 - Cahier de maintenance\Docs\ReseauVPN.pdf")
ActiveWindow.ScrollRow = 8
End If

Dans la partie gauche de l'exemple j'ai mis les différents cas possible de mon résultats.
En espérant que mes explications soient un peu plus claire et pourrez me proposer une solution.

Mon projet étant à but professionnel arrive à sa fin (sauf idée de dernière minute) je remercie principalement tous ceux qui m'ont aidés à le réalisé petit bout par petit bout. (page authentification, gestion base de données, compteurs de visites + gestion, formulaire d'avis et j'en passe ...)
Je sort excel un peu de son contexte en réalisant un cahier de maintenance mais je suis très satisfait du résultat.

Merci,
0