Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Extraction

5 réponses
Avatar
Mathilde
Bonjour,

Je souhaite extraire d'une cellule un nombre qui se trouve=20
parmi du texte.
ex : "il est 3H" =3D=3D> je souhaite r=E9cup=E9rer 3

Merci de l'aide

5 réponses

Avatar
Jacky
bonjour Mathilde

A condition que le texte soit toujours qu'une seule lettre à la fin du mot
Le mot en A1
=GAUCHE(A1;NBCAR(A1)-1)
Salutations
JJ

"Mathilde" a écrit dans le message news:
13f1001c417cf$9d0005b0$
Bonjour,

Je souhaite extraire d'une cellule un nombre qui se trouve
parmi du texte.
ex : "il est 3H" ==> je souhaite récupérer 3

Merci de l'aide
Avatar
1- Insère la macro ci-dessous dans ton document :

Function ConvNbre(ByVal sTexte As String) As Long
Dim i As Integer
Dim c As String
Dim sNbre As String
sNbre = ""
For i = 1 To Len(sTexte)
c = Mid(sTexte, i, 1)
If Asc(c) >= 48 And Asc(c) <= 57 Then sNbre = sNbre &
c
Next
ConvNbre = CLng(sNbre)
End Function

2- Dans ta feuille tu appelles la fonction
=ConvNbre(A1) ...
=ConvNbre (" il est 3 hre")

-----Message d'origine-----
Bonjour,

Je souhaite extraire d'une cellule un nombre qui se
trouve

parmi du texte.
ex : "il est 3H" ==> je souhaite récupérer 3

Merci de l'aide

.



Avatar
Jacky
Oublie vite, ce n'est valable que pour un mot
JJ
"Jacky" a écrit dans le message news:
#
bonjour Mathilde

A condition que le texte soit toujours qu'une seule lettre à la fin du mot
Le mot en A1
=GAUCHE(A1;NBCAR(A1)-1)
Salutations
JJ

"Mathilde" a écrit dans le message
news:

13f1001c417cf$9d0005b0$
Bonjour,

Je souhaite extraire d'une cellule un nombre qui se trouve
parmi du texte.
ex : "il est 3H" ==> je souhaite récupérer 3

Merci de l'aide





Avatar
AV
Je souhaite extraire d'une cellule un nombre qui se trouve
parmi du texte.
ex : "il est 3H" ==> je souhaite récupérer 3


Matricielle :
=1*STXT(A1;EQUIV(1;1*ESTNUM(1*STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1));0);SOM
ME(1*ESTNUM(1*STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1))))

AV

Avatar
Modeste
Bonjour,
autre solution :
pour obtenir le résultat numérique d'une expression texte
qui melange les torchons et les serviettes, je pousserai
alors le bouchon jusque :

Function CalculExp(Expression)
Application.Volatile
Numeriques=",()+*-/^0123456789"
For i = 1 To Len(Expression.Value)
If InStr(1, Numeriques, Mid(Expression, i, 1))
Then sExp = sExp + Mid(Expression, i, 1)
Next
CalculExp = Evaluate(sExp)
End Function

soit :
A B
15 poireaux +8 carottes 23 formule en B1 ÊlculExp
(A1)
128 torchons +542 serviettes 670 formule en B2 ÊlculExp
(A2)
2*9 Go+5*18 Go 108 formule en B3 ÊlculExp
(A3)
"il est 17H45" 1745 formule en B4 Êlculexp
(A4)

@+

-----Message d'origine-----
Bonjour,

Je souhaite extraire d'une cellule un nombre qui se
trouve

parmi du texte.
ex : "il est 3H" ==> je souhaite récupérer 3

Merci de l'aide

.