Remplacer caractère chaine de variable [Résolu/Fermé]

Signaler
-
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
-
Bonjour,

je souhaite remplacer les liens html de ma feuille active qui contiennent "P26_". J'ai trouvé le code suivant mais ça bug:

For Each H In ActiveSheet.Hyperlinks

If (H.Name Like "*P26_*") Then
H.Name = Replace(H.Name, "*P26_*", "")
End If
Next

Qu'est ce qui cloche?

Merci!

3 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
588
Bonjour,

Je pense qu'il ne faut pas travailler sur le nom mais sur l'adresse du lien :

For Each H In ActiveSheet.Hyperlinks
    If (H.Address Like "*P26_*") Then
        H.Address = Replace(H.Address, "P26_", "")
        H.TextToDisplay = H.Address
    End If
Next


J'ai supposé que le texte à afficher doit être l'adresse.
Attention la chaine à remplacer est sans *

A+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Nickel ça a marché !
bravo et merci
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
588
Bonjour,

Avec plaisir, je passe à résolu.

Bonne continuation

Une petite remarque, pour les question sur excel et VBA penser à poster plutôt dans le forum "Bureautique"