Liason entre ListBox VBA
Résolu/Fermé
A voir également:
- Liason entre ListBox VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
5 réponses
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
15 janv. 2009 à 13:30
15 janv. 2009 à 13:30
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....?
mikebzh
Messages postés
127
Date d'inscription
samedi 20 décembre 2008
Statut
Membre
Dernière intervention
11 mars 2009
28
15 janv. 2009 à 13:57
15 janv. 2009 à 13:57
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
