Bonjour au forum
Dans le code ci dessous, j'alimente une combobox avec la colonne A de la feuille "Données", je voudrais l'alimenter avec les colonnes A et C de la feuille "Données"
Private Sub UserForm_Initialize()
Dim NoDupes As New Collection
Dim vaOperation As Variant
Dim stTypeOperation() As String
Dim x, MesTiers, j
Range("F1").Select
Set f = Sheets("Données")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("A2", f.[A65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
For Each i In mondico.items
Me.ComboBoxMode.AddItem i
Next
Me.ComboBoxMode.ListIndex = -1
End Sub
Bon weekend à tous
Citaro
Dans le code ci dessous, j'alimente une combobox avec la colonne A de la feuille "Données", je voudrais l'alimenter avec les colonnes A et C de la feuille "Données"
Private Sub UserForm_Initialize()
Dim NoDupes As New Collection
Dim vaOperation As Variant
Dim stTypeOperation() As String
Dim x, MesTiers, j
Range("F1").Select
Set f = Sheets("Données")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("A2", f.[A65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
For Each i In mondico.items
Me.ComboBoxMode.AddItem i
Next
Me.ComboBoxMode.ListIndex = -1
End Sub
Bon weekend à tous
Citaro
Dernière édition: