XL 2021 VBA - Dans un UserForm faire une SetFocus avec le Control.TabIndex

For Each ctrl In Me.Controls
    ctrl.TabIndex = ctrl.TabIndex + 100
Next

'Ou bien
Dim Nb&
Nb = 100
For Each ctrl In Me.Controls
    ctrl.TabIndex = ctrl.TabIndex + Nb
Next

    Controls(index_du_control).setfocus

Private Sub CommandButton1_Click()
Dim TbStop As Boolean
    For I = 0 To Ctl.Count
        With Me.Controls(Ctl(I))
            On Error Resume Next
                TbStop = .TabStop
                If Err Then Err.Clear: TbStop = False
            On Error GoTo 0
            If .Visible = True And TbStop Then
                Me.Controls(Ctl(I)).SetFocus
                Debug.Print "Focus", I, Me.ActiveControl.Name & " - " & Me.ActiveControl.TabIndex
            End If
        End With
    Next
End Sub

Dim Ctl As Dictionary

Private Sub UserForm_Initialize()
....
    Set Ctl = New Dictionary
    Dim C As Control
    For Each C In Me.Controls
        Ctl.Add C.TabIndex, C.Name
    Next
....
End sub

Private Sub UserForm_Initialize()
Frame2.TabStop = True
Frame2.TabIndex = 0
TextBox8.TabIndex = 0
End Sub

Private Sub SetFocusOnNextControl(Optional AfterTabIndex As Integer = -1)
    Dim CurrentTabIndex As Integer
    Dim ErrNumber As Long
    Dim i As Integer
    Dim k As Integer
    Dim AntiLoop As Boolean
  
    If Not AfterTabIndex = -1 Then
        CurrentTabIndex = AfterTabIndex
    Else
        CurrentTabIndex = Me.ActiveControl.TabIndex
    End If
  
ScanControls:

    For k = CurrentTabIndex + 1 To Me.Controls.Count - 1 + 1
        For i = 0 To Me.Controls.Count - 1
            If Me.Controls(i).TabIndex = k Then Exit For
        Next i
      
        If i > Me.Controls.Count - 1 Then
            If AntiLoop Then Exit For
            CurrentTabIndex = -1
            AntiLoop = True
            GoTo ScanControls
        End If
      
        On Error Resume Next
        Me.Controls(i).SetFocus
        ErrNumber = Err.Number
        On Error GoTo 0
      
        If ErrNumber = 0 Then Exit For
    Next k
End Sub