extraire chaine de caractère

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

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

F

fatalerror

Guest

• 10 Septembre 2013

• #5

Re : extraire chaine de caractère

Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

F

Fredsto

Guest

• 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

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

Guest

• 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

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

Guest

• 26 Février 2018

• #10

Merci !!!!!! C'est exactement ce que je voulais!! Quelle rapidité. Merci PierreJean 🙂

 

Vote positif 0 Vote négatif