XL 2016 lien hypertexte

JEFF77 · 4 Mai 2020

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.

sylvanu · 4 Mai 2020

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 · 4 Mai 2020

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+

JEFF77 · 4 Mai 2020

bonsoir silvanu ,job75

🙂😵

super vraiment se que je voulais faire .

un grand merci à vous 2.

passez une bonne soirée.

XL 2016 lien hypertexte

JEFF77

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

JEFF77

XLDnaute Occasionnel

Discussions similaires

XL 2016 lien hypertexte

JEFF77

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

JEFF77

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency