Remplir une listbox multicolonne avec tableau excel filtré

Fred0o

XLDnaute Barbatruc

• 25 Novembre 2010

• #2

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 :

VB:

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+

 

Vote positif 0 Vote négatif

E

etpisculrien

XLDnaute Occasionnel

• 25 Novembre 2010

• #3

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Novembre 2010

• #4

Re : Remplir une listbox multicolonne avec tableau excel filtré

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

E

etpisculrien

XLDnaute Occasionnel

• 26 Novembre 2010

• #5

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)

 

Vote positif 0 Vote négatif

E

etpisculrien

XLDnaute Occasionnel

• 26 Novembre 2010

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Novembre 2010

• #7

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é....

@+

 

Vote positif 0 Vote négatif

E

etpisculrien

XLDnaute Occasionnel

• 26 Novembre 2010

• #8

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

 

Pièces jointes

• Tri.xlsm

  47.3 KB · Affichages: 615
• Tri.xlsm

  47.3 KB · Affichages: 629
• Tri.xlsm

  47.3 KB · Affichages: 673

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Novembre 2010

• #9

Re : Remplir une listbox multicolonne avec tableau excel filtré

Re,

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

 

Vote positif 0 Vote négatif

E

etpisculrien

XLDnaute Occasionnel

• 26 Novembre 2010

• #10

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Novembre 2010

• #11

Re : Remplir une listbox multicolonne avec tableau excel filtré

Re,

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

Code:

.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
@+

 

Vote positif 0 Vote négatif