Microsoft 365 déplacer lien hypertexte

[philsogood]

hello
j'ai récupéré des données depuis internet où certains termes contiennent un lien hypertexte qui renvoie vers le web
c'est super pratique sauf que le lien se retrouve sur la mauvaise cellule
j'aurai souhaité que le lien soit dans la deuxième colonne (et à terme effacer la première colonne) mais je ne sais aps comment déplacer le lien hypertexte de la première colonne vers la deuxième, sauriez vous me dire comment faire?
Phil

 

[sylvanu]

Bonjour philsogood,
Je ne sais le faire qu'en VBA.
Je change l'intitulé du lien par le texte de la colonne B, puis supprime la colonne B avec :

Sub DéplacerLien()
Dim L%: L = 1
Application.ScreenUpdating = False
If IsNumeric(Range("A1")) = False Then  ' Vérification si l'opération a déjà été effectuée
    MsgBox "Déjà fait": Exit Sub
End If
While Cells(L, "A") <> ""
    ActiveSheet.Hyperlinks(Cells(L, "A")).TextToDisplay = Cells(L, "B") ' Remplacement texte
    L = L + 1
Wend
Columns("B:B").Delete Shift:=xlToLeft   ' Suppression colonne B
End Sub

 

[philsogood]

@sylvanu t'es mon idôle!! =)
c'est vraiment super de savoir programmer en VBA... mais tellement d'autres sujets à voir d'ici là!! :/
Phil