XL 2021 VBA format d'un Like

Sub test()
     Dim s, sp, i
     s = "123456789/987654321/-1234/123.45/123a45"
     sp = Split(s, "/")
     For i = 0 To UBound(sp)
          b = (CStr(Val(sp(i))) = sp(i))
          If Not b Then MsgBox "erreur : " & sp(i): Exit For
     Next
     MsgBox IIf(b, "", "not ") & "okay"
End Sub

Function EstCommeJeVeux(x As String) As Boolean
Dim i&, j&
   If Not x Like "*#/#*" Then Exit Function
   i = InStr(x, "/")
   For j = 1 To i - 2
      If Not Mid(x, j, 1) Like "#" Then Exit Function
   Next j
   For j = i + 2 To Len(x)
      If Not Mid(x, j, 1) Like "#" Then Exit Function
   Next j
   EstCommeJeVeux = True
End Function

Sub test()
     Dim s, sp, i
     s = Replace("1234/56789/0123/45", "/", "")
     b = (CStr(Val(s)) = s)
     MsgBox IIf(b, "", "not ") & "okay"
End Sub

Function EstCommeJeVeux2(ByVal x As String) As Boolean
Dim i&, j&
   If Not x Like "*#/#*" Then Exit Function Else x = Replace(x, "/", "", , 1)
   For j = 1 To Len(x)
      If Not Mid(x, j, 1) Like "#" Then Exit Function
   Next j
   EstCommeJeVeux2 = True
End Function

Function Nombre(N)
If IsNumeric(Replace(N, "/", "")) Then Nombre = True Else Nombre = False
End Function

If Nombre(Chaine) Then MsgBox "OK" Else MsgBox "KO"

Function EstNombreSlashNombre(texte) As Boolean
    Dim reg As Object
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .pattern = "^\d+/\d+$"
        .IgnoreCase = True
        .Global = False
    End With
    EstNombreSlashNombre = reg.test(texte)
End Function
Sub Test_EstNombreSlashNombre()
    Dim tests As Variant, t As Variant, resultat As Boolean
    ' Tableau de cas de test
    tests = Array("12/5", "3/14", "0/1", "123456/7890", "12 / 5", " 12/5", _
                  "12/5 ", "abc/12", "12/abc", "12/", "/12", "12-5", "12//5", _
                  "12/5/7", "12.5/7", "12/7.5", "", " ", "12/ 5", " 12 / 5 ", "0012/0005")
    Debug.Print "=== TEST DE LA FONCTION EstNombreSlashNombre ==="
    For Each t In tests
        resultat = EstNombreSlashNombre(t)
        Debug.Print """" & t & """ => " & IIf(resultat, "OK", "NON")
    Next t
End Sub

Sub test()
    Chaine = "125635/45236/45896"
    If Chaine Like "*#/#*" Then MsgBox "OK" Else MsgBox "pas ok '??????????????????????????????????"

    Chaine2 = "125635/ert45236/edfr45896"
    If Chaine2 Like "*#/#*" Then MsgBox "OK" Else MsgBox "pas ok" '??????????????????????????????????

    Chaine3 = "125635/ert45236/edfr45896"
    If Chaine3 Like "*#/*#*" Then MsgBox "OK" Else MsgBox "pas ok '??????????????????????????????????"

End Sub

Nombre = IsNumeric(Replace(N, "/", ""))

Private Function IntegerSlashInteger(ByVal S As String) As Boolean
    Dim i1 As Integer
    Dim i2 As Integer
  
    S = Replace(S, " ", "")
  
    For i1 = 1 To 10
        If S Like String(i1, "#") & "/*" Then Exit For
    Next i1
    If i1 > 10 Then Exit Function
  
    For i2 = 1 To 10
        If S Like String(i1, "#") & "/" & String(i2, "#") Then Exit For
    Next i2
    If i2 > 10 Then Exit Function
  
    IntegerSlashInteger = True
End Function

Sub test()
chaine = "dfrgfr8/5frferf"

MsgBox chaine & vbCrLf & CStr(chaine Like "*[0-9][0-9]/[0-9][0-9]*")

chaine2 = "dfrgfr68/52frferf"

MsgBox chaine2 & vbCrLf & CStr(chaine2 Like "*[0-9][0-9]/[0-9][0-9]*")

End Sub