OVH Cloud OVH Cloud

Supprimer chaine de caractères

3 réponses
Avatar
Serge Hipontoise
Rebonjour et encore un grand merci à tous le sparticipants de cette liste si
instructive.

j'ai des cellules contenant des chemins de fichiers et je souhaiterais ne
garder que le nom du fichier lui-même. Ex. :
file:\\dossier1\sousdossier1\fichier.wav
file:\\dossier2\sousdossier2\soussousdossier2\fichier2.wav
file:\\dossier3\fichier3.wav

Je suppose donc qu'il faut partir de la fin et dès, le premier "\", effacer
tout jusqu'au début de la chaîne.
En revanche, je n'ai aucune idée de comment on fait ça

Merci d'avance

Serge

3 réponses

Avatar
sabatier
bonsoir serge
si tes cellules sont en colonnes, peut-être pourrais-tu regarder du côté de
Données Convertir et, je crois, Largeur limitée....
bon je suis un peu tendu et n'ai pas le temps de développer mais tu devrais
trouver y ton bonheur
jps

Serge Hipontoise wrote:

Rebonjour et encore un grand merci à tous le sparticipants de cette liste si
instructive.

j'ai des cellules contenant des chemins de fichiers et je souhaiterais ne
garder que le nom du fichier lui-même. Ex. :
file:dossier1sousdossier1fichier.wav
file:dossier2sousdossier2soussousdossier2fichier2.wav
file:dossier3fichier3.wav

Je suppose donc qu'il faut partir de la fin et dès, le premier "", effacer
tout jusqu'au début de la chaîne.
En revanche, je n'ai aucune idée de comment on fait ça

Merci d'avance

Serge


Avatar
FxM
Bonsoir Serge,

A placer dans le module de la feuille.
Sélectionne les cellules en cause. Lance la macro.
Le résultat apparit dans la colonne juste à droite.
Si tu veux remplacer la colonne, enlève le .offset(...)

Sub test()
i = 0
For Each f In Selection
Vale = f.Value
Adr = f.Address
For b = Len(Vale) To 1 Step -1
If Mid(Vale, b, 1) = "" Then
Range(Adr).Offset(0, 1).Value = Right(Vale, Len(Vale) - b)
b = 1
End If
Next b
Next f
End Sub

@+
FxM


j'ai des cellules contenant des chemins de fichiers et je souhaiterais ne
garder que le nom du fichier lui-même. Ex. :
file:dossier1sousdossier1fichier.wav
file:dossier2sousdossier2soussousdossier2fichier2.wav
file:dossier3fichier3.wav

Je suppose donc qu'il faut partir de la fin et dès, le premier "", effacer
tout jusqu'au début de la chaîne.
En revanche, je n'ai aucune idée de comment on fait ça


Avatar
Serge Hipontoise
Un grand merci !
Serge

A placer dans le module de la feuille.
Sélectionne les cellules en cause. Lance la macro.
Le résultat apparit dans la colonne juste à droite.
Si tu veux remplacer la colonne, enlève le .offset(...)