Extraction du nombre juste avant un symbole Résolu/Fermé

Question

Bonjour, 

Dans un paragraphe sur Excel, je souhaite extraire le nombre juste avant le symbole "€"

Exp: Abcdefg daldj, Fkap 0983290 dlfl 100€ fdzfzelfzl czkre.

Dans cet exp, je souhaite extraire le nombre "100". 
Le nombre n'est pas figé et peut être placé à n'importe quel endroit dans le paragraphe.
PS: Le nombre peut être différent, si c'était 1000 je souhaite extraire "1000" c'est pour celà que je ne peux pas utiliser certaines fonctions comme STXT() qui comptent le nombre de caractères avant un caractère défini.

J'ai beau cherché je ne trouve pas. Je souhaite faire appel aux plus balaises d'entre vs car je galère depuis plusieurs jours.
Je vous remercie d'avance.

jee pee · Answer

Bonjour,

Condition, il faut que devant le nombre il y ait un blanc
En A1 ta chaine, je le fais en 2 fois car en une seule la formule devient illisible car trop longue
en A2 : =GAUCHE(A1;CHERCHE("€";A1)-1) on supprime ce qu'il y a à partir de € 
en A3 : =DROITE(A2;NBCAR(A2)-CHERCHE("§";SUBSTITUE(A2;" ";"§";NBCAR(A2)-NBCAR(SUBSTITUE(A2;" ";""))))) on ne garde que ce qu'il y a après le dernier blanc

Cdlt

via55 · Answer

Bonjour

Ou bien avec une fonction personnalisée à condition comme dans les formules de jee pee qu'il y ait une blanc devant le nombre et après le € et qu'un nombre comme 10000 ne soit pas écrit 10 000
Copier la macro et la coller dans un module de l'Editeur VBA (ALT+F11 pour ouvrir l'éditeur - Insertion - Module - coller la macro)
 
Function isolmonet(plage As Range)
tablo = Split(plage, " ")
For n = 0 To UBound(tablo)
If Right(tablo(n), 1) = "€" Then isolmonet = Application.WorksheetFunction.Substitute(tablo(n), "€", "")
Next
End Function

Syntaxe à utiliser dans la feuille :  = isolmonet(A1)

Cdlmnt
Via

via55 · Answer

????
D'abord j'ai fait oubli dans la macro c'est de convertir la valeur texte en nombre donc tu remplaces la ligne avec le IF par celle ci :
If Right(tablo(n), 1) = "€" Then isolmonet = Val(Application.WorksheetFunction.Substitute(tablo(n), "€", ""))
Tu mets la formule =isolmonet dans ta cellule, la macro retourne une valeur numérique et pour faire afficher en monétaire il faut que ta cellule soit en format monétaire dans le Ruban Accueil - Nombre ou clic droit dans la cellule - Format de cellule)

via55 · Answer

Je ne sais pas d'où provienennt ces lignes de codes dans ton module1, elles n'appartiennent pas à la macro que t'ai fournie !
Efface toutes ces lignes dans le module 1 et colles à la place celles-ci :
Function isolmonet(plage As Range)
tablo = Split(plage, " ")
For n = 0 To UBound(tablo)
If Right(tablo(n), 1) = "€" Then isolmonet = Val(Application.WorksheetFunction.Substitute(tablo(n), "€", "")) 
Next
End Function

Si tu n'y arrives pas poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici, je regarderais

via55 · Answer

Il n'y a pas de formule à mettre c'est le format de ta cellule qu'il faut mettre en monétaire selon la procédure que je t'indiquais dans mon message 6
On ne peut pas le faire dans la macro car ce n'est pas une macro qui s'applique à une cellule mais une fonction qui crée une sorte de formule
Si tu veux adapter le format d'une cellule par macro il faut le faire dans une autre macro qui se déclencherait apr exemple par une double clic dans la cellule

via55 · Answer

Oui il faut adapter la macro ainsi :
If Left(tablo(n), 6) = "impayé" Then isolmonet = Val(Application.WorksheetFunction.Substitute(tablo(n), "impayé", ""))
mais elle va retourner 100e
c'est ce qui me gêne dans ton exemple, après le 100, il y a toujours une seule lettre ?

Extraction du nombre juste avant un symbole

6 réponses

Discussions similaires