Comment modifier plusieurs chemins d'hyperliens à la fois dans Excel ?

Pour une certaine raison, vous pourriez créer plusieurs hyperliens pour vos données dans la feuille de calcul, et tous ces hyperliens sont liés au même chemin de fichier ou à la même adresse. Mais maintenant, vous devez remplacer ce chemin d'hyperlien par une autre adresse en une seule fois. Modifier individuellement le chemin des hyperliens pourrait prendre beaucoup de temps. Existe-t-il un moyen rapide de résoudre ce problème ?

Modifier plusieurs chemins d'hyperliens à la fois dans une feuille de calcul avec du code VBA

Modifier plusieurs chemins d'hyperliens à la fois dans une feuille de calcul / classeur / plusieurs feuilles / sélection avec une fonctionnalité étonnante

Modifier plusieurs chemins d'hyperliens à la fois dans une feuille de calcul avec du code VBA

Supposons que vous ayez une liste de données avec les mêmes hyperliens comme le montre la capture d'écran suivante, et avec un code VBA, vous pouvez rapidement remplacer l'ancien chemin de fichier ou adresse dans une feuille de calcul par un nouveau.

1. Maintenez enfoncées les touches ALT + F11, et cela ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez la macro suivante dans la fenêtre Module.

Code VBA : modifier plusieurs chemins d'hyperliens à la fois

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue vous invitera à saisir votre ancienne adresse d'hyperlien dans la zone de texte Ancien. Voir la capture d'écran :

4. Cliquez sur OK, et une autre boîte de dialogue apparaît pour vous rappeler d'entrer la nouvelle adresse d'hyperlien que vous souhaitez utiliser.

5. Puis cliquez sur OK, toutes les anciennes adresses d'hyperliens identiques ont été remplacées par la nouvelle en une seule fois. Voir les captures d'écran :

Modifier plusieurs chemins d'hyperliens à la fois dans une feuille de calcul / classeur / plusieurs feuilles / sélection avec une fonctionnalité étonnante

Si vous souhaitez remplacer les chemins d'hyperliens à partir d'une sélection, de plusieurs feuilles, du classeur actuel ou de plusieurs classeurs, comment procéder ? Avec la fonction Rechercher et Remplacer de Kutools for Excel, vous pouvez traiter cette tâche rapidement.

Après avoir installé Kutools for Excel, veuillez procéder comme suit :

1. Cliquez sur Kutools > Navigation, voir la capture d'écran :

2. Dans le volet Navigation ouvert, cliquez sur l'onglet Rechercher et remplacer, dans le volet Rechercher et Remplacer, cliquez sur l'onglet Remplacer, puis effectuez les opérations suivantes :

• Entrez l'ancien texte d'hyperlien que vous souhaitez rechercher dans la zone de texte Rechercher quoi, puis tapez le nouveau texte d'hyperlien que vous souhaitez utiliser pour le remplacement dans la zone de texte Remplacer par ;
• Spécifiez la portée où vous souhaitez rechercher et remplacer le chemin d'hyperlien à partir de la liste déroulante Dans ;
• Ensuite, sélectionnez Hyperliens dans la liste déroulante Rechercher dans ;
• Enfin, cliquez sur le bouton Rechercher tout, toutes les cellules correspondantes contenant le texte spécifique de l'hyperlien ont été listées dans la zone de liste en bas.

3. Ensuite, cliquez sur le bouton Remplacer tout, les anciens chemins d'hyperliens ont été changés en nouveaux en une seule fois, voir la capture d'écran :

Cliquez pour télécharger Kutools for Excel pour un essai gratuit !

Plus d'articles connexes :