Manipulation de texte en VBA Excel - supprression d'une partie
4 réponses
Anne DeBlois
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:
P:\Photo Class,e\Z\Ziziphus\Zizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next.
Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anne DeBlois
Merci, ça fonctionne :)
AD
"Jacques93" a écrit dans le message de news:
Bonjour Anne DeBlois,
s = "P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG"
If Len(s) > 3 Then If UCase(Left(s, 3)) = "P:" Then s = Mid(s, InStrRev(s, "") + 1) MsgBox s End If End If
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
-- Cordialement,
Jacques.
Merci, ça fonctionne :)
AD
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
uUaFizSvFHA.1392@tk2msftngp13.phx.gbl...
Bonjour Anne DeBlois,
s = "P:Photo Class,eZZiziphusZizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG"
If Len(s) > 3 Then
If UCase(Left(s, 3)) = "P:" Then
s = Mid(s, InStrRev(s, "") + 1)
MsgBox s
End If
End If
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next.
Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
s = "P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG"
If Len(s) > 3 Then If UCase(Left(s, 3)) = "P:" Then s = Mid(s, InStrRev(s, "") + 1) MsgBox s End If End If
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
-- Cordialement,
Jacques.
Jacques93
Bonjour Anne DeBlois,
s = "P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG"
If Len(s) > 3 Then If UCase(Left(s, 3)) = "P:" Then s = Mid(s, InStrRev(s, "") + 1) MsgBox s End If End If
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
-- Cordialement,
Jacques.
Bonjour Anne DeBlois,
s = "P:Photo Class,eZZiziphusZizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG"
If Len(s) > 3 Then
If UCase(Left(s, 3)) = "P:" Then
s = Mid(s, InStrRev(s, "") + 1)
MsgBox s
End If
End If
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next.
Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
s = "P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG"
If Len(s) > 3 Then If UCase(Left(s, 3)) = "P:" Then s = Mid(s, InStrRev(s, "") + 1) MsgBox s End If End If
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
-- Cordialement,
Jacques.
SL
Bonjour
sans VBA, je commencerai par un filtre commence par "P:" puis en selectionnant les cellule filtrée, Edition/Remplacer, Rechercher : */ puis laisser vide "Remplacer par".
ça marche ?
Stéphane
"Anne DeBlois" a écrit dans le message de news:
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
Bonjour
sans VBA, je commencerai par un filtre commence par "P:" puis en
selectionnant les cellule filtrée, Edition/Remplacer, Rechercher : */ puis
laisser vide "Remplacer par".
ça marche ?
Stéphane
"Anne DeBlois" <adNOeblSPAMois@dsdinternational.net> a écrit dans le message
de news: O7L1VdSvFHA.1256@TK2MSFTNGP09.phx.gbl...
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next.
Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
sans VBA, je commencerai par un filtre commence par "P:" puis en selectionnant les cellule filtrée, Edition/Remplacer, Rechercher : */ puis laisser vide "Remplacer par".
ça marche ?
Stéphane
"Anne DeBlois" a écrit dans le message de news:
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
j
peut-être comme ça :
lastrow = Range("A65536").End(xlUp).Row For lin = 1 To lastrow If UCase(Left(Cells(lin, 1), 3)) = "P:" Then Do While InStr(Cells(lin, 1), "") > 0 Cells(lin, 1) = Right(Cells(lin, 1), Len(Cells(lin, 1)) - 1) Loop End If Next
http://jacxl.free.fr
"Anne DeBlois" a écrit dans le message de news:
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
Anne
peut-être comme ça :
lastrow = Range("A65536").End(xlUp).Row
For lin = 1 To lastrow
If UCase(Left(Cells(lin, 1), 3)) = "P:" Then
Do While InStr(Cells(lin, 1), "") > 0
Cells(lin, 1) = Right(Cells(lin, 1), Len(Cells(lin, 1)) - 1)
Loop
End If
Next
j@c
http://jacxl.free.fr
"Anne DeBlois" <adNOeblSPAMois@dsdinternational.net> a écrit dans le message
de news: O7L1VdSvFHA.1256@TK2MSFTNGP09.phx.gbl...
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var.
canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next.
Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,
lastrow = Range("A65536").End(xlUp).Row For lin = 1 To lastrow If UCase(Left(Cells(lin, 1), 3)) = "P:" Then Do While InStr(Cells(lin, 1), "") > 0 Cells(lin, 1) = Right(Cells(lin, 1), Len(Cells(lin, 1)) - 1) Loop End If Next
http://jacxl.free.fr
"Anne DeBlois" a écrit dans le message de news:
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:
P:Photo Class,eZZiziphusZizyphus obtusifolia var. canescens_I_05ABG01_02.JPG
Je dois compléter le code suivant:
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, je suis bloquée dans mon For Next. Quelqu'un pourrait-il me donner un coup de main SVP? Merci à l'avance,