Bonjour tout le monde et merci d'avance
dans la colonne A de la feuil1 j'ai les codes banques
dans la colonne B de la feuil1 j'ai les noms banques
j'arrive à charger le combobox par la code banque mais non pas le nom de la banque qui se change en fonction de la code banque

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim f1 As Worksheet
Dim l1 As Long
Dim d1 As Object
Private Sub ComboBox1_Change()
If IsNumeric(Me.ComboBox1.Value) Then code = CLng(Me.ComboBox1.Value) Else: code = Me.ComboBox1.Value
'--- Ce que je veux faire c'est remplir le textbox1
' TextBox1.Value = ??????????????????
End Sub
Private Sub UserForm_Initialize()
    Set f1 = Feuil1
    Set d1 = CreateObject("Scripting.Dictionary")
    l1 = f1.Range("A" & Rows.Count).End(xlUp).Row
        For Each Cell In f1.Range("a2:a" & l1)
            If Cell.Value <> "" Then d1(Cell.Value) = Cell.Value
        Next Cell
            Me.ComboBox1.List = d1.Keys
End Sub