Lien hypertexte dans Excel

Résolu
jvortex Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai sous Excel une cellule A1 qui a comme valeur "page1"
et une autre A2 qui est un lien internet vers la page "https://www.page1.fr/" cette cellule est donc fonction de la premiere (=concatener("http://www.";A1;".fr")
Le texte se met bien à jour si je change A1 mais pas le lien hypertexte! Comment faire en sorte que le texte et le lien soient en accord?

Merci

4 réponses

Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
 
Bonjour jvortex,

As-tu vérifié que Excel est en calcul automatique ?

0
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
 
Effectivement, une simple concaténation ne suffit pas. Ajoute ce bout de code dans le module de code de la feuille où se trouve le lien.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(True, True) = "$A$1" Then
        Call Module1.MAJ_Lien
    End If
End Sub

Private Sub MAJ_Lien()
    With Range("B1")
        .Hyperlinks(1).Address = "http://www." & Range("A1").Value & ".com/"
        .Hyperlinks(1).TextToDisplay = "http://www." & Range("A1").Value & ".com/"
    End With
End Sub

ainsi, chaque fois que le contenu de la cellule A1 va changer, le lien sera rafraîchi.
0
jvortex Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Ok merci Kobaya

J'ai fais a peu prés çà !Ton commentaire m'a donner l'idée une solution à mon avis la plus simple
Dans excel j'ai donc une cellule A1 qui a comme valeur "page1"
et une autre A2 qui est =concatener("http://www.";A1;".fr")
et j'ai une celluel A3 qui est =lien_hypertexte(A2)
Donc de cette façon le lien se met bien à jour!!
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Tu peux simplifier ta procédure en mettant directement en A2 et le lien se met à jour :
=LIEN_HYPERTEXTE("http://www."&A1&".fr")
ou même
=LIEN_HYPERTEXTE("http://www."&A1&".fr";"Ma page "&A1)
0