listobx: resultat sur +ieurs lignes

[nayaphykit]

Bonjour,

je développe pour mon boulot une application VBA/excel et j'avoue ne pas maitriser ce langage.
voila mon problm :
j'ai un tableau contenant un certain nombre d'info sur des produits. ma derniere colonne contient le nombre d'operations du produit. ensuite je vais chercher dans le tableau operation les operations correspondantes (grace a l'identifiant produit)
quand j'affiche mes resultat dans ma list box voila ce que j'otbiens :
les differentes operations sont les unes apres les autres et à partir de la 3eme ne sont plus visible ( a part avec une scroll bar ms c pa ce que je veux)

voila en gros le resultat que je voudrai avoir : que pour une entree de ma liste box je puisse avoir +ieurs ligne dans la derniere colonne

je ne sais pas du tout comment faire pour afficher sur plusieurs ligne une seule entrée.

je vous remercie d'avance pour votre attention et vos reponses

Naya

[ouskel'n'or]

Bienvenue sur le forum, Naya.
Il n'y a pas d'option multiligne pour un listbox (je ne parle pas de multiselect)
Ce que tu veux, c'est afficher tout le texte de la colonne 3 sans élargir ta listbox ?
Tu dis

[nayaphykit]

Bonjour,

je voudrai que ça s'affiche sur plusieurs ligne sinon ca ne pourra jamais être affiché entièrement (il peut y avoir 1 dizaine d'opérations selon le modèle)

j'espere qu'il ya une solution ^^

en tout cas merci pour ta reponse

Naya

[ouskel'n'or]

Comme je t'ai dit, pas d'affichage multiligne pour un index donné dans un listbox. Une solution consisterait à afficher dans un textbox volatile le contenu de chaque ligne, textbox que tu mettrais à jour par le clic du listbox.
Tu peux faire un essai.
Insère un userform,
place un textBox, propriété visible = false, propriété Multiligne = true
Que sa hauteur soit suffisante pour afficher ta troisième colonne.
Place un listbox
Mets le code dans la page de code de l'userform
Run !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ListBox1_Click()
    TextBox1 = ListBox1.List(ListBox1.ListIndex)
    TextBox1.Visible = True
End Sub
 
Private Sub ListBox1_Enter()
'J'affiche la totalité de la liste - là tu vois ce que tu peux faire...
ListBox1.Height = ListBox1.Height  * ListBox1.ListCount - 1
End Sub
 
Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1.Height = 12 'valeur empirique pour une seule ligne
    TextBox1.Visible = False
End Sub
 
Private Sub UserForm_Initialize()
'Je mets n'importe quoi dans ma listbox
For i = 1 To 10
    ListBox1.AddItem CStr(i * 12589641) & vbCrLf & CStr(i * 12589641)
Next
TextBox1.MultiLine = True
TextBox1.Visible = False
End Sub

Déplace-toi sur la listbox "Mouse Down"
Remarque : Ton TextBox peux se placer sur d'autres contrôles, il disparaîtra quand tu quitteras ta ListBox
Tu dis