Remplacer caractère chaine de variable

Résolu
alaide -  
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   -
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!
A voir également:

3 réponses

Réponse 1 / 3
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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
Réponse 2 / 3
alaide
 
Nickel ça a marché !
bravo et merci
0
Réponse 3 / 3
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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"
0