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