QUELLE CLASSE ! à limiter à 7 caractères

Public WithEvents Txt As MSForms.TextBox, i As Byte, x As Variant

Private Sub Txt_keyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Txt.MaxLength = 7
With UserForm1
If InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" & vbCr & vbBack, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End With

End Sub

Private Sub Txt_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Len(Txt.Text) < 7 Then
    X = 7 - Len(Txt.Text)
    For i = 1 To X
    Txt.Text = Txt.Text & 0
    Next
End If

End Sub

Public WithEvents Txt As MSForms.TextBox
Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And Txt <> "" And Len(Txt) < 7 Then
Do Until Len(Txt) = 7
Txt = Txt & 0
Loop
End If
End Sub

If (KeyCode = 13 Or KeyCode = 40) And Txt <> "" And Len(Txt) < 7 Then

'---- dans un module de classe nommé Classe2
Option Explicit
Public Event GetFocus()
Public Event LostFocus(ByVal Txtbx As String)
Public nomObjActif As String
 
Public Sub cibleFocus(USF As MSForms.UserForm)
With USF
        If TypeName(.ActiveControl) = "TextBox" Then
            nomObjActif = .ActiveControl.Name
            On Error GoTo errorHandler
            Do
                DoEvents
                If .ActiveControl.Name <> nomObjActif Then
                    If TypeName(.ActiveControl) = "TextBox" Then
                        RaiseEvent LostFocus(nomObjActif)
                        nomObjActif = .ActiveControl.Name
                        RaiseEvent GetFocus
                    End If
                End If
            Loop
            End If
End With
 
errorHandler:
Exit Sub
End Sub

'---  dans l'UserForm  ---
Option Explicit
Private WithEvents USF As Classe2
 
Private Sub UserForm_Activate()
    Set USF = New Classe2
    TextBox1.SetFocus
    USF.cibleFocus Me
End Sub
 
Private Sub UserForm_Initialize()
Dim MonControle As Control
For Each MonControle In Me.Controls
    If TypeName(MonControle) = "TextBox" Then
        MonControle.MaxLength = 7
    End If
Next MonControle
End Sub
Private Sub USF_GetFocus()
End Sub
 
Private Sub USF_LostFocus(ByVal Txtbx As String)
If Len(Me.Controls(Txtbx)) < 8 Then Me.Controls(Txtbx) = _
    Me.Controls(Txtbx) & String(7 - Len(Me.Controls(Txtbx)), "0")
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set USF = Nothing
End Sub