Aligner données venant de 3 colonnes dans une listbox

Version imprimable

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:

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

07/09/2016, 10h35
Elenveth

Bonjour,

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

Merci :-)
07/09/2016, 10h43
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 :)
07/09/2016, 10h55
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:

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)

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:

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

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

Code:

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

07/09/2016, 11h57
blabla69100

Peut être qu'il y a mieux mais pour mes besoins, cette méthode marche... Merci pour votre aide unparia une fois de plus ;)
07/09/2016, 12h00
Elenveth

Citation:

Envoyé par blabla69100

Peut être qu'il y a mieux mais pour mes besoins, cette méthode marche... Merci pour votre aide unparia une fois de plus ;)

Si tu n'as plus de problème, je t'invite à marquer cette discussion comme résolue, cela aidera les prochaines personnes dans ta situation à trouver leur réponse :-)