Extraction d'une chaine de caractère

Paritec

XLDnaute Barbatruc

• 19 Septembre 2011

• #2

Re : Extraction d'une chaine de caractère

Bonjour Kartouf le forum
voilà ton fichier en retour
tu cliques sur le bouton
a+
papou🙂

 

Pièces jointes

• Kartouf 1.xls

  25.5 KB · Affichages: 98

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 19 Septembre 2011

• #3

Re : Extraction d'une chaine de caractère

Bonjour,

une solution par macro ci dessous (à tester)

VB:

Sub Extract()
Dim c As Range
Set c = Range("B3") 'Cellule de début
  Do While c <> ""
    c(1, 2) = Mid(c, InStrRev(c.Text, " ") + 1): Set c = c(2, 1)
  Loop
End Sub

 

Vote positif 0 Vote négatif

K

kartouf

Guest

• 19 Septembre 2011

• #4

Re : Extraction d'une chaine de caractère

bonjour merci,
cependant j'aimerai m'en servir pour le vrai fichier que je dois traiter, avec les vrais adresses mail. existe t'il une solution avec des formules? car la c'est une macro n'est ce pas?

cordialement

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 19 Septembre 2011

• #5

Re : Extraction d'une chaine de caractère

Re Kartouf le forum,
oui c'est une macro il te suffit de la recopier dans ton fichier
a+
papou🙂

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 19 Septembre 2011

• #6

Re : Extraction d'une chaine de caractère

Bonjour le fil,

Un essai formule :

Code:

=STXT(B3;TROUVE("µ";SUBSTITUE(B3;" ";"µ";NBCAR(B3)-NBCAR(SUBSTITUE(B3;" ";""))))+1;99)

On supposera qu'il ne peut y avoir d'espace après l'adresse mail.

@+

 

Vote positif 0 Vote négatif

K

kartouf

Guest

• 20 Septembre 2011

• #7

Re : Extraction d'une chaine de caractère

Merci beaucoup Tibo,Paritec et softmama pour vos réponses.
Cela fonctionne parfaitement.
Mille Merci.

 

Vote positif 0 Vote négatif