[VB] Itération dans des ListBox

sfritz Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
j'aimerai créer 3 Listbox dont le contenu (choix possible) de la 2eme dépend de la 1ere, et celle de la 3eme de la 2eme (donc également de la 1ere).
J'ai déjà fait la même maniplation dans VBA Excel, mais je me suis aidé des tableau Excel.
Ces tableau sont prérempli, et j'utilise ensuite ce tableau pour remplir mes ListBox qui sont dans des UserForms (les forms de vba excel).

Je pourrai utliser la manip déjà utilisé dans Excel en créant un tableau à 2 dimensions, mais le programme est obligé de générer le tableau à chaque ouverture du programme, alors que dans Excel, le tableau est toujours complet dès le démarage d'excel.
Est il possible de créer un tableau déja complet à l'ouverture du programme?

Pouvez vous m'aider?
Y a t'il un autre moyen de creer des Itérations?

Merci
A voir également:

2 réponses

sfritz Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   6
 
up
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Tes renseignements ne sont pas fort explicit, toutefois, si j'extrapole
Tu a 3 listes avec par exemple
Dans list1 le nom d'un article
Dans List2 sa référence
Dans List3 son numéro d'ordre.
Si c'est le cas...Tu doit travailler dans les événement Change de ces 3 listes.

Dim NoAction As Boolean

Private Sub List1_Change()
    If NoAction Then Exit Sub
    NoAction = True
    List2.ListIndex = List1.ListIndex
    List3.ListIndex = List1.ListIndex
    NoAction = False
End Sub
Private Sub List2_Change()
    If NoAction Then Exit Sub
    NoAction = True
    List1.ListIndex = List2.ListIndex
    List3.ListIndex = List2.ListIndex
    NoAction = False
End Sub
Private Sub List3_Change()
    If NoAction Then Exit Sub
    NoAction = True
    List2.ListIndex = List3.ListIndex
    List1.ListIndex = List3.ListIndex
    NoAction = False
End Sub


A voir ?
A+
0