Strings: N'extraire que les caractères alphabétiques d'une chaîne	Author(s) Dev Ashish

N'extraire que les caractères alphabétiques d'une chaîne.

(Q) Comment je fais pour n'extraire que les caractères d'une chaîne possédant également des chiffres?

(A) Utiliser la fonction suivante. Noter que la boucle If peut être modifiée pour n'extraire que soit des minuscules, que des majuscules, ou tous deux, comme maintenant.

'************ Code Start **********
Function fExtractStr(ByVal strInString As String) As String
Dim lngLen As Long, strOut As String
Dim i As Long, strTmp As String

    lngLen = Len(strInString)
    strOut = ""
    For i = 1 To lngLen
        strTmp = Left$(strInString, 1)
        strInString = right$(strInString, lngLen - i)
        'Pour extraire et des minuscules et des majuscules
        If (Asc(strTmp) >= 65 And Asc(strTmp) <= 90) Or _
            (Asc(strTmp) >= 97 And Asc(strTmp) <= 122) Then
            'pour n'extraire que les minuscules, utiliser la limite 97 - 122
            'pour n'extraire que les majuscules, utiliser la limite 65 - 90
            strOut = strOut & strTmp
        End If
    Next i
    fExtractStr = strOut
End Function
'************ Code End **********