Alimenter une combobox colonnes discontinues

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

Bonjour et bienvenue sur le forum

Remplace cette instruction :

For Each c In f.Range("A2", f.[A65000].End(xlUp))

par celle-ci :

For Each c In Union(f.Range("A2", f.[A65000].End(xlUp)), f.Range("C2", f.[C65000].End(xlUp)))

puis fais l'essai et dis-moi le résultat.

Bye !

Merci Gmb

Cette ligne modifiée, le userform réponds à mes attentes.

Bon weekend

Citaro