Supprimer des chiffres dans une chaine

[alstar]

Bonjour.

Je souhaite supprimer les chiffres contenus dans une chaine sachant que ceux ci peuvent être au début, au milieu ou à la fin de la chaine.
Exemple :
"5camelia 45" doit donner "camelia"
ou
"UDA 60 ROQUES" doit donner "UDA ROQUES"

Je n'arrive pas à un résultat correct simplement...

Vous pouvez m'aider ?

 

[mromain]

Re : Supprimer des chiffres dans une chaine

bonjour alstar,

voici un exemple :

Public Function maFonction(laVar As Variant) As String
Dim leMot As String, i As Integer
leMot = laVar
For i = 1 To Len(leMot)
    If Not IsNumeric(Mid(leMot, i, 1)) Then maFonction = maFonction & Mid(leMot, i, 1)
Next i
End Function

a+

 

[alstar]

Re : Supprimer des chiffres dans une chaine

Génial ca fonctionne !!!

Bravo!

 

[alstar]

Re : Supprimer des chiffres dans une chaine

J'abuse mais maintenant j'ai besoin de l'inverse c'est a dire supprimer tous les caracteres alpha d'une chaine de nombre

Exemple :
"45600a" doit donner "45600"
"ER35 R 600" doit donner "35600"

Ca te semble jouable ?

Merci d'avance!

 

[mromain]

Re : Supprimer des chiffres dans une chaine

re,

juste un Not à enlever :

Public Function maFonction(laVar As Variant) As String
Dim leMot As String, i As Integer
leMot = laVar
For i = 1 To Len(leMot)
    If IsNumeric(Mid(leMot, i, 1)) Then maFonction = maFonction & Mid(leMot, i, 1)
Next i
End Function

a+

 

[alstar]

Re : Supprimer des chiffres dans une chaine

Ah oui...aussi simple que cela...
Bon, ben un grand merci !!!