Alimenter Combobox et Textbox via Dictionary

[cathodique]

Bonsoir,

Je récupère dans un dictionnaire les données de la colonne B et celles de la colonne J.
Je voudrais qu'au choix dans combobox1, j'ai la correspondance en textbox1.
J'avoue que je ne maitrise pas bien le dictionnaire. Merci de m'aider.

Option Explicit
Dim ShBd As Worksheet, rng As Range, BD, d As Object, temp, temp1
Private Sub UserForm_Initialize()
   Dim i As Integer
   '   Set UserActif = Me
   Set ShBd = ThisWorkbook.Sheets("Comptes")
   Set rng = ShBd.Range("A6:L" & ShBd.[A65000].End(xlUp).Row)

   BD = rng.Value
   Set d = CreateObject("Scripting.Dictionary")
   For i = LBound(BD) To UBound(BD)
      d(BD(i, 2)) = ""    'N°Facture
      If Not d.exists(BD(i, 2)) Then d.Add BD(i, 2), BD(i, 10)
   Next i
   temp = d.keys
   temp1 = d.items
Me.ComboBox1.List = temp
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
'c'est ici que je bloque
End Sub

 

[Si...]

Re

Merci pour ton retour. 🙂

Je précise quand même, que mes propositions s'adressent à tous les demandeurs qui seraient intéressés.

Bon courage pour la suite de ton projet...