List box

Question

Salut,
je suis en periode de stage, dans une société et je réalise une application VB avec base de données sous Excel,
j'ai mis 4 listes pour récupérer des informations, et je veux que quand je clique sur un élément dans une liste, il va séléctionner l'element qui a le meme index dans les autres listes, j l'ai fait pour deux et s a marché, mais pour les quatres il me donne "Espace pile insiffusant"
voici le code source:

Private Sub List2_Click()
'MsgBox (List3.Selected(2))
List3.Text = List3.List(List2.ListIndex)
List4.Text = List4.List(List2.ListIndex)
List5.Text = List5.List(List2.ListIndex)

'MsgBox (List3.SelCount)

End Sub

Private Sub List3_Click()
List2.Text = List2.List(List3.ListIndex)
List4.Text = List4.List(List3.ListIndex)
List5.Text = List5.List(List3.ListIndex)
End Sub

Private Sub List4_Click()
List2.Text = List2.List(List4.ListIndex)
List3.Text = List3.List(List4.ListIndex)
List5.Text = List5.List(List4.ListIndex)
End Sub

Private Sub List5_Click()
List2.Text = List2.List(List5.ListIndex)
List3.Text = List3.List(List5.ListIndex)
List4.Text = List4.List(List5.ListIndex)
End Sub
help ssvp
hamid
I wana get the knowledge of the entire World,...........

cs_Exploreur · Answer

Salut,

Tu dit sélectionner ?? Alors pour quoi ne pas utiliser la propriété : Selected des listbox ?? Regarde et tu comprendras ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

hamid_raf · Answer

selected t'informe si tu a selectionné l'élément voulu ou non, si oui il donne true sinon il donne false,
mais sayer merci j'ai trouvé la solution. merci

hamid
I wana get the knowledge of the entire World,...........

cs_Exploreur · Answer

Salut,

Bin...si tu as trouvé la solution, fait profiter tous le monde alors et post ta réponse et valide là ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

hamid_raf · Answer

bein justment, voila le code : 

Private Sub List2_Click()
List3.ListIndex = List2.ListIndex
List4.ListIndex = List2.ListIndex
List5.ListIndex = List2.ListIndex
End Sub

Private Sub List3_Click()
List2.ListIndex = List3.ListIndex
List4.ListIndex = List3.ListIndex
List5.ListIndex = List3.ListIndex
End Sub
Private Sub List4_Click()
List2.ListIndex = List4.ListIndex
List5.ListIndex = List4.ListIndex
List3.ListIndex = List4.ListIndex
End Sub

Private Sub List5_Click()
List2.ListIndex = List5.ListIndex
List4.ListIndex = List5.ListIndex
List3.ListIndex = List5.ListIndex
End Sub

hamid
I wana get the knowledge of the entire World,...........

List box

4 réponses

Votre réponse

Discussions similaires