Discussion :

[claireP23]

Je débute...

Deux questions :
1 - comment peut-on obtenir la liste des évènements liés à une liste box pour que l'en-tête de la procédure soit placée directement dans le code. Pour le clic, il suffit de double cliquer sur le contrôle, mais pour les autres, je ne sais pas où on trouve les évènements.

2 - j'ai double cliqué sur une liste box et mis du code dans la procédure ainsi générée, mais rien ne se passe quand on clique dans la liste. Par contre, en ajoutant en bouton sur la fiche, en double cliquant dessus, et en recopiant le même code dans la procédure ainsi générée, le programme fait exactement ce que je veux. Je ne comprends pas pourquoi la gestion du clic sur le bouton est ok, alors que celle de la liste ne fonctionne pas...

Claire

[katcz]

ca devrait t'aider...

1. La liste des événements liés à un objet est accessible via l'éditeur de code, il y a 2 listbox au dessus de ton code, l'une liste les objets existants et l'autre les événements propres à l'objet sélectionné
et l'autre solution: touche magique F1 puis aide sur "listbox"

2. Dans le cas de la listbox, l'événement click survient seulement lorsque tu sélectionnes une valeur dans la liste... si la liste est vide, y se passe rien! Contrairement à un bouton pour lequel cet événement intervient à chaque click.

[claireP23]

katcz,

merci bien pour ton aide.

Mais la question 2 reste en suspend, car la liste contient des items, et rien de ne passe quand on clique dessus...

Claire

[ThierryAIM]

Mais la question 2 reste en suspend, car la liste contient des items, et rien de ne passe quand on clique dessus...

Et c'est quoi le code qui fait rien ?

[claireP23]

Eh bien, le code "qui ne fait rien" parcourt tous les items sélectionnés dans la liste (qui correspondent à des groupes) et affichent une liste de zones dans une autre liste box (un groupe comprend plusieurs zones).
Ce code ne fait rien quand on clic sur la liste. Mais j'ai recopié le code dans l'évènement clic sur un bouton, et il fonctionne alors parfaitement...

Claire

[zazaraignée]

En fait, je crois que Thierry demande à voir le code. On pourra ensuite t'aider à voir ce qui n'y va pas.

[claireP23]

D'abord les explications :
ListBox3 est la list box contenant les groupes
ListBox2 doit être mise à jour en indiquant toutes les zones des groupes sélectionnées
tabGroupes est un tableau d'entiers à deux dimensions indiquant les paires (groupe, zone). Il est déclaré en global car remplit dans une autre procédure.

Puis le code (je précise que les points d'arrêt placés sur les premières lignes de code ne sont jamais atteints).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Set tabZones = CreateObject("Scripting.dictionary") 'Mémoriser les zones pour ne pas afficher 2 fois les mêmes
 
'Parcourir tous les items de groupes sélectionnés
indice = 1
For i = 0 To ListBox3.ListCount - 1
    If ListBox3.Selected(i) Then
    'Si le groupe est sélectionné, parcourir tout le tableau pour afficher les zones de ce groupe
        For ind = 1 To dimTabGroupes
            If tabGroupes(1, ind) = ListBox3.List(i, 0) Then
                If Not tabZones.exists(tabGroupes(2, ind)) Then
                    tabZones.Add tabGroupes(2, ind), tabGroupes(2, ind)
                End If
            End If
        Next ind
    End If
Next i
 
'Afficher les zones
For Each key In tabZones
    ListBox2.AddItem (tabZones(key))
Next key
 
Set tabZones = Nothing

[AlainTech]

Euh...

Ce que tu nous montres est une portion de code...

Qu'y a-t-il avant et après?
En d'autre mots, où est-il placé?

[Vld44]

est-ce que cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set tabZones = CreateObject("Scripting.dictionary")

est atteinte ?