Bonsoir,
Ceci devrait pouvoir convenir :
Function MTexte(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) < 48 Or Asc(Mid(Valtexte, i, 1)) > 57 Then _
MTexte = MTexte & Mid(Valtexte, i, 1)
Next
End Function
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"SylVBA" a écrit dans le message denews:3f
Bsr à toutes & tous,
Jai trouvé il y a quelques temps (oups je ne connais pas lauteur d e
ce joli code sorry !) une fonction qui me permet dextraire les
nombres dune chaine
Par exemple : Med231Orthopleis me donne 231 et cest parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant linverse, c'est-à-dire une autre fonction qui
me donne la possibilité dextraite la chaine de caractères sans les
chiffres et en conservant lordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Bonsoir,
Ceci devrait pouvoir convenir :
Function MTexte(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) < 48 Or Asc(Mid(Valtexte, i, 1)) > 57 Then _
MTexte = MTexte & Mid(Valtexte, i, 1)
Next
End Function
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"SylVBA" <sylvie.lauren...@wanadoo.fr> a écrit dans le message denews:3f 7b3cc6-a45b-4a71-8be8-dc6cee886b4b@x41g2000hsb.googlegroups.com...
Bsr à toutes & tous,
Jai trouvé il y a quelques temps (oups je ne connais pas lauteur d e
ce joli code sorry !) une fonction qui me permet dextraire les
nombres dune chaine
Par exemple : Med231Orthopleis me donne 231 et cest parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant linverse, c'est-à-dire une autre fonction qui
me donne la possibilité dextraite la chaine de caractères sans les
chiffres et en conservant lordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Bonsoir,
Ceci devrait pouvoir convenir :
Function MTexte(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) < 48 Or Asc(Mid(Valtexte, i, 1)) > 57 Then _
MTexte = MTexte & Mid(Valtexte, i, 1)
Next
End Function
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/t rombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"SylVBA" a écrit dans le message denews:3f
Bsr à toutes & tous,
Jai trouvé il y a quelques temps (oups je ne connais pas lauteur d e
ce joli code sorry !) une fonction qui me permet dextraire les
nombres dune chaine
Par exemple : Med231Orthopleis me donne 231 et cest parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant linverse, c'est-à-dire une autre fonction qui
me donne la possibilité dextraite la chaine de caractères sans les
chiffres et en conservant lordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" a écrit dans le message de news:
Bsr à toutes & tous,
Jai trouvé il y a quelques temps (oups je ne connais pas lauteur d e
ce joli code sorry !) une fonction qui me permet dextraire les
nombres dune chaine
Par exemple : Med231Orthopleis me donne 231 et cest parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant linverse, c'est-à-dire une autre fonction qui
me donne la possibilité dextraite la chaine de caractères sans les
chiffres et en conservant lordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" <sylvie.lauren...@wanadoo.fr> a écrit dans le message de news:
3f7b3cc6-a45b-4a71-8be8-dc6cee886...@x41g2000hsb.googlegroups.com...
Bsr à toutes & tous,
Jai trouvé il y a quelques temps (oups je ne connais pas lauteur d e
ce joli code sorry !) une fonction qui me permet dextraire les
nombres dune chaine
Par exemple : Med231Orthopleis me donne 231 et cest parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant linverse, c'est-à-dire une autre fonction qui
me donne la possibilité dextraite la chaine de caractères sans les
chiffres et en conservant lordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" a écrit dans le message de news:
Bsr à toutes & tous,
Jai trouvé il y a quelques temps (oups je ne connais pas lauteur d e
ce joli code sorry !) une fonction qui me permet dextraire les
nombres dune chaine
Par exemple : Med231Orthopleis me donne 231 et cest parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant linverse, c'est-à-dire une autre fonction qui
me donne la possibilité dextraite la chaine de caractères sans les
chiffres et en conservant lordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" a écrit dans le message de news:
Bsr à toutes & tous,
J'ai trouvé il y a quelques temps (oups je ne connais pas l'auteur de
ce joli code sorry !) une fonction qui me permet d'extraire les
nombres d'une chaine
Par exemple : Med231Orthopleis me donne 231 et c'est parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant l'inverse, c'est-à-dire une autre fonction qui
me donne la possibilité d'extraite la chaine de caractères sans les
chiffres et en conservant l'ordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" <sylvie.laurent82@wanadoo.fr> a écrit dans le message de news:
3f7b3cc6-a45b-4a71-8be8-dc6cee886b4b@x41g2000hsb.googlegroups.com...
Bsr à toutes & tous,
J'ai trouvé il y a quelques temps (oups je ne connais pas l'auteur de
ce joli code sorry !) une fonction qui me permet d'extraire les
nombres d'une chaine
Par exemple : Med231Orthopleis me donne 231 et c'est parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant l'inverse, c'est-à-dire une autre fonction qui
me donne la possibilité d'extraite la chaine de caractères sans les
chiffres et en conservant l'ordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" a écrit dans le message de news:
Bsr à toutes & tous,
J'ai trouvé il y a quelques temps (oups je ne connais pas l'auteur de
ce joli code sorry !) une fonction qui me permet d'extraire les
nombres d'une chaine
Par exemple : Med231Orthopleis me donne 231 et c'est parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant l'inverse, c'est-à-dire une autre fonction qui
me donne la possibilité d'extraite la chaine de caractères sans les
chiffres et en conservant l'ordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" a écrit dans le message de news:
Bsr à toutes & tous,
J'ai trouvé il y a quelques temps (oups je ne connais pas l'auteur de
ce joli code sorry !) une fonction qui me permet d'extraire les
nombres d'une chaine
Par exemple : Med231Orthopleis me donne 231 et c'est parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant l'inverse, c'est-à-dire une autre fonction qui
me donne la possibilité d'extraite la chaine de caractères sans les
chiffres et en conservant l'ordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" <sylvie.laurent82@wanadoo.fr> a écrit dans le message de news:
3f7b3cc6-a45b-4a71-8be8-dc6cee886b4b@x41g2000hsb.googlegroups.com...
Bsr à toutes & tous,
J'ai trouvé il y a quelques temps (oups je ne connais pas l'auteur de
ce joli code sorry !) une fonction qui me permet d'extraire les
nombres d'une chaine
Par exemple : Med231Orthopleis me donne 231 et c'est parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant l'inverse, c'est-à-dire une autre fonction qui
me donne la possibilité d'extraite la chaine de caractères sans les
chiffres et en conservant l'ordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
Il y a aussi ceci :
Sub test()
MsgBox SansChiffre("Med231Orthopleis")
End Sub
'------------------
Function SansChiffre(Exp As String)
For a = 0 To 9
Exp = Replace(Exp, CStr(a), "")
Next
SansChiffre = Exp
End Function
'-------------------
"SylVBA" a écrit dans le message de news:
Bsr à toutes & tous,
J'ai trouvé il y a quelques temps (oups je ne connais pas l'auteur de
ce joli code sorry !) une fonction qui me permet d'extraire les
nombres d'une chaine
Par exemple : Med231Orthopleis me donne 231 et c'est parfait !
Msgbox chiffre(Med231Orthopleis) me donne bien 231 dans la boite de
dialogue
Je cherche maintenant l'inverse, c'est-à-dire une autre fonction qui
me donne la possibilité d'extraite la chaine de caractères sans les
chiffres et en conservant l'ordre des lettres et les Maj/Min
Par ex : Med231Orthopleis donnerait : MedOrthopleis
Cette fonction sera utilisée dans une proc. Vba et pas comme formule
de feuille de calcul (pour info)
Voici la formule Chiffre (et par la même occasion merci à son
auteur !)
Function Chiffre(Valtexte As String)
Dim MyValue, i
For i = 1 To Len(Valtexte)
If Asc(Mid(Valtexte, i, 1)) >= 48 And Asc(Mid(Valtexte, i, 1)) <= 57
Then _
Chiffre = Val(Chiffre & Mid(Valtexte, i, 1))
Next
End Function
Par avance je suis certaine que vous allez trouver cela
Merci à vous et bonne soirée, au plaisir de vous lire
SylVBA
"Replace" est une méthode de la bibliothèque "VBA" qui a été
intégré à excel avec la version Excel 2000.
Avec une version Excel 97, tu peux simplement remplacer
Replace par -> Application.Substitute dans la fonction proposée
c'est suffisant !
Ou bien, ma tricherie proposé dans le post précédent.
"Replace" est une méthode de la bibliothèque "VBA" qui a été
intégré à excel avec la version Excel 2000.
Avec une version Excel 97, tu peux simplement remplacer
Replace par -> Application.Substitute dans la fonction proposée
c'est suffisant !
Ou bien, ma tricherie proposé dans le post précédent.
"Replace" est une méthode de la bibliothèque "VBA" qui a été
intégré à excel avec la version Excel 2000.
Avec une version Excel 97, tu peux simplement remplacer
Replace par -> Application.Substitute dans la fonction proposée
c'est suffisant !
Ou bien, ma tricherie proposé dans le post précédent.