Microsoft 365 Fichier URL à transformer en lien URL

[ChantalTreize]

Bonjour tout le monde,
J'ai reçu un fichier de 22000 adresse URL le souci c'est que aucune de ces adresses ne sont en lien URL pour que je n'ai plus qu'a cliquer dessus pour voir le lien
à chaque URL je faire entrée dans la barre de formule pour les validées
Vu la quantité existe t'il moyen pour toutes les valider d'un coup
Ci- joint un extrait du fichier
Par avance Merci
Chantal

 

[M12]

Bonjour,
Un test avec la fonction LIEN_HYPERTEXTE

 

[gbinforme]

Bonjour,

Avec cette petite macro :

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

 

[ChantalTreize]

Bonjour,
Un test avec la fonction LIEN_HYPERTEXTE

Un grand merci ça fonctionne très bien
Chantal

 

[ChantalTreize]

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