Discussion :

[Kentarosan]

Bonjour à tous,

Tout est dans le titre.

J'ai une ListBox assez étroite sur mon UserForm et j'aimerai que chaque Item soit sur plusieurs lignes. J'ai déjà essayé :

Code :

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

1
2
3
4
For Each idDemande In Demandes.GetDemandes()
    lb_Demandes.AddItem idDemande 'La première colonne de la ListBox fait 0pt de large. Données invisibles maggle 8-)
    lb_Demandes.List(lb_Demandes.ListCount - 1, 1) = Demandes.GetType(idDemande) & vbCrLf & Demandes.GetObjet(idDemande) 'Et donc dans la deuxième colonne qui elle est visible, je met mes 2 infos que je voudrais séparer d'un retour à la ligne.
Next

(Demandes.GetType et Demandes.GetObjet sont deux fonctions qui renvoient des chaînes de caractères.)

Voilà, si quelqu'un a une solution à me proposer, je suis preneur. Même si c'est de la magouille, ça me va, je ne sais pas si c'est vraiment possible de base en fait.

Merci par avance !

[unparia]

Bonjour
les éléments d'une listbox ne peuvent occuper qu'une seule ligne chacun.
Ta démarche ne saurait donc aboutir.

[Kentarosan]

Re,

Merci de ta réponse.

Comme je suis quelqu'un de borné et déterminé j'ai quand même tenté un truc. C'est pas encore tout à fait fonctionnel mais c'est l'idée.

J'ai découpé le texte que je voulais mettre sur 2 lignes dans 1 ligne de ListBox en 2 lignes de ListBox, ce qui donne ça dans le Initialize du Userform :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    For Each idDemande In Demandes.GetDemandes()
        lb_Demandes.AddItem idDemande 'Première colonne de la listbox est invisible
        lb_Demandes.List(lb_Demandes.ListCount - 1, 1) = Demandes.GetType(idDemande)
        lb_Demandes.AddItem idDemande
        lb_Demandes.List(lb_Demandes.ListCount - 1, 1) = Demandes.GetObjet(idDemande)
    Next
End Sub

Et ensuite, lors de la sélection d'un élément de la liste, on coche celui d'au-dessus si on a cliqué sur celui d'en-dessous et vice-versa.
J'ai dû rajouter un boolean enCoursSelection dans mon module parce que l'évènement Change de la ListBox est rappelé à chaque fois que je change l'état du deuxième élément. Logique, mais ça crée une boucle infinie et c'est pénible.

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
Private Sub lb_Demandes_Change()
    With lb_Demandes
        If .ListIndex > -1 Then
            If .ListIndex Mod 2 = 0 And .Selected(.ListIndex + 1) = False And enCoursSelection = False Then
                enCoursSelection = True
                .Selected(.ListIndex + 1) = True
            ElseIf .ListIndex Mod 2 = 1 And .Selected(.ListIndex - 1) = False And enCoursSelection = False Then
                enCoursSelection = True
                .Selected(.ListIndex - 1) = True
            End If
            idDemandeSelectionnee = .List(.ListIndex)
            AffichageDemande
        End If
    End With
    enCoursSelection = False
End Sub

Donc actuellement, il n'y a que 2 problèmes que je n'ai pas eu le temps de régler :

• La gestion de l'erreur lors de la sélection du premier et du dernier élément, parce qu'il test le Selected d'un élément qui n'existe pas,
• Et le décochage de tous les autres éléments lorsque l'on clic sur un nouveau.

Voilou, peut-être que ce petit bout de code aidera quelqu'un, moi je retourne à une liste plus simple avec une scrollbar en bas.

A la prochaine !

[unparia]

Ce que tu fais-là :
1) n'est pas ce que tu demandais, mais une approche/contournement autre
2) t'interdit l'ajout d'un article qui ne serait pas "décomposé" sur deux lignes de la listbox (car sinon -->> badaboum).

[Kentarosan]

Approche / contournement c'est ce que j'entendais par "magouille"

Et dans mon cas, mes "demandes" ont toutes un type et un objet.

Bref, de toutes façons, ma méthode bricolage fait un peu usine à gaz pour simplement éviter de mettre une listbox plus large..

[mercatog]

Tu as un idDemande unique pour au plus 2 lignes

Pourquoi ne pas l'utiliser

[Kentarosan]

Ha oui c'est pas bête ça!

On clic sur un élément, on récupère l'id de cet élément, on parcourt la ListBox pour trouver son compère et on l'active. Peut-être laisser mon boolean pour éviter le même coup de la boucle infinie mais déjà ça retire les erreurs de sortie de liste pour le premier et le dernier et c'est quand même vachement moins compliqué et lourd que mon délire avec le modulo.

Merci beaucoup, je vais aller mettre ça en place dès que j'aurai un peu de temps!