Macro pour supprimer le « / » final dans des listes d’URL

Bonjour le Forum !

Tout est dans le titre ou presque : j’ai besoin de supprimer par une macro le slash parfois présent à la fin d’une URL.

Comme je dois appliquer cette modification dans de nombreuses feuilles existantes, j’aimerais créer un bouton dans mon interface 2003 pour faire cette modif dans les plages de cellules que je sélectionnerai à la main (si possible même, avec des plages discontinues, voire comprenant des lignes masquées ou filtrées).

Mais je ne sais pas faire….

Quelqu’un pourrait-il m’aider, siouplé ?

Merci !!!

Bonjour

A tester

cdt

Bonjour,

Merci pour ta réponse rapide.

Ça marche en effet, mais je vois 2 problèmes que je ne sais pas résoudre :

• ça supprime tous les slash (slashes ?), pas seulement le slash final → les URL sont inutilisables
• ça supprime aussi les slash répétitifs ( //// ). Pas sûr que ça existe dans des URL, mais je préfère ne pas prendre de risque

bonjour

ci joint une proposition

fred

Sub ote_symbole()
For Each cel In Selection
  If Right(cel.Value, 1) = "/" Then cel.Value = Left(cel.Value, Len(cel.Value) - 1)
  Next cel
End Sub

Nickel !!!

Merci à vous 2, sweetee et fred2406.