Reconnaitre une lettre d'un chiffre dans une cellule en VBA

Bonjour à vous,

Grâce à un code VBA:

J voudrais faire un code "IF" afin de savoir son ma valeur en cellule A1 (exemple: D25C71116) est sous la forme (Lettre / Chiffre / Chiffre / Lettre / Chiffre...)

Si c'est la cas, Msgbox "OK" sinon "NOK"

bonjour,

If variable Like "[A-z]##[A-z]#" Then 'lettre/chiffre/chiffre/lettre/chiffre

[A-z] = une lettre parmi les lettres de A à Z majuscules et minuscules.

# = un chiffre 0-9

Bonjour,

Une proposition via l'utilisation d'une fonction :

Sub test()
    If si_lettre_chiffre(Range("A1")) Then
        MsgBox "OK"
    Else
        MsgBox "NOK"
    End If

End Sub

Function si_lettre_chiffre(chaîne As String) As Boolean
    'cocher la référence : Microsoft VBScript Regular Expressions 5.5
    Dim Rgex As Object
    Set Rgex = CreateObject("vbscript.regexp")
    With Rgex
        .Global = True          ' Définit le champ d'application.
        .IgnoreCase = True      ' Ignore la casse.
        .Pattern = "[A-Z][0-9]"   ' A à Z, 0 à 9
        si_lettre_chiffre = .test(chaîne)
    End With
    Set Rgex = Nothing

End Function

Bonjour à vous,

C'est parfait, merci à vous deux !