Recherche de liens Hypertexte dans un tableau pour une seule cellule

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Avril 2011

• #2

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Avril 2011

• #3

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

Re,

voici la solution par macro

à+
Philippe

 

Pièces jointes

• 111.xls

  48.5 KB · Affichages: 113
• 111.xls

  48.5 KB · Affichages: 103
• 111.xls

  48.5 KB · Affichages: 121

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Avril 2011

• #4

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 ) :

Code:

=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

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 20 Avril 2011

• #5

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 ?

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 20 Avril 2011

• #6

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.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Avril 2011

• #7

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

Cliquez pour agrandir...

remplace le code par celui-ci:

Code:

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

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 20 Avril 2011

• #8

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.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Avril 2011

• #9

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

Re

DoudouNours à dit:

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.

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

D

DoudouNours

XLDnaute Junior

• 20 Avril 2011

• #10

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.

 

Vote positif 0 Vote négatif