Extraction

Le
Mathilde
Bonjour,

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

Merci de l'aide
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #1291959
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" 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
Le #1291958
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

.



Jacky
Le #1221649
Oublie vite, ce n'est valable que pour un mot
JJ
"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" 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





AV
Le #1221647
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

Modeste
Le #1221277
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

.



Publicité
Poster une réponse
Anonyme