XL 2016 Execution de deux ComboBox dans un UserForm

exemple644 à dit:

Bonjour,

Lorsque j'exécute le code ci-dessous, seulement une combobox sur les deux fonctionne...
Comment faire en sorte que les 2 listes marchent en même temps ?

D'avance merci !

---------------------------------------------------------------------------------------------------

'Pour la liste déroulante Nom
Private Sub UserForm_Initialize()
Dim j As Integer

For j = 1 To Range("B65536").End(xlUp).Row
ComboBox2.Value = Range("B" & j)
If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Range("b" & j)
Next j
End Sub


'Pour la liste déroulante Projet
Private Sub ComboBox1_Change()
Dim k As Integer

For k = 1 To Range("C65536").End(xlUp).Row
ComboBox1.Value = Range("C" & k)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("c" & k)
Next j
End Sub

Cliquez pour agrandir...

'Pour les listes déroulante Nom
Private Sub UserForm_Initialize()
    Dim j&
    For j = 1 To Range("B65536").End(xlUp).Row
        ComboBox2.AddItem Range("B" & j)
    Next

    'Pour la liste déroulante Projet
    For j = 1 To Range("C65536").End(xlUp).Row
        ComboBox1.AddItem Range("C" & j)
    Next
End Sub

Dranreb à dit:

Bonsoir.
Dans ce classeur, deux ComboBox, pour Nom et Prénom.

Cliquez pour agrandir...

Dranreb à dit:

En effet, du moins pas sans précaution. Le ComboBoxLiées a toutefois des méthodes Stopper et Réactiver pour empêcher et rétablir les évènements Change et BingoUn
Mais du coup ça ouvre théoriquement la voie à la création de doublons de leur combinaison. Mais ça se fait, pas de problème. On peut ajouter par exemple un ToggleButton pour apporter cette possibilité.
Ne pas oublier de faire même en modification un CLs.ValeursVers TVL au cas où ils auraient été changés pendant qu'il est stoppé.

Cliquez pour agrandir...