Valeur mise automatiquement dans une userform

Option Explicit

Private TabData As Variant

Private Sub UserForm_Initialize()
    With Sheets('Feuil1')
        TabData = .Range(.Range('A2'), .Range('C65536').End(xlUp))
    End With
   
    With Me.CB_01
        .List() = TabData
        .MatchRequired = True
    End With
End Sub

Private Sub CB_01_Change()
    With Me.CB_01
        Me.TB_01 = TabData(.ListIndex + 1, 2)
        Me.TB_02 = TabData(.ListIndex + 1, 3)
    End With
End Sub

Cliquez pour agrandir...