Liason entre ListBox VBA Résolu

Question

Bonjour,

j'ai un leger probleme avec 2 listbox d'un form. Je voudrais que lorsque l'utilisateur click sur un item de la listbox1, l'item de la listbox2 de meme index soit séléctionner automatiquement. 

ex : form1.ListBox1.List(2) = form.ListBox7.List(2)

l'index des 2 listbox peuvent varier en fonction des choix précedent, je ne vois pas comment faire une boucle sur une listbox

J'ai essayé aussi : "List1.TopIndex = List7.TopIndex" mais sans succés

Merci d'avance

mikebzh · Answer

Salut

Soit List1 la liste où tu choisis et List2 celle auto

[code]
.....
   List2.ListIndex = List1.ListIndex
.....
[\code]

Bonne journée

Pawn · Answer

Salut, merci pour ta réponse,

je vien d'essayer et il me met "erreur d'execution 424" objet requis".
Dois-je mettre le code dans un private sub pour que sa fonctionne ?
ou faire un petit Dim liste1 As (je sais pas quoi) puis set list1=Listbox1.tabindex....?

mikebzh · Answer

Salut
Moi pour faire un test rapide, j'ai construit une forme avec deux listbox list1 & List2 puis j'ai rempli les listes puis

[code]
private sub List1_click()
      List2.Listindex = List1.ListIndex
end sub
[\code]

Et voilà !

Pawn · Answer

bizare, j'y arrive vraiment pas, je saisi pas là, jvais encore chercher jdois mal m'y prendre... .

Pawn · Answer

Merci pour ton aide, j'ai trouver une sollution en mellangeant ton bou de code et le mien.
En tout cas tout marche, jpeu continuer now.
merci

ps :au lieu de Topindex : listindex

If ActiveControl = ListBox1 Then ListBox2.ListIndex = ListBox1.ListIndex
If ActiveControl = ListBox2 Then ListBox1.ListIndex = ListBox2.ListIndex

Liason entre ListBox VBA

5 réponses

Discussions similaires

Newsletters