Sujet Précédent Sujet Suivant

Liason entre ListBox VBA [Résolu/Fermé]

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

5 réponses

Réponse 1 / 5
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
 28
Salut

Soit List1 la liste où tu choisis et List2 celle auto

[code]
.....
List2.ListIndex = List1.ListIndex
.....
[\code]

Bonne journée
Réponse 2 / 5

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....?
Réponse 3 / 5
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
 28
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à !
Réponse 4 / 5

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

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
Posez votre question