Filtre pour listbox

Version imprimable

Filtre pour listbox

Bonsoir

A l'aide d'un textbox, je filtre une plage de données pour alimenter une listbox.

Si la valeur recherchée est sur la première colonne. L'affichage se fait fait correctement dans la listbox.

Par contre, si cette valeur est issue d'une autre colonne. L'affichage dans la listbox est décalée.

Avec la fonction C.Offset, je n'arrive pas à me caler toujours dans la même colonne en fonction la ligne trouvé.

Merci de votre aide

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
Private Sub TextBox4_Change()
 
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, N As Integer
Dim C As Range
 
ListBox1.Clear
N = 0
 
Recherche = TextBox4.Value
Range("D4").Select
 
Ligne = Feuil1.Range("D" & "65536").End(xlUp).Row
Set Plage = Feuil1.Range("D" & "3:" & "I" & Ligne)
 
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 
        'alimentation listBox
        ListBox1.AddItem C.Offset(0, 0), N
      '  ListBox1.List(N, 1) = C
        ListBox1.List(N, 1) = C.Offset(0, 1)
        ListBox1.List(N, 2) = C.Offset(0, 2)
        ListBox1.List(N, 3) = C.Offset(0, 3)
        ListBox1.List(N, 4) = C.Offset(0, 4)
        ListBox1.List(N, 5) = C.Offset(0, 5)
        N = N + 1
    End If
 
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With
End Sub

Bonjour,

Un peu au hasard :

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
Private Sub TextBox4_Change()
 
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, N As Integer
Dim C As Range
 
ListBox1.Clear
N = 0
 
Recherche = TextBox4.Value
Range("D4").Select
 
Ligne = Feuil1.Range("D" & "65536").End(xlUp).Row
Set Plage = Feuil1.Range("D" & "3:" & "I" & Ligne)
 
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 
        'alimentation listBox
        ListBox1.AddItem .Cells(C.Row, 1), N
      '  ListBox1.List(N, 1) = C
        ListBox1.List(N, 1) = .Cells(C.Row, 2)
        ListBox1.List(N, 2) = .Cells(C.Row, 3)
        ListBox1.List(N, 3) = .Cells(C.Row, 4)
        ListBox1.List(N, 4) = .Cells(C.Row, 5)
        ListBox1.List(N, 5) = .Cells(C.Row, 6)
        N = N + 1
    End If
 
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With
End Sub

31/12/2012, 16h49
Regor

1 pièce(s) jointe(s)

Bonjour

Merci de l'aide, l'affichage est pratiquement correct.

A l'aide d'un textbox, je filtre une plage de données pour alimenter des listbox.

Maintenant, si la valeur recherchée est aussi sur la ligne des entêtes. Son affichage est prise en compte dans la listbox.

Je n'arrive pas à extraire de la recherche cette ligne des entêtes de colonne.

Merci de votre aide

Cordialement
31/12/2012, 17h24
Daniel.C

Peux-tu mettre un classeur en pièce jointe ?
31/12/2012, 17h30
Philippe Tulliez

Bonjour,
Ton problème vient du fait que tu définis Plage à partir de D1
Donc il faudrait le définir à partir de D5

Code:

Set Plage = Feuil1.Range("D" & "5:" & "I" & Ligne)

Mais alors un autre problème survient parce-que la Variable Objet C à comme adresse la valeur absolue de la feuille alors qu'il faudrait travailler avec une valeur relative par rapport à la plage.
Par exemple en rectifiant par la différence entre ligne de Plage et ligne de C
31/12/2012, 17h38
grisan29

bonjour Regorn daniel_C, philppe Tulliez et les forumeurs

tu n'a que changer sur la ligne

Code:

For Each C In Sheets("Feuil1").Range("D5:D" & der)

le 5 en 4

bon réveillon a tous et bonne année 2013

cordialement

Pascal

Bonjour,
Tu déclares une variable Row de type Long
La partie rouge est ce qu'il faut ajouter ou modifier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
          
        row = C.row - Plage.row + 1
        
        'alimentation listBox
        ListBox1.AddItem .Cells(row, 1), N
      '  ListBox1.List(N, 1) = C
        ListBox1.List(N, 1) = .Cells(row, 2)
        ListBox1.List(N, 2) = .Cells(row, 3)
        ListBox1.List(N, 3) = .Cells(row, 4)
        ListBox1.List(N, 4) = .Cells(row, 5)
        ListBox1.List(N, 5) = .Cells(row, 6)
        N = N + 1

Filtre pour listbox

Bonjour

Je viens de modifier mon fichier avec les éléments ci-dessous et j'ai le même problème.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, N As Integer
Dim C As Range
Dim Row As Long
 
ListBox1.Clear
N = 0
 
Recherche = TextBox5.Value
Range("D4").Select
 
Ligne = Feuil1.Range("D" & "65536").End(xlUp).Row
Set Plage = Feuil1.Range("D" & "1:" & "I" & Ligne)
'Set Plage = Feuil1.Range("D5:I25")
 
 
 
 
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
 
 
 
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 
        Row = C.Row - Plage.Row + 1
 
        'alimentation listBox
        ListBox1.AddItem .Cells(Row, 1), N
      '  ListBox1.List(N, 1) = C
        ListBox1.List(N, 1) = .Cells(Row, 2)
        ListBox1.List(N, 2) = .Cells(Row, 3)
        ListBox1.List(N, 3) = .Cells(Row, 4)
        ListBox1.List(N, 4) = .Cells(Row, 5)
        ListBox1.List(N, 5) = .Cells(Row, 6)
        N = N + 1
 
 
 
 
 
 
        'alimentation listBox
      '  ListBox1.AddItem C.Offset(0, 0), N
      '  ListBox1.List(N, 1) = C
      '  ListBox1.List(N, 1) = C.Offset(0, 1)
      '  ListBox1.List(N, 2) = C.Offset(0, 2)
      '  ListBox1.List(N, 3) = C.Offset(0, 3)
      '  ListBox1.List(N, 4) = C.Offset(0, 4)
      '  ListBox1.List(N, 5) = C.Offset(0, 5)
      '  N = N + 1
    End If
 
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With

31/12/2012, 18h32
Philippe Tulliez

Bonsoir,
J'ai oublié de rappeler qu'il fallait changer

Code:

Set Plage = Feuil1.Range("D" & "1:" & "I" & Ligne)

en

Code:

Set Plage = Feuil1.Range("D" & "5:" & "I" & Ligne)

Je l'avais indique à 17:30 mais bon, je comprends
J'ai fais les tests avant de donner le code.
31/12/2012, 18h53
Daniel.C

C'est mon code qui est dans le classeur, non ? Et quelle que soit la valeur cherchée, le remplissage s'effectue correctement. Pour C4 dans le textbox, j'ai A4, B4, C4, D4, E4, F4 dans la listbox. Ce n'est pas ce que tu veux ?
31/12/2012, 19h07
Regor

Listbox

Bonsoir

J'ai refais un classeur avec ton code.

Par contre, si dans la textbox recherche tu saisie la lettre a seule, la listbox t'affiche toute les lignes contenant a y compris avec celle des entêtes.

Bonnes fêtes

Cordialement

Bonjour et bonne année,

Modifie le code comme suit :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub TextBox5_Change()
' ListBox1.List(N, 0) = Range("D" & ActiveCell.Row).Value
 
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, N As Integer
Dim C As Range
 
ListBox1.Clear
N = 0
 
Recherche = TextBox5.Value
Range("D4").Select
 
Ligne = Feuil1.Range("D" & "65536").End(xlUp).Row
Set Plage = Feuil1.Range("D" & "2:" & "I" & Ligne)
'Set Plage = Feuil1.Range("D5:I25")
 
 
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 
 
        'alimentation listBox
        ListBox1.AddItem .Cells(C.Row, 1), N
      '  ListBox1.List(N, 1) = C
        ListBox1.List(N, 1) = .Cells(C.Row, 2)
        ListBox1.List(N, 2) = .Cells(C.Row, 3)
        ListBox1.List(N, 3) = .Cells(C.Row, 4)
        ListBox1.List(N, 4) = .Cells(C.Row, 5)
        ListBox1.List(N, 5) = .Cells(C.Row, 6)
        N = N + 1
 
 
 
 
 
 
 
 
 
 
        'alimentation listBox
      '  ListBox1.AddItem C.Offset(0, 0), N
      '  ListBox1.List(N, 1) = C
      '  ListBox1.List(N, 1) = C.Offset(0, 1)
      '  ListBox1.List(N, 2) = C.Offset(0, 2)
      '  ListBox1.List(N, 3) = C.Offset(0, 3)
      '  ListBox1.List(N, 4) = C.Offset(0, 4)
      '  ListBox1.List(N, 5) = C.Offset(0, 5)
      '  N = N + 1
    End If
 
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With
End Sub

01/01/2013, 15h50
Regor

Listbox

Bonjour et bonne année

J'ai fais les modifications suivant ton message précédent.

Maintenant, la recherche avec seul caractère saisie dans la textbox fonctionne.

Par contre, à partir de 2 caractères, l'affichage dans la listbox n'est plus cohérent.

Cordialement

Voila une année qui commence mal...

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub TextBox5_Change()
' ListBox1.List(N, 0) = Range("D" & ActiveCell.Row).Value
 
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, N As Integer
Dim C As Range, Sh As Worksheet
Set Sh = Sheets("Feuil1")
 
ListBox1.Clear
N = 0
 
Recherche = TextBox5.Value
Range("D4").Select
 
Ligne = Feuil1.Range("D" & "65536").End(xlUp).Row
Set Plage = Feuil1.Range("D" & "5:" & "I" & Ligne)
'Set Plage = Feuil1.Range("D5:I25")
 
 
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
    If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 
 
        'alimentation listBox
        ListBox1.AddItem Sh.Cells(C.Row, 4), N
      '  ListBox1.List(N, 1) = C
        ListBox1.List(N, 1) = Sh.Cells(C.Row, 5)
        ListBox1.List(N, 2) = Sh.Cells(C.Row, 6)
        ListBox1.List(N, 3) = Sh.Cells(C.Row, 7)
        ListBox1.List(N, 4) = Sh.Cells(C.Row, 8)
        ListBox1.List(N, 5) = Sh.Cells(C.Row, 9)
        N = N + 1
 
 
 
 
 
 
 
 
 
 
        'alimentation listBox
      '  ListBox1.AddItem C.Offset(0, 0), N
      '  ListBox1.List(N, 1) = C
      '  ListBox1.List(N, 1) = C.Offset(0, 1)
      '  ListBox1.List(N, 2) = C.Offset(0, 2)
      '  ListBox1.List(N, 3) = C.Offset(0, 3)
      '  ListBox1.List(N, 4) = C.Offset(0, 4)
      '  ListBox1.List(N, 5) = C.Offset(0, 5)
      '  N = N + 1
    End If
 
    Set C = .FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Adresse
    End If
End With
End Sub

01/01/2013, 16h51
Regor

Listbox

Merci beaucoup

Cela fonctionne maintenant

Cordialement