Discussion :

[scoulibri]

hello
je souhaite recuperer dans la listbox de mon userform, deux colonnes sans doublon
Grace aux tutoriels, j'ai reussi a gerer la partie sans doublon et a afficher un colonne.

• On fait comment pour afficher la deuxieme colonne?
• j'aimerai bien aussi pourvoir organiser la colonne valeur du plus petit au plus grand

Merci du temps que vous aller me consacrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'2/initialize dealer zone
    Dim cell As Range
    Dim unique As New Collection
    Dim valeur As Range
 
 
 
 i = Sheets("Citroen_Dealers_target").Range("A65536").End(xlUp).Row
 On Error Resume Next
 For Each cell In Range("A1:A" & i)
 unique.Add cell, CStr(cell)
 Next cell
 On Error GoTo 0
 
 For Each valeur In unique
 Me.ListBox1.AddItem valeur
 Me.ListBox1.List(0, 1) = valeur.Offset(0, 1).value
 
Next valeur

[gnain]

Bonjour,
il faut changé la propriété ColumnCount

pour trier
http://excel.developpez.com/faq/inde...iAlphaComboBox

[scoulibri]

pour trier
http://excel.developpez.com/faq/inde...iAlphaComboBox

ah tiens je l'avais pas vu celui la

en ce qui concerne ma seconde colonne en prenant en compte ta judicieuse remarque sur le .colounmscount
j'ai maintenant, que la premiere ligne qui affiche les deux colonnes

je suppose que je dois faire une boucle?

[gnain]

Bonjour,
essaie comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each valeur In unique
    Me.ListBox1.AddItem valeur
    Me.ListBox1.List(k, 1) = valeur.Offset(0, 1).Value
    k = k + 1
Next valeur

[scoulibri]

question stupide mais je veux etre sur de bien comprendre
K correspond a quoi dans ton code ?
je le definit comme un integer et lui attribue quel valeur?

[gnain]

k est un integer donc Dim k as integer
pas besoin de lui attribuer une valeur au départ mais on peut lui attribué une valeur de 0 (pour la première ligne)

ceci ajoute la première colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ListBox1.AddItem valeur

ceci ajoute la 2e colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Me.ListBox1.List(k, 1) = valeur.Offset(0, 1).Value
    k = k + 1

k commence à 0 pour la première ligne
si on veux qu'il passe à la suivante il faut l'incrémenter alors k = k +1

en espérant de vous avoir éclairé