Remplacement dans lien hypertextel
Résolu/Fermé
A voir également:
- Remplacement dans lien hypertextel
- Lien url - Guide
- Coco chat remplacement - Accueil - Réseaux sociaux
- Remplaçant de Coco : quelles solutions pour tchater gratuitement en ligne ? - Accueil - Réseaux sociaux
- Créer un lien pour partager des photos - Guide
- Verifier un lien - Guide
4 réponses
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 426
Modifié par ccm81 le 29/11/2013 à 18:05
Modifié par ccm81 le 29/11/2013 à 18:05
Bonjour
Je pense qu'en sélectionnant la plage à traiter et Edition/Remplacer .... puis Remplacer tout, ça devrait marcher
Cdlmnt
Je pense qu'en sélectionnant la plage à traiter et Edition/Remplacer .... puis Remplacer tout, ça devrait marcher
Cdlmnt
Merci de votre réponse, mais cela ne fonctionne pas.
la cellule est F1 France 1954( en bleu) le lien hypertexte qui est derriére est http://wapedia.mobi/fr/grand_ prix_ de_france_1954
qu'il faut remplacer par:
http://fr.wikipedia.org/wiki/grand_prix_de_france_1954
Il y a 850 cellules dans le fichier.
Il faut donc,modifier un lien hypertexte cacher derriére les cellules
avez-vous une idée ?
merci
Francis
la cellule est F1 France 1954( en bleu) le lien hypertexte qui est derriére est http://wapedia.mobi/fr/grand_ prix_ de_france_1954
qu'il faut remplacer par:
http://fr.wikipedia.org/wiki/grand_prix_de_france_1954
Il y a 850 cellules dans le fichier.
Il faut donc,modifier un lien hypertexte cacher derriére les cellules
avez-vous une idée ?
merci
Francis
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 426
29 nov. 2013 à 20:53
29 nov. 2013 à 20:53
Peut être via une petite macro
Cdlmnt
Option Explicit
Const s1 = "wapedia.mobi/fr"
Const s2 = "/fr.wikipedia.org/wiki"
Public Sub modiflht()
Dim L As String, cel As Range
For Each cel In Selection
If cel <> "" Then
L = cel.Hyperlinks(1).Address
L = Replace(L, s1, s2)
cel.Hyperlinks(1).Address = L
End If
Next cel
End Sub
Cdlmnt
Bonjour CCM81
merci de votre réponse. Comme, je ne connais pas la manipulation des macros dans Excel, j'ai envoyé mon fichier et votre macro à une connaissance qui sait adapter les macros.
Mon fichier est en ordre et je vous remercie pour l'aide apportée.
Bonne journée.
Bien à vous.
Francis (Biwhite)
merci de votre réponse. Comme, je ne connais pas la manipulation des macros dans Excel, j'ai envoyé mon fichier et votre macro à une connaissance qui sait adapter les macros.
Mon fichier est en ordre et je vous remercie pour l'aide apportée.
Bonne journée.
Bien à vous.
Francis (Biwhite)
