[VBA][Excel]Supprimer une partie du texte d'une grosse liste

Version imprimable

Bonjour,

J'ai une immense liste de photos sauvegardées dans un fichier Excel. Les
photos sont listées avec leur chemin d'accès complet sur un lecteur réseau,
comme par exemple:

Citation:

P:\Photo Class,e\Z\Ziziphus\Zizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG

Je dois compléter le code suivant:
Code:

1 2 3 4 5 6 7 lastrow = .Range("A65536").End(xlUp).Row For I = 1 To lastrow ' Si la cellule courante contient le texte "P:\" pour commencer alors ' Supprimer le texte jusqu'au dernier \ mais conserver le reste du texte Next
...et cela, afin de supprimer le chemin d'accès et conserver uniquement le
nom de fichier pour chaque photo. Comme je ne suis pas très ferrée en
manipulation de chaînes de caractères dans VBA, je suis bloquée dans ma boucle For.

:triste: Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,

19/09/2005, 16h44
pc75

Bonjour,

Les fonctions Mid(), Left() ou Right() pour extraire des morceaux d'une chaine, et la fonction InstrRev() qui renvoie la position d'un caractère dans une chaine, en partant de la fin.
19/09/2005, 16h47
annedeblois

Citation:

Envoyé par pc75

Bonjour,

Les fonctions Mid(), Left() ou Right() pour extraire des morceaux d'une chaine, et la fonction InstrRev() qui renvoie la position d'un caractère dans une chaine, en partant de la fin.

Merci. Au risque de passer pour une idiote, c'est lundi matin dans mon coin de pays et j'aurais peut-être besoin de quelques détails pour ma culture personnelle (et pour m'aider dans mon travail). Merci!
19/09/2005, 17h04
bidou

la fonction InstrRev renvoie la position dans la chaine d'un caractère en commencant cette recherche par la fin. Dans ton cas "\".

Mid Tronque une chaine à partir de la position donné.
Donc pour toi par exemple

Code:

Range("B1").Value = Mid(Range("A1").Value, InStrRev(Range("A1").Value, "\") + 1)

Je suis sûre qu'il me manque à peine un détail ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub TrimPath()
lastrow = .Range("A65536").End(xlUp).Row
For I = 1 To lastrow
    Range("A" & I).Select
 
 
    Dim result As Boolean
    result = Range("A" & I).Value Like "P:\*"
    If result Then
     ' C'est ici que je dois me prévaloir des avantages de
     ' Mid(), Left() ou Right() ??
    End If
 
 
Next
End Sub

19/09/2005, 17h10
annedeblois

Citation:

Envoyé par bidou

la fonction InstrRev renvoie la position dans la chaine d'un caractère en commencant cette recherche par la fin. Dans ton cas "\".

Mid Tronque une chaine à partir de la position donné.
Donc pour toi par exemple

Code:

Range("B1").Value = Mid(Range("A1").Value, InStrRev(Range("A1").Value, "\") + 1)

Merci, bidou. Je vais l'essayer de ce pas.

:yaisse: :merci: Fantastique!

Code final:

Code:

1
2
3
4
5
6
7
8
9
10
11
lastrow = Range("A65536").End(xlUp).Row
For I = 1 To lastrow
    Range("A" & I).Select
 
    Dim result As Boolean
    result = Range("A" & I).Value Like "P:\*"
    If result Then
    Range("E" & I).Value = Mid(Range("A" & I).Value, InStrRev(Range("A" & I).Value, "\") + 1)
 
    End If
Next

Ça fonctionne nickel.