Probleme liste dans combobox

[llambry]

Bonjour,

Je n'arrive pas à définir une liste d'item dans ma combobox.
J'ai un tableau à plusieurs colonnes (colonne c --> emplacement, colonne D --> Qté). Ce tableau est mise à jour régulièrement et de temps en temps, j'ai des cellules de la colonne D (Qté) vides. Je voudrais avoir la liste des emplacement (colonne C) des cellules vides (colonne D) dans ma combobox.

Voici mon code vba qui ne fonctionne pas :
Private Sub UserForm_Initialize()

Me.ComboBox1.Clear

Dim Plage As String
With Sheets("Références")
Dim Plg As Range, Plg2 As Range

liste = Range("d7:d488").SpecialCells(xlCellTypeBlanks).Offset(0, -1).Select

End With

ComboBox1.Text = liste

Pouvez vous m'aider !!!!! merci d'avance

 

[Bebere]

Re : Probleme liste dans combobox

bonjour llambry
à tester

Dim Plage As String

Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "100;40"

With Sheets("Références")
For Each Cel In .Range("d7:d488")
If Cel = "" Then
Me.ComboBox1.AddItem Cel.Offset(0, -1)
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = Cel.Row
End If
Next
End With

 

[llambry]

Re : Probleme liste dans combobox

Salut Bebere

Trop fort .... ça marche, merci beaucoup.
Petite question : A quoi sert : Me.ComboBox1.ColumnWidths = "100;40" ??