Bonjour le Forum,
je viens vers vous pour demander de l'aide,
j'ai un classeur avec plusieurs feuilles , je veux definir mon tablo à partir de ma feuille "Mvts" et alimenter un combobox1 avec les élements de la colonne E , voici mon code :
si la feuille "Mvts" est la feuille active , mon combobox est alimenté correctement
mon probleme : si la feuille "Mvts" n'est pas la feuille active , mon combobox ne prend pas tous les éléments de la colonne E
par exemple dans ma colonne E j'ai ces éléments :
V1
V2
V1
V1
V1
V1
V3
si la feuille "Mvts" n'est pas la feuille active , mon combobox ne contient que V1 et V2 , il manque donc le V3
j'ai une erreur dans mon code et j'arrive pas à mettre la main dessus !
je vous remerci d'avance
je viens vers vous pour demander de l'aide,
j'ai un classeur avec plusieurs feuilles , je veux definir mon tablo à partir de ma feuille "Mvts" et alimenter un combobox1 avec les élements de la colonne E , voici mon code :
Code:
Private Sub UserForm_Initialize()
Dim tablo, i As Long, data As Object
tablo = Sheets("Mvts").Range("A3:G" & Range("A65000").End(xlUp).Row)
Set data = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
If Not data.exists(tablo(i, 5)) Then data.Add tablo(i, 5), tablo(i, 5)
Next i
ComboBox1.List = data.items
End Sub
si la feuille "Mvts" est la feuille active , mon combobox est alimenté correctement
mon probleme : si la feuille "Mvts" n'est pas la feuille active , mon combobox ne prend pas tous les éléments de la colonne E
par exemple dans ma colonne E j'ai ces éléments :
V1
V2
V1
V1
V1
V1
V3
si la feuille "Mvts" n'est pas la feuille active , mon combobox ne contient que V1 et V2 , il manque donc le V3
j'ai une erreur dans mon code et j'arrive pas à mettre la main dessus !
je vous remerci d'avance