Discussion :

[Moux71]

Bonjour à tous,


Me voila coincé lors de la réalisation d'une petite application servant à remplir une base de données.

J'ai inséré 3 listbox (contrôles ActiveX). Je souhaite les rendre dépendantes l'une par rapport à l'autre (équivaut à la fonction indirect).

Pour la deuxième listbox, par de problème, elle dépend bien du choix effectué dans la première, et si on clique sur un choix qui ne correspond à aucune liste encore enregistrée, alors la ListBox2 se vide automatiquement .

Pour la ListBox3, cela fonctionne uniquement si je clique directement sur la bonne valeur du premier coup. Si je veux modifier ma sélection dans la ListBox2, la ListBox3 ne prend pas en compte cette modification .

Voici les codes que j'ai inscrit :

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
Private Sub ListBox1_Click() 'atelier
atelierconcerne = ListBox1.Value
With ListBox2
.ListFillRange = atelierconcerne
End With
End Sub
 
Private Sub ListBox2_Click() 'machine
machineconcernee = ListBox2.Value
With ListBox3
.ListFillRange = machineconcernee
End With
End Sub
 
Private Sub ListBox3_Click()
 
End Sub

Ces codes visent à modifier la liste liée à la ListBox.

Merci par avance pour votre aide.

[Daniel.C]

Bonjour,

Bizarre. Est-ce que tu peux mettre un classeur exemple - sans données confidentielles - en pièce jointe ?

[Invité]

Bonjour,

Pour faire ce que vous décrivez, j'utilise des matrices contenant les valeurs que vous pointez avec vos ListFillRange.

Dans votre cas,vous auriez par exemple une matrice pour les ateliers, une autre pour les machines concernées contenant les informations communes aux 3 ListBox, ou 3 matrices si 2 n'est pas possible.

Dès lors que les matrices sont chargées, j'utilise les méthodes .AddItem ou .RemoveItem avec des boucles pour insérer ou enlever les enregistrements en croisant les deux matrices en fonction du choix sur ListBox1. Le principe serait le même entre ListBox3 et ListBox2.

A chaque changement dans ListBox1, les enregistrements dans les deux dernières ListBox sont détruites avec .Clear puis recalculés. Le principe serait le même entre ListBox3 et ListBox2.

Sans doute aurez-vous une réponse plus en rapport avec votre méthode par ListFillRange.

Bon courage.

Cordialement.

[Moux71]

Bonjour,

Merci pour vos réponses rapides.
Eric lorsque vous parlez de matrice vous parlez de plage nommée ?
Je n'arrive pas a utiliser la fonction clear alors j'ai mis listfillrange=""

voici le code :

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
24
25
26
27
28
29
30
31
32
33
Private Sub ListBox1_Click() 'nom
With ListBox2
.Height = 420
End With
End Sub
 
Private Sub ListBox2_Click() 'atelier
With ListBox2
.Height = 420
End With
With ListBox3
ListBox3.ListFillRange = ""
atelierconcerne = ListBox2.Value
.ListFillRange = atelierconcerne
.Height = 420
End With
End Sub
 
Private Sub ListBox3_Click() 'machine
With ListBox3
.Height = 420
End With
With ListBox4
ListBox4.ListFillRange = ""
machineconcernee = ListBox4.Value
.ListFillRange = machineconcernee
.Height = 420
End With
End Sub
 
Private Sub ListBox4_Click() 'panne
 
End Sub

J'ai ici une première liste pour les noms. la troisième dépend bien de la deuxième, mais pour la quatrième mon code ne fonctionne pas, pourtant c'est le même .

Second problème, à l'ouverture du classeur -> erreur d'exécution 404 -> débogage...

Daniel voici le fichier (format 2003) qui me sert à créer la base de mon projet (les données ont été volontairement changées).

Merci à vous.

Cordialement.
Moux71

[Daniel.C]

Bonjour,

Le classeur fonctionne correctement, à l'exception du plantage quand on fait un choix sur Listbox3, ce qui est normal. Sinon, à chaque fois que je change le choix de Listbox2, ListBox3 se met à jour.

Second problème, à l'ouverture du classeur -> erreur d'exécution 404 -> débogage...

Je ne constate pas de plantage au démarrage; dans quelle macro ? quelle ligne ?

[Moux71]

Bonsoir,

Pourquoi le plantage lors de la sélection sur ListBox3 est-il normal alors que j'ai utilisé les mêmes codes que pour la 2 ? C'est ce qui me trotte...


A l'ouverture c'est Private Sub ListBox1_Click() qui plante. A la ligne ".Height =...".

Code :

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

1
2
3
4
5
Private Sub ListBox1_Click() 'nom
With ListBox2
.Height = 420
End With
End Sub

Merci par avance.

[Daniel.C]

Bonjour,

Pourquoi le plantage lors de la sélection sur ListBox3 est-il normal alors que j'ai utilisé les mêmes codes que pour la 2 ? C'est ce qui me trotte...

L'erreur se produit ici :

Code :

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

machineconcernee = ListBox4.Value

alors que ListBox4 n'est pas initialisée; je pense qu'il faudrait plutôt mettre :

Code :

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

machineconcernee = ListBox3.Value

A l'ouverture c'est Private Sub ListBox1_Click() qui plante. A la ligne ".Height =...".

Oui, mais apparemment, il n'y a pas de raison que ça plante. Est-ce que tu as testé avec le classeur que tu as posté ?