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,