Remplacer caractère chaine de variable
Résolu
alaide
-
pilas31 Messages postés 1878 Statut Contributeur -
pilas31 Messages postés 1878 Statut Contributeur -
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!
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!
Configuration: Windows XP Office 2000
3 réponses
-
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+ -
-
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"
