Petite question, mettre un blanc au départ d'une combobox?

[Yannick01]

Bonjour à toutes et à tous

Je viens pas embêter tout le monde avec des trucs ultra-compliqué aujourd'hui, j'aurais juste besoin d'une petite chose (du moins je pense )

Donc je rempli une combobox avec ce code:
Private Sub ComboBox5_Ini() 'code trouvé sur ce forum, auteur: @+Thierry
'que je remercie
Dim DataCombo As New Collection
Dim Item
Dim Cell As Range
With Worksheets("Composants")
On Error Resume Next
For Each Cell In .Range("D1" & .Range("D65536").End(xlUp).Row)
DataCombo.Add Cell.Text, Cell.Text
Next Cell
End With
For Each Item In DataCombo
ComboBox5.AddItem Item
Next Item
End Sub

Et en fonction de mon choix, j'ai un tas de choses qui s'inscrit dans plusieurs textbox

Petit inconvénient (du moins pour mon application), je ne peux plus avoir de blanc après un choix dans ma combobox (c'est pour vider les textbox en fait)
Donc ma question, comment avoir un blanc au début d'une liste dans une combobox?

Voilà, je pense pas que ce soit très compliquè mais j'ai pas trouvé

Merci d'avance pour vos réponses

 

[Yannick01]

bon bah j'ai trouvé, j'avais pas assez cherché

il suffisait de mettre ComboBox5.AddItem "" avant le "for each"

je savais bien que c'était simple, mais ça ne m'ai pas venu à l'idée tout de suite

@+

 

[patrice]

Bonjour Yannick et au Forum,
ComboBox5.AddItem " " ' ou ""
For Each Item In DataCombo
ComboBox5.AddItem Item
Next Item
Attention si tu testes ComboBox5.ListeIndex dans ton code la valeur change 0=le blanc
A+