Liens hypertexte

Bonjour a toutes et tous,

Je reviens vers vous car j'ai une petite question que je n'arrive pas à résoudre.

Dans le code ci dessous:

Private Sub ListBox1_dblClick(ByVal Cancel As MSForms.ReturnBoolean) ' au double clic '
    Sheets("Recherche").Range("cel_symbole") = ListBox1.List(ListBox1.ListIndex, 1) 
    Dim lig
    With Sheets("Base de données") 
lig = Application.Match(Range("cel_symbole"), .Columns("B"), 0)
If IsError(lig) Then
  Exit Sub
End If
Sheets("recherche").Range("J9") = .Cells(lig, "G")
End With
       If Sheets("recherche").Range("F2") = "Commentaire disponible" Then 
    Sheets("recherche").Visu_commentaire.Visible = True
    Else
    Sheets("recherche").Visu_commentaire.Visible = False
    End If
   Unload Me
   End Sub

Sur la ligne du code en surbrillance, je renvois la valeur de la colone "G" sur ma feuille "recherche" en cellule "J9".

Jusque la tout fonctionne!

Sauf que la valeur à renvoyer est un lien hypertexte, et que, tel que le code est écrit, seul le texte est renvoyé pas le liens.

Quelqu'un aurait il une solution à me proposer?

Je vous remercie d'avance.

Bonjour cos81.

Remplace ta ligne de code en surbrillance par

.Cells(lig, "G").copy
ActiveSheet.Paste Destination:=Worksheets(recherche").Range("J9")

celà devrait fonctionner.

Cdlt

Bonjour Bigdaddy154,

Merci beaucoup, c'est exactement je ce que je voulais. C'est tout simple!! Fallait juste le savoir!!

J'ai juste encore une petite question. Si je veux le résultat de la cellule d’à coté, comment je peux faire?

Je m'explique, toujours pour cette ligne:

.Cells(Lig, "G").Copy
ActiveSheet.Paste Destination:=Worksheets("recherche").Range("J9")

si je ne veux pas obtenir la valeur de la cellule colonne G, mais plutôt une cellule a coté (en théorie la colonne H, mais c'est pas si simple...)

J'ai vu ici et la "offset 0,1".

Bref comment puis je faire pour obtenir la valeur d’à coté?

Merci encore

Tout à fait offset est l'instruction qu'il te faut.

    
*.Cells(Lig, "G").offset(0,1).Copy
ActiveSheet.Paste Destination:=Worksheets("recherche").Range("J9")

Cdlt

Merci, c'est sympa!!

Bonne continuation a toi.