extraire du texte

Jacques87

XLDnaute Accro

• 12 Mars 2006

• #2

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

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 12 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

B

bigcharlot

XLDnaute Nouveau

• 12 Mars 2006

• #4

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,

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 12 Mars 2006

• #5

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

Cliquez pour agrandir...

salut

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

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 12 Mars 2006

• #6

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

 

Vote positif 0 Vote négatif

B

bigcharlot

XLDnaute Nouveau

• 12 Mars 2006

• #7

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,

 

Vote positif 0 Vote négatif