Discussion :

[stéphanie123]

bonsoir,

J'ai des combox(4) qui sont dépendants les uns des autres,
les 3 premiers combobox sont bien alimentés par la base de donnée mais le quatriéme ne l'est pas.
voilà mon 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
Sub AjouterItem(ByRef oCollection As Collection, ByVal strItem As String)
    Dim oObjet As Object
    Dim ValeurPresente As Boolean
    Dim i As Long
 
    For i = 1 To oCollection.Count
        If oCollection.Item(i) = strItem Then
            ValeurPresente = True
            Exit Sub
        End If
    Next i
 
    If Not ValeurPresente Then oCollection.Add strItem
End Sub

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
34
35
36
Private Sub UserForm_Initialize()
    Dim Cellule As Range
    Dim Balan As Range
    Dim calle As Range
    Dim Translist As Range
    Dim oCollection As New Collection
    Dim i As Long
 
    For Each Cellule In Feuil4.Range("a2:a" & Feuil4.Range("a" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Cellule.Value
     Next Cellule
 
      For i = 1 To oCollection.Count
        ComboBox1.AddItem oCollection.Item(i)
    Next i
     For Each Balan In Feuil4.Range("b2:b" & Feuil4.Range("b" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Balan.Value
     Next Balan
 
    For i = 1 To oCollection.Count
        ComboBox2.AddItem oCollection.Item(i)
    Next i
 
      For Each calle In Feuil4.Range("c2:c" & Feuil4.Range("c" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, calle.Value
     Next calle
 
    For i = 1 To oCollection.Count
        ComboBox3.AddItem oCollection.Item(i)
    Next i
 
        For Each Translist In Feuil4.Range("d2:d" & Feuil4.Range("d" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Translist.Value
     Next Translist
 
End Sub

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 ComboBox3_Change()
 
    Dim oCollection As New Collection
    Dim i As Long
    Dim calle As Range
 
        ComboBox4.Clear
 
    ' Itération sur chaque cellule de d et appel de la procédure d'ajout
    For Each calle In Feuil4.Range("d2:d" & Feuil4.Range("d" & Rows.Count).End(xlUp).Row)
        If calle(1, 0).Value = ComboBox3.Value Then AjouterItem oCollection, calle.Value
    Next calle
 
    For i = 1 To oCollection.Count
        ComboBox4.AddItem oCollection.Item(i)
    Next i
End Sub

dans le sous programme j'ai mis que la partie "Private Sub ComboBox3_Change"

[fring]

Si le UserForm est déjà initialisé, il faut le "rafraîchir" après avoir chargé la Combo

Code :

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

1
2
3
4
5
For i = 1 To oCollection.Count
        ComboBox4.AddItem oCollection.Item(i)
    Next i
Me.Repaint '<-- réessaye en ajoutant cette ligne
End Sub

[stéphanie123]

Si le UserForm est déjà initialisé, il faut le "rafraîchir" après avoir chargé la Combo

Code :

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

1
2
3
4
5
For i = 1 To oCollection.Count
        ComboBox4.AddItem oCollection.Item(i)
    Next i
Me.Repaint '<-- réessaye en ajoutant cette ligne
End Sub

j'ai beau essayée, cette solution mais ça donne aucun effet

je continue à ramé, donc

on m'a dit une fois "tant que je rame j'avance" !

[fring]

bah... de toute façon, je pense que dans ton cas la fonction Repaint est nécessaire.

Teste ceci

Code :

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

1
2
3
4
MsgBox oCollection.Count '<-- pour vérifier ce que renvoit oCollection.Count
For i = 1 To oCollection.Count
     MsgBox oCollection.Item(i) '<-- pour vérifier ce que renvoient les Items
Next i

[stéphanie123]

bah... de toute façon, je pense que dans ton cas la fonction Repaint est nécessaire.

Teste ceci

Code :

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

1
2
3
4
MsgBox oCollection.Count '<-- pour vérifier ce que renvoit oCollection.Count
For i = 1 To oCollection.Count
     MsgBox oCollection.Item(i) '<-- pour vérifier ce que renvoient les Items
Next i

cela me renvoie un msg "0"

[ouskel'n'or]

Teste ça. En rouge, la correction apportée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ComboBox3_Change()
    Dim oCollection As New Collection
    Dim i As Long
    Dim calle As Range
        ComboBox4.Clear
    ' Itération sur chaque cellule de d et appel de la procédure d'ajout
    For Each calle In Feuil4.Range("d2:d" & Feuil4.Range("d" & Rows.Count).End(xlUp).Row)
        If calle(1, 0).Value = ComboBox3.Value Then oCollection.Add calle.Value
    Next calle
    
    For i = 1 To oCollection.Count
        ComboBox4.AddItem oCollection(i)
    Next i
End Sub

Si la condition que tu mets est correcte, ce code fonctionne.
bonne nuit

[stéphanie123]

Si la condition que tu mets est correcte, ce code fonctionne.
bonne nuit

Oui merci pour le code cela fonctionne mais le souci , et que sur le combox4 cela affiche les doublons!

[ouskel'n'or]

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 ComboBox3_Change()
    Dim oCollection As New Collection
    Dim i As Long
    Dim calle As Range
        ComboBox4.Clear
    ' Itération sur chaque cellule de d et appel de la procédure d'ajout
    For Each calle In Feuil4.Range("d2:d" & Feuil4.Range("d" & Rows.Count).End(xlUp).Row)
        If calle(1, 0).Value = ComboBox3.Value Then oCollection.Add calle.Value
    Next calle
    
    For i = 1 To oCollection.Count
        'Ce sont ces deux lignes qui font tout 
        ComboBox4 = oCollection(i)
        If ComboBox4.ListIndex = -1 Then _
        ComboBox4.AddItem oCollection(i)
    Next i
End Sub

Vérifie à chaque tour de roue que l'item n'est pas déjà dans le combo.
Bonne soirée

[fring]

Apparement Repaint n'est pas nécessaire, je pensais qu'à partir du moment où le UserForm était initialisé avant de charger la Combo, qu'il fallait rafraîchir l'affichage.

Salut Ousk