Enlever les blancs dans combobox

bonjour a tous,

j'aimerais savoir comment enlever les blancs dans liste deroulante combobox

dans mon userform il y a une combobox qui renvoie des emplacments disponible et la c est le drame, il faut faire defiler la liste car sinon on ne voie pas les emplacements dispo (meme probleme avec les n° d'article dispo)

je joints le fichier car voir ce qui ce passe mieux que de long discours

si quelqu un a une idee je suis preneur

je vous remercie

97fred82700.xlsm (33.76 Ko)

Bonjour

Une solution pour le ComboBox13

Effaces la propriété RowSource

Modifies ta macro

Private Sub UserForm_Initialize()
  Set f = Sheets("Para")
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range(f.[A2], f.[A65000].End(xlUp))
    mondico(c.Value) = c.Value
  Next c
  Me.ComboBox11.List = mondico.items
  mondico.RemoveAll
  For Each c In Range(f.[H2], f.[H65000].End(xlUp))
    If c <> "" Then
      mondico(c.Value) = c.Value
    End If
  Next c
  Me.combobox13.List = mondico.items

End Sub

Utilises la même méthode ( If c <> "" Then .... End If) pour les autres ComboBox

super genial

merci a toi banzai64 ca marche super

encore merci

Rechercher des sujets similaires à "enlever blancs combobox"