Discussion :

[JulienLeno]

Bonjour à vous,

Je rencontre un problème pour remplir 1 combobox à partir d'un tableau excel. En fait j'ai un tableau dans lequel j'ai trois types de valeurs au niveau de ma colonne V. Je voudrais pouvoir remplir ma combobox en ayant le choix parmis ces 3 valeurs.

J'ai crée le code suivant mais ceci ne fonctionne pas et je ne comprend pas pourquoi pourriez vous me donner un coup de main en me montrant mon erreur. merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm2_Initialize()
 
With Sheet15
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Sheet15.Range([V2], [V250].End(xlUp))
   If Not MonDico.Exists(c.Value) And c.Value <> "" Then MonDico.Add c.Value, c.Value
  Next c
  UserForm2.ComboBox1.List = MonDico.items
 
End With
 
End Sub

[gFZT82]

Bonjour,

Un indice en trop ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub UserForm_Initialize()

Cordialement.