Saut de lignes dans une listbox

Version imprimable

Bonjour à tous;

J'ai une listbox que je rempli avec plusieurs éléments :

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

22/09/2017, 04h33
clementmarcotte

Bonjour,

C'est un programme en VB.net, adapté pour un ListBox .net. Il utilise l''héritage" pour modifier le listbox .net existant.

VB6 - VBA ne supportent pas l'héritage.

Ceci dit, il y a toujours moyen d'utiliser un ListBox .net avec Excel, mais c'est un processus qui demande des actions supplémentaires.

Tu peux télécharger Visual Studio Community (gratuit à certaines conditions) et créer une application (alias add-in, add-on, complément ...), ou même un ActiveX, Excel en utilisant un listbox .net et ton bout de programme.
Ou tu peux te faire un programme VB.net, avec une édition Community, ou même une édition Express, avec ton Listbox .net et qui piloterait Excel au moyen d'un semblant d'Automation. Mais c'est tout comme Automation entre Word et Excel, par exemple, sauf un peu d'adaptation des noms d'objets.

Bonjour
Développer n'est pas se contenter de chercher du code sur la toile et le recopier.
Lorsque l'on pratique cette "manière", on s'efforce au moins de comprendre ce que l'on copie.
Veux-tu par exemple bien m'expliquer l'utilité de la dernière de ces trois lignes :
Code:

1 2 3 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
Tu voudras ensuite bien expliquer clairement, techniquement et très précisément ce que tu entends exactement par :

Citation:

J'aimerai trouvé un code permettant de sauter une ligne lorsque la lignes dépasse le champs de la listbox.

Bonjour,

Je vais me contenter de répondre à la question posée.

Deux choix :
1- On se contente du scroll horizontal
Pour cela, il suffit que la listbox soit ... multicolonnes.
Un exemple :
un Userform avec dessus une ListBox1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub UserForm_Activate()
Dim i&
 
    For i = 1 To 100
        ListBox1.AddItem "Ici nous allons faire de grandes lignes de texte pour pouvoir tester notre listBox... Valeur de liste " & i
    Next i
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "400;0"
End Sub

2- on va imiter la ListBox grâce à un TextBox
Pour cela, un userform avec dessus un TextBox1 :

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
Option Explicit
 
Private Sub UserForm_Initialize()
Dim i As Integer, texto As String
 
    For i = 1 To 100
      If i = 1 Then texto = Chr(1) & "Ici nous allons faire de grandes lignes de texte Valeur de liste 1" Else texto = texto & Chr(10) & Chr(1) & "Ici nous allons faire de grandes lignes de texte Valeur de liste " & i
    Next i
    With TextBox1
        .BackStyle = fmBackStyleTransparent
        .MultiLine = True
        .ScrollBars = fmScrollBarsVertical
        .Move 5, 5, Me.Width - 16, Me.Height - 40
        .Text = texto & Chr(1)
        .SetFocus
        .CurLine = 0
    End With
End Sub
 
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim debSel As Long, finSel As Long, texto As String, txtSel As String, i As Integer
 
    texto = Replace(TextBox1.Text, Chr(10), "")
    debSel = TextBox1.SelStart
    finSel = TextBox1.SelStart
    Do While Mid(texto, debSel, 1) <> Chr(1)
        debSel = debSel - 1
    Loop
    If Mid(texto, finSel, 1) = Chr(1) Then finSel = finSel + 1
    Do While Mid(texto, finSel, 1) <> Chr(1)
        finSel = finSel + 1
    Loop
    For i = debSel + 1 To finSel - 1
        txtSel = txtSel & Mid(texto, i, 1)
    Next i
    TextBox1.SelStart = debSel
    TextBox1.SelLength = finSel - debSel - 1
    Sheets("Feuil1").Range("A1") = Trim(txtSel)
End Sub

EDIT : à mon avis la solution 1 est la meilleure, sans conteste.

1 pièce(s) jointe(s)

Citation:
Envoyé par unparia
Bonjour
Développer n'est pas se contenter de chercher du code sur la toile et le recopier.
Lorsque l'on pratique cette "manière", on s'efforce au moins de comprendre ce que l'on copie.
Veux-tu par exemple bien m'expliquer l'utilité de la dernière de ces trois lignes :
Code:

1 2 3 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
Bonjour à tous, et merci pour ces éléments de réponses.
Oui je viens de voir que j'ai une ligne inutile dans ta citation, je viens de la corriger,merci.

En gros mon souci est illustré sur cette image : Dans le champs n°1, j'ai l'affichage actuel de ma listbox et j'aimerai obtenir un saut de ligne lorsque le nombre de caractère dépasse le champs de vision de ma listbox (j'aimerai obtenir le champs n°2) :
Pièce jointe 313553

Il n'y a pas dans les propriétés de la listbox une option permettant de le faire ?
Merci a pijaku, je vais testé ton code, je vous tiens au courant ! :)

Merci d'avance.

Cordialement.

GK

22/09/2017, 10h25
Ghost0000

Bonjour et merci pour tes solutions pijaku.

Pour résoudre mon problème j'ai simplement utilisé cette ligne :

Code:

ListBox1.ColumnWidths = "3000"

Je passe le sujet en résolu !

Merci encore !

Cordialement.

GK