Enlever caracteres alphabetique d'une chaine alphanumerique

Bonjour a tous,

SVP je cherche une fonction qui m'enlèvera les caracteres alphabetique d'une chaine alphanumerique.

par exemple je donne la chaine "A123B2" et ça me retourne "1232".

Merci d'avance.

Salut le forum

Nsqualli, c'est bien de mettre résolu, mais pour aider les autres, merci de donner ta solution.

Mytå

Bonsoir,

Mytå, depuis le temps, tu devrais le connaître....

Le quidam multiposte tellement, que quand il a une réponse, il semble oublier les autres.....

PS, nsqualli, ne pense rien, tu le prouves......

oui vous avez raison, je devais mettre ma solution, au fait j'ai pas trouvé de fonction qui fait ça, c-a-dire qu'elle traite pour une chaine caractere par caractere, donc j'ai fais la macro suivante:

Function RetournerNumRef(Reference1)
Dim i As Byte, Nb As Byte
Dim Cible As String, Resultat As String
Dim Nombre As Double

Cible = Reference1

For i = 1 To Len(Cible)
    If IsNumeric(Mid(Cible, i, 1)) Then
        Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        Nb = Nb + 1
        Resultat = Resultat & Nombre
        i = i + Len(Str(Nombre)) - 1
    End If
Next

RetournerNumRef = Resultat

End Function

bon courage

Re le forum

La fonction légèrement simplifié (C'est bien de donner un code de Silkyroad)

Mais il faut l'adapter au besoin.

Function RetournerNumRef(Cellule)
Dim I As Byte
Dim Resultat As String
  Application.Volatile
    If Cellule.Count > 1 Then
        RetournerNumRef = "Erreur plage sélectionnée"
        Exit Function
    End If

For I = 1 To Len(Cellule)
    If IsNumeric(Mid(Cellule, I, 1)) Then
        Resultat = Resultat & Val(Mid(Cellule, I, 1))
    End If
Next I

RetournerNumRef = Resultat

End Function

Mytå