Filtre pour listbox

**Regor** · 28/12/2012, 22h29

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 :

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
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

**Daniel.C** · 29/12/2012, 11h18

Bonjour,

Un peu au hasard :

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
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

**Regor** · 31/12/2012, 16h49

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

**Daniel.C** · 31/12/2012, 17h24

Peux-tu mettre un classeur en pièce jointe ?

**Philippe Tulliez** · 31/12/2012, 17h30

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 :

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

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

**grisan29** · 31/12/2012, 17h38

bonjour Regorn daniel_C, philppe Tulliez et les forumeurs

tu n'a que changer sur la ligne

Code :

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

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

**Philippe Tulliez** · 31/12/2012, 17h41

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

Code :

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

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

**Regor** · 31/12/2012, 18h23

Bonjour

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

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
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

Filtre pour listbox [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager