Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

[Maspalio]

Bonjour à tous ,

Et oui encore moi, 😀

Suite au dernier post, https://www.excel-downloads.com/thr...valeur-dans-combobox-up-12-08-11-8h15.168221/
Je bute sur un nouveau problème.

Mon Combobox5 se réfère a la feuille DB_Armaturen. Cependant il doit prendre en compte la valeur du Combobox2. pour faire une comparaison.


Une idée ?

 

[Maspalio]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

up !

En fesant 2 fonctions, Private Sub Val_ComboBox et Private Sub Val_ComboBoxA , j'obtients le résultat souhaité. Mais ca fait un peu "non pro" comme code.

 

[Maspalio]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

Personne ?

 

[forsanta]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

hello

en gros tu veut que ta Combobox5 soit conditionner par la valeur Combobox2 ?

 

[Maspalio]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

Forsanta. Oui c'est ca. Et la 6 par la 5 et 2 ^^

 

[forsanta]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

ou sont stoker les valeur que tu doit obtenir dans la dite combobox5 ??

 

[Maspalio]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

ben dans la feuille DB_Armaturen. Ce qui complique encore plus la tache vu qu'il y a un changement de feuille pour les valeurs.

 

[forsanta]

Re : Combobox Cascades, avec DB sur 2 feuilles. (Up. 18.08 11h40)

dit moi si sa te conviens ? j'ai fais que pour la Combobox5 pour l'instant

Dim nblignes, x, i, j, temp
nblignes = Ws.Range("B65536").End(xlUp).Row
With ComboBox5
.Clear
    ' ajout des nom dans la liste
    For x = 3 To nblignes
        If CDbl(Tabelle4.Cells(x, 2).Value) = CDbl(ComboBox2.Value) Then
                .AddItem Tabelle4.Cells(x, 1).Value
        End If
    Next x
    
    ' trie alphabetiques de noms
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If UCase(.List(i)) < UCase(.List(j)) Then
                temp = .List(j)
                .List(j) = .List(i)
                .List(i) = temp
            End If
        Next j
    Next i
    
    ' suppression des doublons
    For i = 0 To .ListCount - 1
        For j = .ListCount - 1 To i + 1 Step -1
            If UCase(.List(i)) = UCase(.List(j)) Then .RemoveItem (j)
        Next j
    Next i
   
If .ListCount > 0 Then .ListIndex = 0
End With