Remplir une listbox multicolonne avec tableau excel filtré

[etpisculrien]

Bsr à tous,

j'espère que ça va...
j'ai une fois de plus besoin de vos lumières :s

Voilà le problème:
j'ai fait un userform avec 2 combobox et 1 listebox
En fonction des choix realisés via les combo, un filtre est exécuté sur un tableau excel.
Ma question est la suivante: Comment puis je alimenter ma listebox avec uniquement les éléments du tableau filtré?

Je vous remercie d'avance de votre aide

A+

 

[Fred0o]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Bonsoir Etpisculrien,

Je te propose d'utiliser la propriété ".Hidden" qui t'indique si une cellule est masquée ou non.
Par exemple :

If Not Range("H25").Hidden Then

Ceci te permettra de récupérer la valeur de la cellule H25 car elle n'est pas masquée.

A+

 

[etpisculrien]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Slt Fred0o,

Merci pour ta réponse, je n'y avais pas pensé. Je vais essayer ça en espérant que cela ne ralentisse pas trop l'execution, au vu du nombre de ligne à traiter.
Je te tiens au courant

A+

 

[Pierrot93]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Bonjour,

peut être comme ceci si l'on veut éviter une boucle :

Private Sub UserForm_Initialize()
With ListBox1
    .ColumnCount = 2
    .List = Range("A2:B" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value
End With
End Sub

bonne journée
@+

 

[etpisculrien]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Slt Pierrot,

Encore mieux!!!! C'est nickel, ça va concidérablement accélérer l'execution.

Merci encore à tous

A+ (y a de grande chance :-s)

 

[etpisculrien]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Re bjr,

Heu, l'idée etait bonne mais ya un truc qui marche pas, je ne comprends pas pourquoi.
Quand j'utilise la proposition de Pierrot, je n'ai que mes 2 premières ligne qui apparaissent dans ma listbox!?
Quelqu'un a une idée??

Merci d'avance

 

[Pierrot93]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Re,

petite précision, la dernière ligne de la plage est déterminée en fonction de la dernière cellule renseignée et visible colonne A... Pour t'en dire plus, il faudrait un extrait de fichier avec le modèle de donnée traité....

@+

 

[etpisculrien]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Ok Pierrot,

Voila mon fichier, hitoire que tu vois de plus près le problème

Je te remercie de ton aide (et accessoirement de celle des autres fondu de vba)

PS: Me taper pas pour les codes vba, je sais, je suis loin d'être au top

 

[Pierrot93]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Re,

Aarf, perso pas 2007, ne peux ouvrir ton fichier.....

 

[etpisculrien]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Ah, dur

Et j'ai beau chercher, je pige pas!
J'ai copié tes lignes et collé dans un module "affichage resultat"

Sub AfficheResultat()

With RESULTAT
.ColumnCount = 10
.List = Sheets("Sage").Range("A2:J" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value
End With

End Sub


J'ai bien vérifié, je n'ai pas de cellule vide en colonne A

Je vois pas... :-(

Je vais continuer à chercher...

A+

 

[Pierrot93]

Re : Remplir une listbox multicolonne avec tableau excel filtré

Re,

si la feuille concernée n'est pas la feuille active, modifie ainsi :

.List = Sheets("Sage").Range("A2:J" & [B][COLOR="Blue"]Sheets("Sage").[/COLOR][/B]Range("A65536").End(xlUp).Row).SpecialCells(xlCell TypeVisible).Value

bonne soirée
@+