XL 2016 lien hypertexte

JEFF77

XLDnaute Occasionnel
bonjour à tous

je viens vous sollicitez pour un fichier qui me pose problème.
tout ce passe dans le formulaire de recherche.
quand je fais fait une recherche D4 toutes les infos sont bien récupérées , mais en D6 il copie bien le lien hypertexte mais ne renvoi pas sur
la page internet obligé de cliquer plusieurs fois dessus.
lorsque je le fais dans l'onglet "source" le renvoi se fait bien .
j’espère avoir été clair .

Merci d'avance.
 

Pièces jointes

  • compte.xlsm
    43.8 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Jeff,
Le résultat semble correct en mettant dans D6 directement un lien hypertexte :
VB:
        If Range("d4") = Sheets("Source").Range("a" & ligne) Then
            Site = Sheets("Source").Range("b" & ligne)
            ActiveSheet.Hyperlinks.Add Anchor:=Range("D6"), Address:="http:\\" & Site, TextToDisplay:=Site
            Range("d8") = Sheets("Source").Range("c" & ligne)
            Range("d10") = Sheets("Source").Range("d" & ligne)
            Range("d12") = Sheets("Source").Range("e" & ligne)
            Exit Sub
        End If
 

job75

XLDnaute Barbatruc
Bonjour JEFF77, sylvanu,

Pour D6 il faut quand même vérifier qu'il y a bien un lien hypertexte à copier :
VB:
            With Sheets("Source").Range("b" & ligne)
                If .Hyperlinks.Count Then
                    Range("d6").Hyperlinks.Add Range("d6"), .Hyperlinks(1).Address, , , .Text
                Else
                    Range("d6").Font.ColorIndex = xlAutomatic
                    Range("d6").Font.Underline = xlUnderlineStyleNone 'aucun soulignement
                    Range("d6") = .Text
                End If
            End With
A+
 

Pièces jointes

  • compte(1).xlsm
    42.3 KB · Affichages: 7
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 997
Membres
101 861
dernier inscrit
Jerem28630