enlever caracteres alphabetique d'une chaine alphanumerique

[nsqualli]

Bonjour a tous,

SVP je cherche une fonction qui m'enlèvera les caracteres alphabetique d'une chaine alphanumérique.
par exemple je donne la chaine "A123B2" et ça me retourne "1232".

Merci d'avance.

 

[Xion]

Re : enlever caracteres alphabetique d'une chaine alphanumerique

Bonjour à tout le forum, Efgé, Jocelyn,

En continuant (avec acharnement) de "fouiner" sur le forum j'ai réussi à trouver les lignes de code suivantes:

Sub test_i()
Dim a$, b$, i%, j%
Application.ScreenUpdating = False
For j = [A65536].End(xlUp).Row To 1 Step -1
a$ = Cells(j, 1).Text
For i = 1 To Len(a$)
b$ = Mid(a$, i, 1)
If b$ Like "[A-Z,a-z,0-9]" Then
Cells(j, 2).Value = Cells(j, 2).Value & b$
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub

Ce code me permet de scanner le contenu des cellules d'une plage et de detecter le type de caractères présents dans la clellule par rapport à une liste donnée définie "[A-Z,a-z,0-9]" .

J'ai adapté le tout à mon code et cela fonctionne nickel.

Merci à vous deux pour votre temps accordé à mon problème.

Bien cordialement,

 

[missLaura]

Re : enlever caracteres alphabetique d'une chaine alphanumerique

Salut Xion,
Pour le bout de programme que tu a écrit :

If b$ Like "[A-Z,a-z,0-9]" Then
Cells(j, 2).Value = Cells(j, 2).Value & b$
End If

Serait-ce possible de faire la même chose avec une plage de cellules de sorte que si b$ est égal au contenu de l'une des cellules de cette plage, cela soit détecté. Un truc dur genre :

If b$ Like range("A1:A20") Then
Cells(j, 2).Value = Cells(j, 2).Value & b$
End If

 

[Efgé]

Re : enlever caracteres alphabetique d'une chaine alphanumerique

Bonjour missLaura
Regarde si ce fil peut t'être utile.
Cordialement