Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Fichier URL à transformer en lien URL

ChantalTreize

XLDnaute Occasionnel
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
 

Pièces jointes

  • Fifchier test url.xlsx
    10.4 KB · Affichages: 7

gbinforme

XLDnaute Impliqué
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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…