Lien clicable dans formulaire

Bonjour

Dans le doc joint, un USF avec un label clicable (pointe vers la cellule A1)

Private Sub Lien_Click()
    Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Private Sub UserForm_Initialize()
    Me.Lien = [A1]
End Sub

Si je remplace A1 par A5 de la feuille 2, le lien ne me renvoies pas du tout vers la page demandée ... (pourtant le lien demandé fonctionne très bien lui ...). C'est parce que c'est une formule ? Je m'arrache les cheveux avec ça depuis hier soir

Si vous avez une solution ...

Merci d'avance

Bonjour,

Si je remplace A1 par A5 de la feuille 2

Et comment ? Donc ? Cela ne figure pas dans ton fichier !

Ben dans le fichier, j'ai mis ce qui marchait, désolé

C'est vrai, j'aurais pu mettre un second label qui n'ouvre pas le lien qui pointe lui pourtant vers un lien qui fonctionne ...

Je fais la modif' tout à l'heure si vous le souhaitez.

Merci

Tu poses une question sur une commande qui ne fonctionne pas en soumettant celle qui fonctionne !

Comment veux-tu qu'on voit pourquoi elle ne fonctionne pas si elle est absente ! ?

Bon désolé ...

Ci-joint le fichier et le formulaire avec en haut le label cliquable qui fonctionne, en bas celui qui ne fonctionne pas.

Je précise que le lien en A5 (feuille 2) amène bien sur la page web désirée (Google maps avec localisation précise)

Merci d'avance

Private Sub Label1_Click()
    With Sheets("Feuil2")
        .Hyperlinks.Add .Range("A5"), .Range("A5").Value
        .Range("A5").Hyperlinks(1).Follow 'NewWindow:=False, AddHistory:=True
    End With
End Sub

Le lien n'est pas dans la cellule, c'est une formule qui le renvoie. Il faut donc d'abord créer le lien pour pouvoir l'activer.

Cordialement.

Super MFerrand, c'est parfait comme d'habitude

Merci beaucoup et bonne aprèm'

Cordialement

Une dernière petite chose

J'essaie depuis cet après-midi de faire apparaitre à la place de cet affreux http://maps.google.fr/maps?f=q&hl=fr&q=254 rue Michel Teule,+34184,+MONTPELLIER un autre texte du type AFFICHER PLAN mais sans succès.

Je n'arrive pas à me servir de

TextToDisplay:="AFFICHER LE PLAN"

Merci d'avance

Bonjour,

En aménageant ainsi :

Private Sub Label1_Click()
    Dim txtd$
    txtd = "Afficher plan"
    With Sheets("Feuil2")
        If Label1.Caption <> txtd Then
            .Hyperlinks.Add .Range("A5"), .Range("A5").Value, , , txtd
            .Range("A5").Value = txtd: Label1.Caption = txtd
        End If
        .Range("A5").Hyperlinks(1).Follow
    End With
End Sub

Cordialement.

bonjour et merci, c'est parfait