extrait chaine de caract cellule

[cvinci]

Bonjour !
Je cherche en vain comment extraire le mot le plus à droite dans une cellule contenant une adresse ex: ici "10 BD J FAVRE" je cherche à isoler Favre
Merci pour votre aide

 

[galopin01]

Bonsoir,
Voici une fonction (à coller dans un NOUVEAU MODULE)

Function EXTS(V As Range)
Dim z$, r$, i%, Y As Boolean
z = RTrim(V.Value)
i = Len(z)
Y = 0
While Not Y
i = i - 1
If Asc(Mid(z, i, 1)) = 32 Then Y = True
Wend
EXTS = Right(z, Len(z) - i)
End Function

Pour renvoyer dans une une cellule le dernier mot de la cellule A1 :
=EXTS(A1)
A+

 

[andré]

Salut,

Voici deux formules permettant de le faire (texte en A1) :

=STXT(A1;CHERCHE("µ";SUBSTITUE(A1;" ";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";"")));1)+1;32767)
=DROITE(A1;NBCAR(A1)-CHERCHE("µ";SUBSTITUE(A1;" ";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";"")));1))

Ândré.

 

[welmoed]

pourquoi compliquer les choses ? utiliser seulement la fonction 'droite' avec le nombre de caractères à reprendre...

 

[welmoed]

Ta fonction exts ne marche pas et n'existe pas dans la liste des fonctions ??

 

[andré]

Salut welmoed,

Ta première réponse est judicieuse, mais quelque peu simpliste.

Cvinci donne le mot FAVRE (5 caractères) en exemple, mais cela pourrait tout aussi bien être TARTEMPION ou ANTICONSTITUTIONNEL

Alors comment fais-tu ?
Compter à chaque ligne le nombre de caractères est tout aussi fastidieux que de sélectionner le dernier mot et de le copier.

Ândré.

 

[ChTi'160]

Salut"cvinci"
bonjour "Ândré" et "galopin01"
je me permets cette intrusion pour dire à "welmoed" que sa façon d'intervenir dans un post n'est pas la bonne
il faudriat relire la Charte
un bonjour
je ne pense pas que :
Ta fonction exts ne marche pas et n'existe pas dans la liste des fonctions ??
soit la bonne méthode pour faire avancer les choses la fonction vient d'être crée par "galopin01" l'as tu bien installée donc on se dispense de commentaires de cette sortes
donc essaies d'en tenir compte pour la suite
car je ne voudais pas regretter d'avoir répondu à un post
A+++
Jean Marie

 

[ChTi'160]

re excuses
un post de toi "welmoed"
A+++
Jean Marie

 

[ChTi'160]

re de plus je viens de tester cette Fonction marche très bien
installée dans un Module elle me renvoie bien le dernier mot de la phrase
ex avec je lis La Charte en cellule A1 en B1 =EXTS(A1) me renvoie "Charte"
C'est super merci "galopin01"
A+++
Jean Marie

 

[cvinci]

Merci André


en fait c'est plutôt vers la solution que tu préconises que je m'oriente seulement voilà la formule chez moi renvoie ''valeur'' je souhaiterai éditer la formule pour repérer ce qu'elle renvoie à chaque calcul mais bon c'était une touche F? ou combinaison alt ?
et merci pour ta reactivité

 

[cvinci]

Au fait je voulais tous vous remercier pour votre aide
Chtit'160, galop01, andrx, velmoed
je n'ai pas su exploiter la macro
j'adore les fonctions excel mais je n'ai pas appris les fonctionnalités des macros

 

[andré]

Salut cvinci,

Je ne vois pas où ces formules peuvent te renvoyer #VALEUR!, si ce n'est que la cellule testée est vide ou ne comporte pas d'espace.

Place un petit exemple en pièce jointe, je regarderai.

Ândré.

 

[C@thy]

Bonjour!!!

On s'amuse bien sur ce fil!!! Bravo André et galopin01, vos solutions fonctionnent à merveille!!!

Effectivement, s'il n'y a pas d'espace on obtien #VALEUR!, mais
il suffit de rajouter au début un petit test (**) :
SI(NBCAR(A1)=NBCAR(SUBSTITUE(A1;" ";""));A1
et ça roule!!!

Quand à la macro fonction, welmoed, évidemment qu'elle n'esiste pas dans la liste des fonctions,
puisque c'est une fonction écrite par macro! (euh, non, par galopin01!!!!Lol)
mais lorsque tu l'as recopiée dans un module (donc macro!!!), elle existe dans la catégories Personnalisées!
Tu vois, c'est tout simple, fô pas s'énerver comme ça, si tu ne comprends pas comment
ça marche tu demandes des explications, on est la pour ça, mais fô pas dire ça marche pas!

(**) : ça me fait penser à une histoire! (pour André!)

qu'est-ce qu'un petit mont????
un monticule
qu'est-ce qu'un petit test???
...
mouarf!!! y'avait longtemps que j'avais pas sorti une bêtise sur ce forum. Ouf! ça défoule!!!

C@thy

 

[cvinci]

Merci à tous mon problème est résolu chapeau !
et à bientôt
Personne pour la question comment éditer une formule càd d'observer dans la barre de formule le résultat pour chaque expression de calcul
bonne soirée à tous