Microsoft 365 Fichier URL à transformer en lien URL

M12

XLDnaute Accro

• 29 Juillet 2021

• #2

Bonjour,
Un test avec la fonction LIEN_HYPERTEXTE

 

Pièces jointes

• Fifchier test url.xlsx

  11.8 KB · Affichages: 6

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 29 Juillet 2021

• #3

Bonjour,

Avec cette petite macro :

VB:

Sub cre_lien()
Dim cel As Range
    With ActiveSheet.UsedRange
        For Each cel In .Cells
            If Left(cel.Value, 4) = "http" Then
                cel.Hyperlinks.Add Anchor:=cel, Address:=cel.Value, TextToDisplay:=cel.Value
            End If
        Next cel
    End With
End Sub

 

Pièces jointes

• Fichier test url.xlsm

  18.2 KB · Affichages: 2

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 29 Juillet 2021

• #4

M12 à dit:

Bonjour,
Un test avec la fonction LIEN_HYPERTEXTE

Cliquez pour agrandir...

Un grand merci ça fonctionne très bien
Chantal

 

Vote positif 0 Vote négatif

C

ChantalTreize

XLDnaute Occasionnel

• 29 Juillet 2021

• #5

Un grand merci aussi ça fonctionne très bien
Chantal

 

Vote positif 0 Vote négatif