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
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
.
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
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
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
Oublie vite, ce n'est valable que pour un mot
JJ
"Jacky" <Jackyenlevez.jaeg@wanadoo.fr> a écrit dans le message news:
#R28rz9FEHA.264@TK2MSFTNGP12.phx.gbl...
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" <mathilde2.lucas@francetelecom.com> a écrit dans le message
news:
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
.
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 =CalculExp
(A1)
128 torchons +542 serviettes 670 formule en B2 =CalculExp
(A2)
2*9 Go+5*18 Go 108 formule en B3 =CalculExp
(A3)
"il est 17H45" 1745 formule en B4 =Calculexp
(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
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