Remplir textbox fonction d'un combobox

Version imprimable

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:

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

31/03/2016, 10h31
mercatog

Utilises plutôt une Combobox à 2 colonnes, c'est mieux

merci pour la réponse rapide mais je sais pas comment faire Combobox à deux colonnes !!! coup de main svp
j'ai essayer ca sans résultat
et aussi je sais pas comment remplir colonne 2 de combobox en fonction colonne 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm1_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
       With ComboBox1
          .Column.Count = 2
          .ColumnWidths = "100 pt;100 pt"
          .Column(1).List = d1.Keys
       End With
End Sub

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
Dim TV As Variant
TV = f1.Range("A2:B" & l1)
For I = 1 To UBound(TV, 1)
    If CStr(TV(I, 1)) = CStr(Me.combobox1.Value) Then TextBox1.Value = TV(I, 2): Exit For
Next I
 
'If IsNumeric(Me.ComboBox1.Value) Then code = CLng(Me.ComboBox1.Value) Else: code = Me.ComboBox1.Value
 
End Sub

Plutôt comme ceci :
Code:

1 2 3 4 ComboBox1.ColumnCount = 2 ComboBox1.ColumnWidths = "50;200" ComboBox1.ListWidth = 260 ComboBox1.List = Range("A1:B7").Value
A adapter pour l'insertion des données :)

Ou sans doublons selon ta méthode

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub UserForm_Initialize()
Dim D1 As Object
Dim i As Long
Dim Tb
 
With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "30;100"
End With
 
With Feuil1
    Tb = .Range("A2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
 
Set D1 = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Tb, 1)
    If Not D1.Exists(Tb(i, 1)) Then
        D1.Add Tb(i, 1), Tb(i, 2)
        With Me.ComboBox1
            .AddItem Tb(i, 1)
            .List(.ListCount - 1, 1) = Tb(i, 2)
        End With
    End If
Next i
Set D1 = Nothing
End Sub

31/03/2016, 11h14
cerede2000

Si tant est qu'il y ai des doublons au départ :aie:
31/03/2016, 11h16
BENNASR

bonjour et merci Thautheme, cerede2000, mercatog et merci a tous
la méthode de mercatog qui élimine les doublons me convient et je vous merci encore :P