ComboBox sans ligne vide à cause de cellule vide

[Mi_]

Bonsoir le forum, yopla je suis là !

Donc je veux rentrer dans un ComboBox la plage A1:G1 (et pas une colonne, hein). J'utilise:

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose(Range('A1:G1'))
End Sub

Mon problème c'est que si jamais la cellule D1 est vide, le ComboBox va intégrer une ligne blanche (vide). Je voudrais supprimer donc ces lignes vides, s'il y a des cellules vides dans la plage.

Merci pour toute aide,
Mi_

 

[myDearFriend!]

Bonsoir Mi_,

A mon avis, la façon la plus simple de faire :

Private Sub UserForm_Initialize()
Dim C As Range
      For Each C In Range('A1:G1')
            If C.Value <> '' Then
                  ComboBox1.AddItem C.Value
            End If
      Next C
End Sub

Cordialement,

 

[Mi_]

Bonsoir myDearFriend!,

Rien à redire, c'est vraiment simple et éfficace. Merci beaucoup.

Mi_