Supprimer toute lettre d'une chaîne de caractères sous VBA

Bonjour,

Je cherche à supprimer toute lettre d'une chaîne de caractères, dont les positions varient, sous VBA telles que :

41755_2024_ue725
41755_2024_va400

Ici, je ne veux pas de "ue" et "va" .

Je ne trouve pas de solution. Auriez vous quelque suggestion ?

Merci par avance.

Bonjour

Un essai à tester. Te convient-il ?

8classeur1-v1.xlsm (15.90 Ko)

Bye !

Bonjour à tous,

Avec une fonction :

Function SansAlpha(ByVal Chaine As String) As String

Dim I As Integer, J As Integer

    SansAlpha = ""

    For I = 1 To Len(Chaine)
        For J = 0 To 255
            If Mid(Chaine, I, 1) = Chr(J) Then
               Select Case J
                     Case 65 To 90, 97 To 122

                     Case Else
                          SansAlpha = SansAlpha & Chr(J)
                End Select
            End If
        Next J

    Next I

End Function

Bonjour,

Navré pour ma réponse tardive. J'ai finis par trouver une solution en ayant d'abord exploré vos propositions pour les adapter.

Merci.

Rechercher des sujets similaires à "supprimer toute lettre chaine caracteres vba"