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

  • Initiateur de la discussion Initiateur de la discussion hobbit77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

hobbit77

Guest
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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
793
Retour