Bonjour à tous;

J'ai une listbox que je rempli avec plusieurs éléments :
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
Private Sub CommandButton1_Click()
 
'Suppression des valeurs dans les Textbox
Interface.TextBox2.Value = ""
Interface.TextBox3.Value = ""
Interface.TextBox4.Value = ""
Interface.TextBox5.Value = ""
Interface.TextBox6.Value = ""
Interface.TextBox7.Value = ""
Interface.TextBox8.Value = ""
Interface.TextBox9.Value = ""
Interface.ListBox1.Clear
 
'Parcours de la BDD
   For i = 2 To UBound(TAB_BDD, 1)
        If TAB_BDD(i, DIC_C_BDD("Question")) <> "" Then
            If Interface.ComboBox1 <> "" And Interface.TextBox1 <> "" Then
                            'Recherche par mot clé et par Famille de Question
                            If Interface.TextBox1.Value <> "" And Interface.ComboBox1.Value <> "" Then
                                If TAB_BDD(i, DIC_C_BDD("Question")) Like "*" & Interface.TextBox1.Value & "*" And TAB_BDD(i, DIC_C_BDD("Famille Question")) Like "*" & Interface.ComboBox1.Value & "*" Then
                                     Interface.ListBox1.AddItem TAB_BDD(i, DIC_C_BDD("Question"))
                                End If
                            End If
            Else
                            'Recherche par mot clé
                            If Interface.TextBox1.Value <> "" Then
                                If TAB_BDD(i, DIC_C_BDD("Question")) Like "*" & Interface.TextBox1.Value & "*" Then
                                     Interface.ListBox1.AddItem TAB_BDD(i, DIC_C_BDD("Question"))
                                End If
                            End If
 
                            'Recherche par Famille de Question
                            If Interface.ComboBox1.Value <> "" Then
                                If TAB_BDD(i, DIC_C_BDD("Famille Question")) Like "*" & Interface.ComboBox1.Value & "*" Then
                                    Interface.ListBox1.AddItem TAB_BDD(i, DIC_C_BDD("Question"))
                                End If
                            End If
            End If
        End If
    Next i
End Sub
J'aimerai trouvé un code permettant de sauter une ligne lorsque la lignes dépasse le champs de la listbox.
J'ai trouvé un code qui ressemble à ce que je souhaite faire, mais je n'arrive pas a l'adapter, ici : https://blogs.msdn.microsoft.com/rah...listbox-items/

Merci de votre aide, y'a beaucoup de mondes qui ont poser ce genre de question, mais la réponse n'est pas gagné d'avance.

GK