Liason entre ListBox VBA
Résolu
Pawn
-
Pawn -
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
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
A voir également:
- Liason entre ListBox VBA
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
5 réponses
Salut
Soit List1 la liste où tu choisis et List2 celle auto
[code]
.....
List2.ListIndex = List1.ListIndex
.....
[\code]
Bonne journée
Soit List1 la liste où tu choisis et List2 celle auto
[code]
.....
List2.ListIndex = List1.ListIndex
.....
[\code]
Bonne journée
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....?
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....?
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à !
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à !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
