Bonjour à tous,
Dans un userform, j'ai une combobox dont la liste est alimenté par un dictionnaire.
Les données saisies dans le userform alimentent une colonne excel.
Cette colonne excel est la colonne qui alimente mon dictionnaire.
Mon problème est que lorsque je saisie une valeur qui ne fait pas partie du dictionnaire, cette valeur une fois validée dans le userform n'est pas intégré dans mon dictionnaire pour la saisie du prochain formulaire. Je pense qu'il faut saisir un code de mise à jour mais je ne sais pas lequel???
PS: Lorsque je quitte excel et que je ré-ouvre mon fichier l'élément ne figurant pas dans le dictionnaire "précédent" est bien présent.
Merci pour le coup de main.
Set mydict2 = CreateObject("Scripting.Dictionary")
Set f = Sheets("Communication_Record")
Tabl2 = Range(f.[J4], f.[J20000].End(xlUp))
For n2 = LBound(Tabl2) To UBound(Tabl2)
For m2 = LBound(Tabl2) To UBound(Tabl2)
If Tabl2(n2, 1) < Tabl2(m2, 1) Then
Temp2 = Tabl2(n2, 1)
Tabl2(n2, 1) = Tabl2(m2, 1)
Tabl2(m2, 1) = Temp2
End If
Next m2
Next n2
For n2 = LBound(Tabl2) To UBound(Tabl2)
mydict2.Item(Tabl2(n2, 1)) = Tabl2(n2, 1)
mydict2.Item(Tabl2(n2, 1)) = Format(Tabl2(n2, 1), "mmmm-yyyy")
Next n2
Me.CR010.List = mydict2.items
Dans un userform, j'ai une combobox dont la liste est alimenté par un dictionnaire.
Les données saisies dans le userform alimentent une colonne excel.
Cette colonne excel est la colonne qui alimente mon dictionnaire.
Mon problème est que lorsque je saisie une valeur qui ne fait pas partie du dictionnaire, cette valeur une fois validée dans le userform n'est pas intégré dans mon dictionnaire pour la saisie du prochain formulaire. Je pense qu'il faut saisir un code de mise à jour mais je ne sais pas lequel???
PS: Lorsque je quitte excel et que je ré-ouvre mon fichier l'élément ne figurant pas dans le dictionnaire "précédent" est bien présent.
Merci pour le coup de main.
Set mydict2 = CreateObject("Scripting.Dictionary")
Set f = Sheets("Communication_Record")
Tabl2 = Range(f.[J4], f.[J20000].End(xlUp))
For n2 = LBound(Tabl2) To UBound(Tabl2)
For m2 = LBound(Tabl2) To UBound(Tabl2)
If Tabl2(n2, 1) < Tabl2(m2, 1) Then
Temp2 = Tabl2(n2, 1)
Tabl2(n2, 1) = Tabl2(m2, 1)
Tabl2(m2, 1) = Temp2
End If
Next m2
Next n2
For n2 = LBound(Tabl2) To UBound(Tabl2)
mydict2.Item(Tabl2(n2, 1)) = Tabl2(n2, 1)
mydict2.Item(Tabl2(n2, 1)) = Format(Tabl2(n2, 1), "mmmm-yyyy")
Next n2
Me.CR010.List = mydict2.items