Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cherche, mais de Droite à Gauche

Cherche, mais de Droite à Gauche

13 réponses
Avatar
DanC
Bonjour à tous
Je cherche une fonction, qui fait comme Cherche(), mais qui travaillerait de
Droite à gauche. Avez-vous quelque chose à me suggérer?

C'est que j'ai une chaine de caractères, de plusieurs mots et qui se termine
par un montant. Je suis intéressée à isoler le montant. Même dans le montant
il peut y avoir un espace (pour des nombres supérieurs à 1000)

Ou alors un truc?
Merci de vos lumières!

Bonne soirée!
Danielle

--
(___) Danielle
(oo) "... A quoi bon la charrue
\/-------\ et la voile, la terre et
|| || \ la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel
Bonsoir.
Peux-tu donner un exemple ?
Merci.
daniel
"DanC" a écrit dans le message de news:
%23VWqMT$
Bonjour à tous
Je cherche une fonction, qui fait comme Cherche(), mais qui travaillerait
de Droite à gauche. Avez-vous quelque chose à me suggérer?

C'est que j'ai une chaine de caractères, de plusieurs mots et qui se
termine par un montant. Je suis intéressée à isoler le montant. Même dans
le montant il peut y avoir un espace (pour des nombres supérieurs à 1000)

Ou alors un truc?
Merci de vos lumières!

Bonne soirée!
Danielle

--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^



Avatar
JB
Bonjour,

Solution fonction perso:

B2 contient: blabla 12 222.456

=convnum(B2)

Dans un module:

Function convNum(chaine)
i = 1
témoin = True
convNum = 0
Do While i <= Len(chaine) And témoin = True
If Mid(chaine, i, 1) >= "0" And Mid(chaine, i, 1) <= "9" Then
convNum = Val(Mid(chaine, i))
témoin = False
End If
i = i + 1
Loop
End Function

Cordialement JB
Avatar
AV
| C'est que j'ai une chaine de caractères, de plusieurs mots et qui se termine
| par un montant. Je suis intéressée à isoler le montant. Même dans le montant
| il peut y avoir un espace (pour des nombres supérieurs à 1000)

Matricielle (validation par ctrl+maj+entrée) :

=SUBSTITUE(STXT(A1;EQUIV(0;(ESTERR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*1);0);NBCAR(A1)-SOMME((ESTERR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*1)));"
";"")

AV
Avatar
AV
Comme le nombre est en fin de chaîne, plus simple et plus sur en cas de
nbre décimal :
(Matricielle)
=SUBSTITUE(STXT(A1;EQUIV(FAUX;(ESTERR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1));0);9^9);"
";"")

PS : Si le séparateur décimal de la chaîne est différent de celui système,
rajouter un SUBSTITUE

AV
Avatar
DanC
Bonsoir Daniel
voici un exemple de ce que je retrouve dans une cellule: (Cest sur une
seule ligne)

Vohl inc. f#50031861, ouvrage sur roulea 2 820.00


Je voudrais avoir 2820,00
car ma valeur se trouve dans les dernières positions

Meric d'avance
--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"Daniel" a écrit dans le message de news:
enHjRu$
Bonsoir.
Peux-tu donner un exemple ?
Merci.
daniel
"DanC" a écrit dans le message de news:
%23VWqMT$
Bonjour à tous
Je cherche une fonction, qui fait comme Cherche(), mais qui travaillerait
de Droite à gauche. Avez-vous quelque chose à me suggérer?

C'est que j'ai une chaine de caractères, de plusieurs mots et qui se
termine par un montant. Je suis intéressée à isoler le montant. Même dans
le montant il peut y avoir un espace (pour des nombres supérieurs à 1000)

Ou alors un truc?
Merci de vos lumières!

Bonne soirée!
Danielle

--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^







Avatar
DanC
Bonsoir JB

La fonction retourne #NOM?

Qu'est ce qui fait que ça ne va pas?
J'ai copié la fonction dans ThisWorkbook...
puis dans une cellule j'ai écrit =convNum(d2)
car ma donnée est dans D2

où est-ce que je m'enfarge?

Merci de m'éclairer!


--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"JB" a écrit dans le message de news:

Bonjour,

Solution fonction perso:

B2 contient: blabla 12 222.456

=convnum(B2)

Dans un module:

Function convNum(chaine)
i = 1
témoin = True
convNum = 0
Do While i <= Len(chaine) And témoin = True
If Mid(chaine, i, 1) >= "0" And Mid(chaine, i, 1) <= "9" Then
convNum = Val(Mid(chaine, i))
témoin = False
End If
i = i + 1
Loop
End Function

Cordialement JB
Avatar
DanC
Merci AV de te pencher sur mon problème
pour le contenu de cellule suivant, (tout sur la même ligne dans la cellule)
Vohl inc. f#50031861, ouvrage sur roulea 2 820.00
ta formule retourne 50031861
je serais plutôt intéressée par 2820,00

Il y a un . comme séparateur décimal dans la cellule originale et un
espace comme séparateur de millier

Quelque chose d'autre à faire, docteur?
merci de vos lumières

Bonne nuit
Danielle

--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"AV" a écrit dans le message de news:

Comme le nombre est en fin de chaîne, plus simple et plus sur en cas
de
nbre décimal :
(Matricielle)

=SUBSTITUE(STXT(A1;EQUIV(FAUX;(ESTERR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1));0);9^9);"
";"")

PS : Si le séparateur décimal de la chaîne est différent de celui
système,
rajouter un SUBSTITUE

AV




Avatar
JB
Bonjour,


Voir PJ: http://cjoint.com/?mEhSyIfVFP

Dans un MODULE
-Alt+F11
-Insertion/Module

Function convNum(chaine)
i = 1
témoin = True
i = Len(chaine)
convNum = 0
Do While i > 0 And InStr("0123456789 .", Mid(chaine, i, 1)) > 0
i = i - 1
Loop
convNum = Val(Mid(chaine, i + 1))
End Function

Dans une cellule =ConvNum(B2)

Cordialement JB
Avatar
Ange Ounis
Une autre ?

Function DerNombre(S) As Double
Dim Arr, i As Long
S = Application.Substitute(S, ".", ",")
Arr = Split(S, " ")
For i = LBound(Arr) To UBound(Arr)
If IsNumeric(Arr(i)) Then DerNombre = DerNombre & Arr(i)
Next i
End Function

Toujours à recopier dans un module _ordinaire_ puis, dans une feuille de calcul :

ÞrNombre(A1)

----------
Ange Ounis
----------

Bonjour à tous
Je cherche une fonction, qui fait comme Cherche(), mais qui travaillerait de
Droite à gauche. Avez-vous quelque chose à me suggérer?

C'est que j'ai une chaine de caractères, de plusieurs mots et qui se termine
par un montant. Je suis intéressée à isoler le montant. Même dans le montant
il peut y avoir un espace (pour des nombres supérieurs à 1000)

Ou alors un truc?
Merci de vos lumières!

Bonne soirée!
Danielle



Avatar
DanC
Merci beaucoup JB
je n'avais pas pigé Insertion, Module!
Ça marche super bien!

Bonne journée!

--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"JB" a écrit dans le message de news:

Bonjour,


Voir PJ: http://cjoint.com/?mEhSyIfVFP

Dans un MODULE
-Alt+F11
-Insertion/Module

Function convNum(chaine)
i = 1
témoin = True
i = Len(chaine)
convNum = 0
Do While i > 0 And InStr("0123456789 .", Mid(chaine, i, 1)) > 0
i = i - 1
Loop
convNum = Val(Mid(chaine, i + 1))
End Function

Dans une cellule =ConvNum(B2)

Cordialement JB
1 2