Bonjour à tous je viens vers vous pour un petit probleme je charge ma combobox sans doublon avec ce code.
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
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
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