remplacer caractère chaine de variableRésolu/Fermé

Question

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!

pilas31 · Answer

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+

alaide · Answer

Nickel ça a marché !
bravo et merci

pilas31 · Answer

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"

Remplacer caractère chaine de variable

3 réponses

Discussions similaires

Newsletters