Modifier listBox multicolonne sans Doublon

Version imprimable

Bonjour
J'alimente une listbox dans un userform sans doublon grâce à ce code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Me.Lst_Personnel.list = Fo_SansDoublonsTrié(shF20.Range("B2:B" & shF20.Range("B2").End(xlDown).Row))
 
Function Fo_SansDoublonsTrié(champ As Range)
Dim i As Integer, j As Integer
Dim témoin As Boolean
Dim temp() As Variant
   j = 1
   ReDim temp(1 To j)
   For i = 1 To champ.Count
      témoin = Not IsError(Application.Match(champ(i), temp, 0))
      If Not témoin And champ(i) <> "" Then
      'If Not témoin And champ(i) <> "" And champ(i).EntireRow.Hidden = False Then
        ReDim Preserve temp(1 To j)
        temp(j) = champ(i)
       j = j + 1
      End If
   Next i
   Call Tri(temp, 1, j - 1)
   Fo_SansDoublonsTrié = Application.Transpose(temp)
End Function
 
Sub Tri(a, gauc, droi)          ' Quick sort
Dim g As Integer, d As Integer
Dim ref As Variant, temp As Variant
 
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
     End If
Loop While g <= d
If g < droi Then Call Tri(a, g, droi)
If gauc < d Then Call Tri(a, gauc, d)
End Sub

Ma listBox "Lst_Personnel" est définie avec sa propriété ColumnCount=2
J'aimerai au besoin pouvoir rajouter des valeurs dans la colonne 2 mais je sèche, le code:

Code:

1
2
3
4
5
6
7
8
 
 
Dim x As Integer
Dim donne As String
    For x = 0 To me.Lst_Personnel.ListCount - 1
        donne = "toto"
        me.Lst_Personnel.Column(1, x) = donne
    Next x

Me renvoie l'erreur impossible de finir la propriété column
et le code:

Code:

1
2
3
4
5
6
7
 
Dim x As Integer
Dim donne As String
    For x = 0 To me.Lst_Personnel.ListCount - 1
        donne = "toto"
        me.Lst_Personnel.list(1, x) = donne
    Next x

Me renvoie l'erreur impossible de finir la propriété list.

Merci de votre aide

25/01/2022, 12h55
barpasc

Sans reproduire votre code, je pense que vous devez dire qu'il y a 2 colonnes dans la liste avant d'écrire dans la 2ème colonne. Je pense que cette instruction devrait faire ça:

Code:

me.Lst_Personnel.ColumnCount = 2

avant d'entrer dans la boucle For

Pascal
http://info2gestion.net

Salut
Citation:
Envoyé par stdonat
Code:

1 2 3 4 5 6 7 8 Dim x As Integer Dim donne As String For x = 0 To me.Lst_Personnel.ListCount - 1 donne = "toto" me.Lst_Personnel.Column(1, x) = donne Next x
Me renvoie l'erreur impossible de finir la propriété column
C'est pourtant la bonne écriture me semble-t-il.
Tu n'aurais pas mis la propriété Locked à true ou enabled à false?

Si tu mets un point d'arrêt F9 sur une ligne (donne = "toto" par exemple), puis que tu fais du pas à pas avec F8. Quelle est la valeur de x lors de l'apparition du message d'erreur?

J'ai testé avec ce code, ça fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub UserForm_Click() ListBox1.AddItem "Essai1" ListBox1.AddItem "Essai2" ListBox1.AddItem "Essai3" Dim x As Integer Dim donne As String For x = 0 To ListBox1.ListCount - 1 donne = "toto" ListBox1.Column(1, x) = donne Next x End Sub
++
Qwaz

Bonjour
Merci pour vos solutions même si elles ne marchent pas(dans mon cas) mais elles m'ont permis de comprendre mon erreur.

En effet lorsque je charge ma listebox avec ma fonction:
Code:

1 2 3 4 5 Me.Lst_Personnel.list = Fo_SansDoublonsTrié(shF20.Range("B2:B" & shF20.Range("B2").End(xlDown).Row)) ... Fo_SansDoublonsTrié = Application.Transpose(temp)
Ma listbox se trouve attribuée avec un variant (temp)à une seule dimension...et dans ce cas il est impossible de rajouter une deuxième dimension

la solution transposer mon tableau(trié) à une dimension dans un tableau à 2 dimensions mais c'est un peu long car obligé de passer par une boucle
Code:

1 2 3 4 5 6 7 8 Dim temp2() ReDim temp2(1 To UBound(temp), 0 To 1) For i = 1 To UBound(temp) temp2(i, 0) = temp(i) Next i Fo_SansDoublonsTrié = temp2
ensuite le code initial fonctionne
Code:

1 2 3 4 5 6 7 8 Dim x As Integer Dim donne As String For x = 0 To me.Lst_Personnel.ListCount - 1 donne = "toto" me.Lst_Personnel.list(1, x) = donne Next x

26/01/2022, 16h33
Qwazerty

Salut

J'ignoré cette subtilité.

As-tu essayé comme le suggère BarPasc, de forcer de nouveau le nombre de colonne à 2 après avoir attribué ton tableau de variant? Dans les faits, peut-être que le fait d'attribué un tableau 1 dim réinitialise la dimension globale de la liste...

++
Qwaz