enlever les ligne vide dans une listbox

[Meloman]

Re bonjour

j'utilise une macro de david84 qui me permet d'alimenter une listbox sans doublon la macro remplie bien mais quand une liste est utilise plus de ligne que d'autre un vide dans la liste blanc apparais ma question est simple comment faire pour que cette ligne vide dans ma listbox n'apparais pas merci d'avance

 

[job75]

Re : enlever les ligne vide dans une listbox

Bonsoir,

Au lieu de :

mondico(a(j, i)) = ""

écrire :

If a(j, i) <> "" Then mondico(a(j, i)) = a(j, i)

A+

 

[BOISGONTIER]

Re : enlever les ligne vide dans une listbox

Bonsoir,

Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  Set f = Sheets("feuil1")
  For Each c In f.[A1].CurrentRegion.Offset(1)
    If c.Value <> "" Then mondico(c.Value) = ""
  Next c
  ListBox1.List = mondico.keys
End Sub

JB

 

[Meloman]

Re : enlever les ligne vide dans une listbox

bonjour boisgontier et job75 vos deux solution ont été tester et réponde tous deux à mes attentes je vous remercie pour votre contribution à mon projet.

à trés bientot