[XL-2007] Suppression de caractères alphabéitiques

[atifo]

Bonjour,
J'ai un problème au niveau de cellule d'excel qui contiennent des caractères alphabétiques et numériques . Je veux supprimer les caractères alphabétiques pour garder seulement les caractères numériques.
Exemple
A19239: le résultat attendu 19239
Merci de m'aider

[pc75]

Bonjour,

Tu peux te faire une fonction personnalisée

Dans un module :

Code :

1
2
3
4
5
6
7
8
9
 
function SuppAlpha(Chaine as string) as string
for i = 1 to len(Chaine)
   if asc(mid(Chaine, i, 1)) >= 0 and asc(mid(Chaine, i, 1)) <= 57 then
      Texte = Texte & mid(Chaine, i, 1)
   end if
next i
SuppAlpha = Texte
end function

Et dans ta cellule

Code :

1
2
=SuppAlpha(Référence de la cellule)