enlever les ligne vide dans une listbox

Meloman · 20 Février 2012

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 · 20 Février 2012

Re : enlever les ligne vide dans une listbox

Bonsoir,

Au lieu de :

Code:

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

écrire :

Code:

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

A+

BOISGONTIER · 20 Février 2012

Re : enlever les ligne vide dans une listbox

Bonsoir,

Code:

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 · 20 Février 2012

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

enlever les ligne vide dans une listbox

Meloman

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Meloman

XLDnaute Occasionnel

Discussions similaires

enlever les ligne vide dans une listbox

Meloman

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Meloman

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency