F fatalerror XLDnaute Nouveau 9 Septembre 2013 #1 Bonjour, Débutant en VBA je souhaite extraire ce qui se trouve après le \ dans les chaines suivantes C:\donnees\Log_Arrêt_Plan-Défaut__26082013.lubg C:\donnees\glpi.xls J'en ai besoin pour modifier un code qui n'est pas de moi et que je peine à interpréter. Merci pour votre aide.
Bonjour, Débutant en VBA je souhaite extraire ce qui se trouve après le \ dans les chaines suivantes C:\donnees\Log_Arrêt_Plan-Défaut__26082013.lubg C:\donnees\glpi.xls J'en ai besoin pour modifier un code qui n'est pas de moi et que je peine à interpréter. Merci pour votre aide.
pierrejean XLDnaute Barbatruc 9 Septembre 2013 #2 Re : extraire chaine de caractère Bonjour fatalerror Avec une fonction personnalisée Pièces jointes fatalerror.xls 31 KB · Affichages: 39 Vote positif 0 Vote négatif
phlaurent55 Nous a quittés en 2020 Repose en paix 9 Septembre 2013 #3 Re : extraire chaine de caractère Bonjour fataleror, et bienvenue sur le forum avec ce code: Code: Sub extraire() For i = 1 To Range("A65535").End(xlUp).Row Cells(i, 2) = Replace(Cells(i, 1), "C:\", "") Next i End Sub à+ Philippe Edit: Salut PierreJean Vote positif 0 Vote négatif
Re : extraire chaine de caractère Bonjour fataleror, et bienvenue sur le forum avec ce code: Code: Sub extraire() For i = 1 To Range("A65535").End(xlUp).Row Cells(i, 2) = Replace(Cells(i, 1), "C:\", "") Next i End Sub à+ Philippe Edit: Salut PierreJean
D david84 XLDnaute Barbatruc 9 Septembre 2013 #4 Re : extraire chaine de caractère Bonjour à tous, si tes données véritables correspondant à l'exemple fourni : Code: Function fatalerror(c) fatalerror = Replace(c, "C:\donnees\", "") End Function A+ Edit: sinon pour le fun une solution formules en adaptant la fonction InStrRev utilisée par pierrejean que je salue : Code: =SI(A1<>"";STXT(A1;CHERCHE("§";SUBSTITUE(A1;"\";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;NBCAR(A1));"") Dernière édition: 9 Septembre 2013 Vote positif 0 Vote négatif
Re : extraire chaine de caractère Bonjour à tous, si tes données véritables correspondant à l'exemple fourni : Code: Function fatalerror(c) fatalerror = Replace(c, "C:\donnees\", "") End Function A+ Edit: sinon pour le fun une solution formules en adaptant la fonction InStrRev utilisée par pierrejean que je salue : Code: =SI(A1<>"";STXT(A1;CHERCHE("§";SUBSTITUE(A1;"\";"§";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;NBCAR(A1));"")
F fatalerror XLDnaute Nouveau 10 Septembre 2013 #5 Re : extraire chaine de caractère Merci beaucoup pour votre aide. Vote positif 0 Vote négatif
F Fredsto XLDnaute Nouveau 25 Février 2018 #6 Bonjour PierreJean, Je pu lire de nombreux posts de votre part mais je n'ai pas trouvé une solution. J'aimerai extraire une chaine de caractère (récupérer des noms de villes) Est-ce possible pour vous de m'aider? je vous mets un fichier test pour que vous voyez. Pièces jointes test.xls 236.5 KB · Affichages: 14 Vote positif 0 Vote négatif
Bonjour PierreJean, Je pu lire de nombreux posts de votre part mais je n'ai pas trouvé une solution. J'aimerai extraire une chaine de caractère (récupérer des noms de villes) Est-ce possible pour vous de m'aider? je vous mets un fichier test pour que vous voyez.
pierrejean XLDnaute Barbatruc 25 Février 2018 #7 Bonjour Fredsto En supposant avoir bien compris Pièces jointes test (13).xls 225.5 KB · Affichages: 11 Vote positif 0 Vote négatif
F Fredsto XLDnaute Nouveau 25 Février 2018 #8 Bonsoir, Merci pour votre réponse si rapide. En fait pas tout à fait, je vous mets dans l'onglet 2 ce que j'aimerai comme résultat. J'espère que ceci est réalisable. Encore merci Pièces jointes test (13 version2.xls 240 KB · Affichages: 14 Vote positif 0 Vote négatif
Bonsoir, Merci pour votre réponse si rapide. En fait pas tout à fait, je vous mets dans l'onglet 2 ce que j'aimerai comme résultat. J'espère que ceci est réalisable. Encore merci
pierrejean XLDnaute Barbatruc 26 Février 2018 #9 Re A partir de ton fichier d'origine Pièces jointes test (13).xls 227 KB · Affichages: 13 Vote positif 0 Vote négatif
F Fredsto XLDnaute Nouveau 26 Février 2018 #10 Merci !!!!!! C'est exactement ce que je voulais!! Quelle rapidité. Merci PierreJean Vote positif 0 Vote négatif