Doublons dans second listbox

[deudecos]

Bonjour a toutes et tous,

Me voici de nouveau avec un probleme dit 'recurent' mais dont je suis bien incapable de me sortir...
Donc pour gagner du temps, je joint mon fichier tronque et superaccourcis avec, bien entendu, ma question en prime !

Si qq se sent l'envie de m'aider... Mais j'aurais aussi besoin d'explications, parce que la... je rame ! :silly:

Merci et bonne fin d'aprem !

Olivier [file name=essais2.zip size=16346]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais2.zip[/file]

 

[Hervé]

Bonjour

ton soucis vient du fait que dans ton tableauvar tu as en doublon Toit atelier auto, tu ne t'en ai pas rendu compte pour les autres items vu qu'il n'y en avait pas. (suis-je clair ?)

Je te propose la solution suivante :

Private Sub Cht_Click()
Dim i As Byte
Dim datalist As Collection
Dim x As Integer

Set datalist = New Collection
TableauVar = Sheets('Feuil2').Range('c1:E' & MaLigne)

Me.Trx.Clear
On Error Resume Next
For x = LBound(TableauVar) To UBound(TableauVar)
    If TableauVar(x, 1) = Me.Cht.Value Then
        datalist.Add TableauVar(x, 2), TableauVar(x, 2)
    End If
Next

For i = 1 To datalist.Count
    Me.Trx.AddItem datalist(i)
Next i

End Sub

En espérant que ceci te conviendra.

Salut

 

[deudecos]

Bonsoir Herve, le forum,

Une fois de plus, ma vie est sauvee grace au concours de personnes passionnees et passionnantes !

Donc, a part, c'est exactement ce que je desirais, je n'ai qu'une chose a dire... Bravo ! et merci !

Bonne soiree

Olivier