Recherche de liens Hypertexte dans un tableau pour une seule cellule

[DoudouNours]

Bonjour ou bonsoir à tous.

J'ai beau chercher dans le forum, je ne trouve pas pour autant.

Mon problème est simple à expliquer. (fichier joint)

J'ai un tableau dans lequel se trouve le code des articles, leur désignation, et leur lien hypertexte différents approprié à chacun(actuellement des liens vers d'autres pages)

Au dessus du tableau, un module de recherche.
Si, dans la case B2, on rentre le code d'un article 'ex:"1", alors dans la cellule C2 sa désignation s'affiche bien, mais dans la cellule D2 je n'arrive pas à faire en sorte que le lien_hypertexte approprié du code article fonctionne et que le nom du lien s'affiche aussi.

Auriez vous une suggestion pour inscrire une bonne formule dans la Cellule D2 qui correspondrait à ma demande.

D'avance, merci
David

 

[phlaurent55]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Bonjour David

avec cette formule en D2
=LIEN_HYPERTEXTE(DECALER(D8;EQUIV(C2;C8:C10;0)-1;;)
.............. mais ça ne résout pas ton problème, il vaut mieux passer par une macro

à+
Philippe

 

[phlaurent55]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Re,

voici la solution par macro

à+
Philippe

 

[JNP]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Bonsoir Doudounours et bienvenue, salut Philippe ,
Par formule (en repartant de celle de Philippe ) :

=LIEN_HYPERTEXTE("[Recherche de liens Hypertexte.xlsx]"&DECALER(D8;EQUIV(C2;C8:C10;0)-1;;;)&"!A1";DECALER(D8;EQUIV(C2;C8:C10;0)-1;;;))

Bonne soirée

 

[DoudouNours]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Merci Phillipe, et même si je ne connais pas VBA, c'est bien cool ce que tu m'a trouvé.

Toutefois, serais-tu faire en sorte que lorsqu'on rentre "1" dans la cellule B2, le lien ne s'active pas immédiatement afin d'avoir le temps de voir apparaitre la désignation dans la cellule C2 et seulement si on clique dans la cellule D3 le lien fonctionnera. Par contre plus tard, mes liens seront des fichiers sur DD, des pdf.

Crois-tu que cela reste possible ?

 

[DoudouNours]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Merci JNP car ta solution en partant de celle de Phillipe est, à un détail près, parfaite par rapport à ce que je recherche. Effectivement je souhaite au final que ces liens deviennent des liens vers des fichiers PDF sur DD et je ne vois pas trop ou je peux coller mon liens dans cette formule.
Je t'en pris, peut-tu m'aiguiller.

 

[phlaurent55]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Re, bonjour Jean-Noêl

Toutefois, serais-tu faire en sorte que lorsqu'on rentre "1" dans la cellule B2, le lien ne s'active pas immédiatement afin d'avoir le temps de voir apparaitre la désignation dans la cellule C2 et seulement si on clique dans la cellule D3 le lien fonctionnera

remplace le code par celui-ci:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("D2")) Is Nothing Then
Select Case [D2]
Case "A"
Sheets("A").Select
Case "B"
Sheets("B").Select
Case "C"
Sheets("C").Select
End Select
End If
End Sub

après avoir fait le choix en B2, il suffit de cliquer-droit en D2 pour activer la macro

à+
Philippe

 

[DoudouNours]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Merci bien phlaurent55.
Penses-tu que l'on puisse faire la même chose avec des liens vers des fichiers PDF sur Disque dur au lieu des liens interne comme actuellement.

 

[JNP]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Re

Effectivement je souhaite au final que ces liens deviennent des liens vers des fichiers PDF sur DD et je ne vois pas trop ou je peux coller mon liens dans cette formule.

Détail qui nous aurait, à Philippe et à moi, permis d'éviter de perdre du temps ...
Par formule, là, je ne crois pas (je n'ai pas trouvé de formule permettant de lire le lien hypertexte d'une autre cellule...).
Par VBA, simplement

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Target.Address <> "$B$2" Then Exit Sub
Set Cellule = Range("B8:B35000").Find(Range("B2"), lookat:=xlWhole)
If Not Cellule Is Nothing Then Range("D" & Cellule.Row).Copy Range("D2")
End Sub

Bonne soirée

 

[DoudouNours]

Re : Recherche de liens Hypertexte dans un tableau pour une seule cellule

Je pensais l'avoir écrit mais je ne l'ai que pensé.

Parfait messieurs, je vous remercie.