XL 2021 Alimenter un second combobox et textbox après la selection d'un premier combobox

ans0ul

XLDnaute Nouveau
Bonjour
J'ai un problème quand je sélectionne une date dans cbbox1 rien n'affiche dans cbbox2 et cbbox4.
J'ai ajouté le format de C(Lg,2) avant, mais toujours la même chose.
Voici mon code ci-dessous
Merci pour votre aide
'Toutes les variables sont déclareés dans Public
VB:
Private Sub CbBox1_Change() 
    Set S = CreateObject("Scripting.Dictionary")
    For Lg = 2 To UBound(C)
    'C(Lg, 2) = Format(C(Lg, 2), "dd/mm/yyyy")
        If C(Lg, 2) = CbBox1.Value Then S(C(Lg, 7)) = ""
    CbBox2.List = S.keys
    CbBox4.Value = CbBox1.Value
End Sub
Private Sub UserForm_Initialize()
    C = Feuil6.Range("A1:G" & Feuil6.Range("A65000").End(xlUp).Row).Value
    Set S = CreateObject("Scripting.Dictionary")
    For Lg = 2 To UBound(C)
        S(C(Lg, 2)) = ""
    Next Lg
    CbBox1.List = S.keys
    
    Affiche_Lvw1
End Sub
 

Discussions similaires

Réponses
14
Affichages
754

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA