Problème sur une ListBox (ActiveX) dépendante - .ListFillRange

Version imprimable

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 :ccool:.

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 8O.

Voici les codes que j'ai inscrit :
Code:

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.

13/05/2013, 14h45
Daniel.C

Bonjour,

Bizarre. Est-ce que tu peux mettre un classeur exemple - sans données confidentielles - en pièce jointe ?
13/05/2013, 14h52
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.

1 pièce(s) jointe(s)

test

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:

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

17/05/2013, 14h43
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.

Citation:

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 ?
17/05/2013, 22h17
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:

1 2 3 4 5 Private Sub ListBox1_Click() 'nom With ListBox2 .Height = 420 End With End Sub
Merci par avance.
18/05/2013, 10h46
Daniel.C

Bonjour,

Citation:

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:

machineconcernee = ListBox4.Value

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

Code:

machineconcernee = ListBox3.Value

Citation:

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é ?

Bonjour,

J'ai créé cette macro pour alimenter la listbox4 avec la méthode AddItem. Il y a sans doute plus simple.

Avec cette méthode, il n'est pas nécessaire de nommer les zones de chaque machine dans la feuille Liste. Par contre, il ne faut pas d'homonymie dans les noms des machines.

Nb : Petite anomalie dans à la sélection dans ListBox4, on perd la surbrillance dans ListBox3.

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Explicit
 
Public ShListes As Worksheet
 
Sub RemplirLaListBox4()
 
Dim NomMachine As String
Dim NumeroColonne As Long
Dim LigneDeTitreDansListe As Long
Dim ListeDesPannesMachines As Range
Dim CellulePanne As Range
 
Dim NbColonnesListes As Long
Dim CellulesTitreListes As Range
Dim CtrIListBox4 As Integer
 
       Set ShListes = Feuil21
       LigneDeTitreDansListe = 1
 
       NomMachine = Sheets("Feuil1").Cells(2, 3)
       NumeroColonne = 0
 
       ShListes.Activate
 
       NbColonnesListes = Cells(LigneDeTitreDansListe, ActiveSheet.Columns.Count).End(xlToLeft).Column
 
       Set CellulesTitreListes = Range(Cells(LigneDeTitreDansListe, 1), Cells(LigneDeTitreDansListe, NbColonnesListes))
 
       For Each CellulePanne In CellulesTitreListes
           Select Case Mid(CellulePanne.Value, 1, Len(NomMachine))
                  Case NomMachine
                       NumeroColonne = CellulePanne.Column
                       Exit For
           End Select
       Next CellulePanne
 
       Set CellulesTitreListes = Nothing
 
       If NumeroColonne > 0 Then Set ListeDesPannesMachines = Range(Cells(3, NumeroColonne), Cells(60, NumeroColonne))
 
 
       Feuil11.Activate
 
       If NumeroColonne > 0 Then
            With Feuil11.ListBox4
 
                If .ListCount > 0 Then .Clear
 
                For Each CellulePanne In ListeDesPannesMachines
                    If CellulePanne <> "" Then
                        .AddItem CellulePanne
                    End If
                Next CellulePanne
            End With
 
            Set ListeDesPannesMachines = Nothing
 
       End If
 
       Set ShListes = Nothing
 
End Sub

Dans Feuil1, j'ai modifié les macros concernant les listbox3 et 4.

Code:

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
Private Sub ListBox3_Click() 'machine
 
    With ListBox3
        .Height = 420
    End With
 
 
    With ListBox4
        .Height = 420
    End With
 
    Cells(2, 4) = ""
    Application.ScreenUpdating = False
    Call RemplirLaListBox4
    Application.ScreenUpdating = True
 
 
End Sub
 
 
Private Sub ListBox4_Click() 'pannes
 
    ' MsgBox (ListBox4.Value)
    Cells(2, 4) = ListBox4.Value
 
End Sub

Cordialement.

18/05/2013, 13h51
Moux71

Merci

Bonjour,

Avec vos suggestion je suis arrivé à obtenir la base de mon travail.
Je vous remercie tous.

Citation:

J'ai créé cette macro pour alimenter la listbox4 avec la méthode AddItem. Il y a sans doute plus simple.

Merci Eric, je ne comprend pas tout le code car je débute dans VBA mais je vais m'y intéresser.

Mon problème est résolu :ccool:.
Encore merci.

Cordialement,
Moux71.
23/05/2013, 18h44
Moux71

eureka !

J'ai tous simplement éviter l'erreur avec la fonction :

Citation:

on error goto findelasub

. :ccool:

A plus.

Moux71