Alimentation spéciale de combobox

[g.mir87]

Bonjour à tous,

je souhaiterais alimenter une combobox sous vba d'une certaine façon.
Je dispose d'une liste de valeurs (disponible dans l'une de mes feuilles).
Je souhaiterais en fait qu'apparaisse la valeur "x" entre chacune des valeurs d'origine.

Vous trouverez un fichier en PJ pour mieux illustrer mes propos.

Je vous remercie d'avance pour vos réponses.

Bonne journée

Guillaume

 

[MichD]

Re : Alimentation spéciale de combobox

Bonjour,

Sub test()

With Worksheets("Feuil1")
    Set rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each c In rg
    Me.ComboBox1.AddItem c.Value
    Me.ComboBox1.AddItem "X"
Next
End Sub

 

[g.mir87]

Re : Alimentation spéciale de combobox

MichD, veux-tu m'épouser?

Merci énormément, je n'imaginais pas cela aussi simple (sans te dévaloriser évidemment).
Merci à toi.

Bonne journée