extraire du texte

[bigcharlot]

Bonjour le Forum,

Voilà j'ai dans un fichier des lignes comme ceci:
Café moka par 12
J'ai remplacé 'par' avec '/'
J'aimerais maintenant extraire ce qui suis le slash.
J'ai vu un fil similaire y a pas longtemps mais je ne le retrouve pas. :S
Merci pour votre aide,
Bon dimanche,

 

[Jacques87]

Bonjour

Voici une macro qui te donnera satifaction

Dim mot as String
Dim I as Integer, N as Integer
mot = Range('A3')
For I = 1 To Len(mot)
If Mid(mot, I, 1) = Chr(47) Then N = I
Next I
Range('B3') = Left(mot, N - 1)

le mot à couper est en A3 et le résultat en B3

Bon dimanche

 

[CBernardT]

Bonjour Bigcharlot et Jacques7,

Avec une formule qui extrait du texte les caractères à droite du / :

=DROITE(B12;NBCAR(B12)-TROUVE('/';B12;1))

Comme il y a un espace à droite du slash, on peut aussi écrire :

=DROITE(B12;NBCAR(B12)-TROUVE('/';B12;1)-1)

Cordialement

Bernard

 

[bigcharlot]

Bonjour, Jacques, Bernard & le forum,

Merci à tous les deux pour votre rapidité et votre précision.
Je suis tjs étonné d'avoir une réponse aussi rapide.
Bon dimanche à tous,

 

[Hervé]

Bonjour tout le monde

j'avais cru comprendre que bigcharlot, voulait extraire ce qui suivait le slash.

une proposition par macro :

Dim I As Integer

For I = 1 To Len(Range('A1'))
If Mid(Range('A1'), I, 1) = '/' Then Range('b1') = Mid(Range('a1'), I + 1)
Next I

salut

Message édité par: hervé, à: 12/03/2006 10:32

 

[Jacques87]

Sacré Hervé, toujours à l'affut de tout

Bonjour Hervé, c'est bien à cette perspicacité que l'on reconnaît le maître.

Je te souhaite un excellent dimanche
Cordialement

 

[bigcharlot]

Bonjour Hervé et RE à Jacques & aux autres,

OUi c'est bien ce qui suivait qui m'intéressait.

Merci pour ta macro.

Bon dimanche à tous,