Urgent, pb valeur ds textbox liée à doublon

Fermé
Rimi - 21 janv. 2011 à 13:57
Bonjour à tous, le forum

Après avoir cherché pendant 3 jours, je fais appel au forum pour me dépêtrer de cette situation.
J'ai actuellement un userform dans lequel se trouve un combobox (qui effectue un filtre par couleur de case) et un textbox dans lequel je souhaiterais afficher une valeur correspondant à la même ligne que l'élément sélectionné dans le combobox.

Jusque là j'ai réussi mais le problème est que j'ai des doublons dans ce combobox et que je souhaite que excel les différencie car les données qui se situent sur les mêmes lignes sont différentes. Pour les mêmes valeur dans le combobox je souhaite renvoyer une valeur différentes dans mon textbox. ATTENTION LA TAILLE DE MON TABLEAU EST VARIABLE

colone2 colone4
ex: réf observation
123 test1
124 test2
123 test3

Voici un exemple de mon code:

Private Sub ComboBox1_Change()
Worksheets("Donnée").Select

End Sub

Private Sub UserForm_Initialize()
Dim Lig As Long
With Workbooks("SUIVI-OUTILLAGE.xls").Worksheets("Donnée")
For Lig = 2 To .Range("A65536").End(xlUp).Row
If .Cells(Lig, 2).Interior.ColorIndex = 3 Or .Cells(Lig, 2).Interior.ColorIndex = 45 Then
ComboBox1.AddItem .Cells(Lig, 2).Value
End If
Next Lig
End With
End Sub

Merci d'avance pour votre aide