Comment copier uniquement un lien hypertexte d'une cellule à une autre dans Excel ?
Supposons que j'ai une liste de valeurs dans la colonne A et que chaque cellule contient un lien hypertexte différent. Maintenant, je souhaite copier uniquement les liens hypertexte sans le texte vers une autre colonne E, comme le montre la capture d'écran suivante. Il se peut qu'il n'y ait pas de solution directe pour accomplir cette tâche dans Excel, mais ici, je peux vous présenter un code VBA pour y parvenir.
Copier un lien hypertexte d'une cellule à une autre avec un code VBA
Copier un lien hypertexte d'une cellule à une autre avec un code VBA
Pour copier uniquement les adresses des liens hypertexte sans le texte vers d'autres cellules, le code suivant peut vous aider, veuillez procéder comme suit :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du Module.
Code VBA : copier uniquement un lien hypertexte d'une cellule à une autre :
Sub CopyHyperlinks()
'Uodateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim I As Integer
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Count
If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
If xSRg(I).Hyperlinks.Count = 1 Then
xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
End If
End If
Next
End Sub3. Appuyez ensuite sur la touche F5 pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les cellules dont vous souhaitez copier uniquement les liens hypertexte, voir capture d'écran :
4. Cliquez ensuite sur OK, puis sélectionnez les cellules où vous souhaitez coller uniquement les liens hypertexte dans une autre boîte de dialogue, voir capture d'écran :
5. Les adresses des liens hypertexte ont été copiées des cellules d'origine vers les cellules spécifiées selon vos besoins, voir capture d'écran :
Remarque : Ce code peut également vous aider à copier les liens hypertexte d'une feuille à une autre selon vos besoins.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels