liens hypertexte en fonction d'une donnée d'entrée

hobbit77

XLDnaute Nouveau
Bonjour,
est il possible, Celon le contenu de 2 cases d'un tableau, que le lien hypertexte de la case suivante me dirige dans des pages differentes.
Est ce possible ? Y a t'il un autre moyen pour y parvenir ?

Mais le fichier excel ce dessous sera plus explicite...
 

Pièces jointes

  • lien hypertexte.xls
    16.5 KB · Affichages: 47
  • lien hypertexte.xls
    16.5 KB · Affichages: 47
  • lien hypertexte.xls
    16.5 KB · Affichages: 48

myDearFriend!

XLDnaute Barbatruc
Re : liens hypertexte en fonction d'une donnée d'entrée

Bonsoir hobbit77,

Ci-joint une solution par VBA.

J'ai utilisé le code ci-dessous dans le module de code de la Feuil1.
Code:
[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Change([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range)
[COLOR=green]'myDearFriend! - Août 2006[/COLOR]
      [COLOR=navy]If Not [/COLOR]Application.Intersect(Target, Range("B4:C4"))[COLOR=navy] Is Nothing Then[/COLOR]
            [COLOR=navy]With[/COLOR] Range("D4").Hyperlinks(1)
                  .[COLOR=navy]Sub[/COLOR]Address = Range("B4").Text & "!A" & Range("C4").Text
                  .TextToDisplay = Range("B4").Text & "-" & Range("C4").Text
                  .ScreenTip = "Feuille " & Range("B4").Text & " et " & "Ligne " & Range("C4")
            [COLOR=navy]End With[/COLOR]
      [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]
Comme tu n'indiques pas quelle combinaison permettra d'accéder à telle ou telle feuille, j'ai imaginé pour l'exemple que la cellule B4 correspondrait à un nom de feuille et la cellule C4 à un numéro de ligne...

Cordialement,
 

Pièces jointes

  • mDF_lien hypertexte.zip
    11.5 KB · Affichages: 36

Discussions similaires

Réponses
3
Affichages
462

Statistiques des forums

Discussions
312 300
Messages
2 087 018
Membres
103 433
dernier inscrit
nicolaseuropa