Extraire une chaine de caractère dans un texte

Bonjour chers tous

Je souhaiterai savoir s'il est possible d'extraire une chaîne de caractère ayant la même caractéristique dans des chaînes de texte sachant qu'elle n'a pas de positionnement uniforme sur chaque ligne.

exemple : une chaine contenant successivement 2 chiffres et 2 lettres sans espaces

ligne 1 : appeler le numéro 16dd 3 fois

Ligne 2 : 17vv sera assis au rang 5

ligne 3 : le ticket gagnant appartient à 18aa

Je souhaiterai pouvoir sur ces trois lignes ressortir uniquement la chaîne ayant les caractéristiques précisée sur la première ligne de l'exemple.

Bonjour,

Essaie cette fonction personnelle

(le code doit être placé dans un module standard)

Function Extraire_Perso(Cel As Range) As String
Dim i As Integer
Dim K As Byte
Dim Texte As String
    If Len(Cel) > 0 Then
        For i = 1 To Len(Cel)
            If IsNumeric(Cel.Characters(i, 1).Text) And K = 0 Then
                K = 1
                Texte = Texte & Cel.Characters(i, 1).Text
            ElseIf IsNumeric(Cel.Characters(i, 1).Text) And K = 1 Then
                K = 2
                Texte = Texte & Cel.Characters(i, 1).Text
            ElseIf Not IsNumeric(Cel.Characters(i, 1).Text) And Cel.Characters(i, 1).Text <> " " And K = 2 Then
                K = 3
                Texte = Texte & Cel.Characters(i, 1).Text
            ElseIf Not IsNumeric(Cel.Characters(i, 1).Text) And Cel.Characters(i, 1).Text <> " " And K = 3 Then
                Extraire_Perso = Texte & Cel.Characters(i, 1).Text
                Exit Function
            Else
                K = 0
                Texte = ""
            End If
        Next i
    End If
End Function

A+

Merci

bonsoir

pour les privés de vba (formules digestes)

j'ai laissé la col intermediaire (par flemme) mais on pourrait facilement l'integer

cordialement

salut jean eric

me retrouves - tu ?