Alimenter textbox selon la valeur dans la combobox

[creolia]

Bonjour à tous je viens vers vous pour un petit probleme je charge ma combobox sans doublon avec ce code.

Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range([A2], [A65000].End(xlUp))
     If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
  Next c
  Me.ComboBox1.List = MonDico.items
End Sub

le soucis quand je selectionne exemble D dans ma combobox il y à un decalage qui se fais.

je m'explique en collone A j'ai

A
B
B
D
C

En collone B j'ai
1
2
3
4
5

quand je selectionne D le resultat dans ma combobox m'affiche
3

comment puis je faire svp pour qu'il affiche le bon resultat sans decalage c'est à dire 4 merci d'avance

 

[Pierrot93]

Re : Alimenter textbox selon la valeur dans la combobox

Bonjour,

et si tu selectionne B, il doit t'afficher quoi ? 2 ou 3 ?

bonne journée
@+

 

[Dull]

Re : Alimenter textbox selon la valeur dans la combobox

Salut créolia, le Forum

C'est tordu ton truc

essaye cette ligne de code pour le ComboBox

Private Sub ComboBox1_Change()
Dim C As Range
With Sheets("Feuil1")
Set C = .Columns("A").Find(What:=ComboBox1)
If Not C Is Nothing Then TextBox1 = C.Offset(, 1)
End With
End Sub

mais avec ce code Si on choisit B tu n'auras que la 1ère valeur trouvé soit 2 et non 3... à toi de voir

EDITION: Salut Pierrot pas rafraichit mais même conclusion

Bonne Journée

 

[creolia]

Re : Alimenter textbox selon la valeur dans la combobox

Bonjour Dull bonjour pierrot93

merci Dull pour ton bout de code c'est exactement cela
si je choisis B sa doit afficher la premiere valeur du premier B c'est à dire 2
mais le code de dull à résolu mon probleme merci à vous deux à bientot