Discussion :

[blabla69100]

Bonjour,

Après avoir tapé une recherche dans ma textbox, j'ai codé pour récupérer dans ma listbox les lignes correspondantes comprenant 3 colonnes de mon tableau (B,C,D).

Dans "propriété" j'ai spécifié 3 colonnes avec les dimensions respectives.

Mais le résultat ne change pas, j'obtiens dans ma listbox pour chaque ligne de mon tableau sélectionné, les données des colonnes (B,C,D) les unes à la suite des autres. C'est à dire :
B1
C1
D1
B2
C2
D2
...

Alors que je souhaite obtenir dans ma listbox les résultat de la facon suivante:
B1 C1 D1
B2 C2 D2

J'ai épluché tous les articles concernant le sujet mais je n'ai pas réussi à adapter quelque chose qui marche...

Voici mon code, merci pour 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
Private Sub TextBox_Change()
 
    Application.ScreenUpdating = False
 
 
    der_ligne = Cells(Rows.Count, 2).End(xlUp).Row
 
    ListBox.Clear
 
    If TextBox <> "" Then
        For i = 2 To der_ligne
            If Cells(i, 2) Like "*" & TextBox & "*" Then
 
                Me.ListBox1.AddItem Cells(i, 2)
                Me.ListBox1.AddItem Cells(i, 3)
                Me.ListBox1.AddItem Cells(i, 4)
            End If
        Next
    End If
  TextBox.Text = UCase(TextBox.Text)
End Sub

[Elenveth]

Bonjour,

Peut-on avoir l'intégralité du code, histoire d'être à même de vous venir en aide ?

Merci :-)

[blabla69100]

Bonjour,

Merci de votre réponse rapide !!!

Concernant l'alimentation de ma listbox, je n'ai que ce code. Je n'ai pas de code direct pour ma listbox. Elle s'alimente automatiquement via le code ci dessus.

Du coup, je ne comprends pas ce que vous voulez en plus. La suite de mon code ?

La suite est la suivante, je coche la ligne qui m' intéresse pour faire apparaître les données dans des textboxts de mon uf, je saisie ces données pour les modifier dans mon tableau et j'enregistre

[unparia]

Bonjour

Ton erreur est dans la manière de remplir items et sub items de ta listbox !
Regarde ce que fait cet exemple, qui te montre comment on alimente :

Code :

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

1
2
3
4
5
6
7
8
9
With ListBox1
   .Clear
   .ColumnCount = 3
   For i = 1 To 4
      .AddItem "toto" & i
      .List(.ListCount - 1, 1) = "a" & i
      .List(.ListCount - 1, 2) = "b" & i
   Next
 End With

et alimente de cette manière (adapte à tes cellules et ton expression conditionnelle)

EDIT :j'ai modifié le texte des données insérées afin que ce soit plus clair (la boucle for i n'est là que pour avoir des données différentes à insérer)

[blabla69100]

unparia, ca marche ! Merci ! Mais alors je n'explique pas une chose,

C'est que sans le coder, les numéros de mes lignes sélectionnées apparaissent en première colonne de ma listbox. Je suis alors obligé de coder ".columncount=4" pour faire afficher mes 3 colonnes B, C, D. Sans ça, ma colonne D n’apparaît pas.

Savez vous pourquoi ?

Nouveau code :

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
Private Sub TextBox_Change()
 
    Application.ScreenUpdating = False
 
    der_ligne = Cells(Rows.Count, 2).End(xlUp).Row
 
    ListBox.Clear
 
    If TextBox <> "" Then
    With ListBox
   .Clear
   .ColumnCount = 4
        For i = 2 To der_ligne
            If Cells(i, 2) Like "*" & TextBox & "*" Then
                .AddItem i
                .List(.ListCount - 1, 1) = Cells(i, 2)
                .List(.ListCount - 1, 2) = Cells(i, 3)
                .List(.ListCount - 1, 3) = Cells(i, 4)
 
            End If
        Next
        End With
    End If
  TextBox.Text = UCase(TextBox.Text)
End Sub

[unparia]

Hola !
Tu n'as donc pas vraiment compris.
Correction de ton code :

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
Application.ScreenUpdating = False
 
    der_ligne = Cells(Rows.Count, 2).End(xlUp).Row
 
    ListBox.Clear
 
    If TextBox <> "" Then
    With ListBox
   .Clear
   .ColumnCount = 3
        For i = 2 To der_ligne
            If Cells(i, 2) Like "*" & TextBox & "*" Then
 
                .AddItem = Cells(i, 2)
                .List(.ListCount - 1, 1) = Cells(i, 3)
                .List(.ListCount - 1, 2) = Cells(i, 4)
 
            End If
        Next
        End With
    End If
  TextBox.Text = UCase(TextBox.Text)

Au passage : pas très astucieux, d'utiliser l'évènement Change de ta textbox (il se déclenche à chaque touche pressée ...). Mais c'est là une autre affaire que je ne traiterai donc pas là.