Microsoft 365 déplacer lien hypertexte

philsogood · Mercredi à 10:41

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 · Mercredi à 11:25

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 :

VB:

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 · Jeudi à 10:16

@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

Microsoft 365 déplacer lien hypertexte

philsogood

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

philsogood

XLDnaute Junior

Discussions similaires

Microsoft 365 déplacer lien hypertexte

philsogood

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

philsogood

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency