Discussion :

[Pierre67]

Bonjour

a travers une textbox j'essaye de filtrer une listbox.
j'ai trouver une procédure que j'ai intégrée dans mon application mais qui me renvoie une erreur 380 " impossible de définir la propriété column. Valeur de propriét" non valide".

ci-dessous le code qui amène l'erreur

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
ListPV.Clear 'vide la ListPV
For I = 5 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes I du tableau de cellule TC (en partant de la seconde)
    For J = 1 To 8 'boucle 2 : sur les colonnes J de 1 à 8 du tableau de cellules TC
        'condition : si la valeur ligne I colonne J de TC contient le valeur de la TextBox1
        If LCase(TC(I, J)) Like LCase(TextBox1.Value) & "*" Then
             'prend en compte la ListPV
                ListPV.AddItem 'prend en compte la ListPV
                For K = 0 To 7 'boucle 3 : sur les 8 premières colonne de la ListPV
                    ListPV.Column(K, ListPV.ListCount - 1) = TC(I, K + 1) 'ajoute à la colonne K de la ListPV la valeur ligne I , colonne K+1 de TC
                Next K 'prochaine colonne de la boucle 3
                ListPV.Column(8, ListPV.ListCount - 1) = I 'récupère dans la colonne 8 (cachée) le numéro de ligne
             'fin de la prise en compte de la ListPV
 
            Exit For 'sort de la boucle 2
        End If 'fin de la condition
    Next J 'prochaine colonne de la boucle 2
Next I 'prochaine ligne de la boucle 1

[riaolle]

Bonjour,
L'erreur " impossible de définir la propriété column" indique que tu veux utiliser la propriété Colum sur un objet qui n'est pas défini pour cette propriété. Un exemple dans la "vraie vie" serait : je veux utiliser la propriété "couleur des yeux" pour l'objet "maison" Ca ne va pas ...
Peux-tu nous dire plus précisemment pourquoi tu voulais utiliser la propriété column?

EDIT : provenant du site de boisgontier :
Supposons que tu veux faire une liste à 2 colonnes et que la source pour cette liste se trouve sur deux colonnes côte à côte sur une feuille Excel. c étant la cellule dont tu veux ajouter la valeur à ta liste (i èma valeur) :

Code :

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

1
2
3
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Value        'ajout dans la 1ère colonne
Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value       'ajout dans la 2ème colonne

[joe.levrai]

Bonjour,

utilise la propriété .List(Row,Column) de ListBox

regarde l'aide à ce sujet

un petit sujet pas inopportun qui traite de .List : https://www.developpez.net/forums/d6...lonne-d-liste/

et un tutoriel qui traite des contrôles de formulaire, notamment ListBox : http://silkyroad.developpez.com/VBA/...serForm/#LII-G

[boisgontierjacques]

Bonsoir,


Exemples de filtrage d'une ListBox avec un textBox:

-Si la BD est de taille importante, il faut utiliser List ou Column plutôt que AddItem.

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
20
21
22
23
24
25
26
27
28
 
Dim f, bd
Option Compare Text
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set d = CreateObject("Scripting.Dictionary")
  bd = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  'Tri bd, LBound(bd), UBound(bd), 1  ' version tri
  Me.ListBox1.List = bd
  For i = LBound(bd) To UBound(bd)
     d(bd(i, 3)) = ""
  Next i
  Me.ComboBox1.List = d.keys
  Me.ListBox1.ColumnCount = 4
  Me.ListBox1.ColumnWidths = "40;30;50;30"
End Sub
 
Private Sub ComboBox1_click()
  ville = Me.ComboBox1: n = 0
  Dim Tbl()
  For i = 1 To UBound(bd)
    If bd(i, 3) = ville Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(bd, 2), 1 To n)
        For k = 1 To UBound(bd, 2): Tbl(k, n) = bd(i, k): Next k
     End If
  Next i
  Me.ListBox1.Column = Tbl
End Sub

Boisgontier

[Pierre67]

bonjour et merci pour votre contribution et l'aide apportée à la résolution de mon souci

bien à vous