combo sur 2 colonne d'une liste filtrée

Chombi · 1 Septembre 2015

Re bonjour à tous me revoilu avec mes filtres et mes tries

je voudrai l'affichage des lignes filtrées dans ma combo, je n'arrive pas à trouver pourquoi ça ne fonctionne pas

Code:

With ComboBox1
    .ColumnCount = 2
    .List = Range("A3:B" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value
End With

ci joint fichier test, je n'ai pas trouve la réponse sur le forum, j'ai failli déterrer un fil de 2010 de Pierrot 93 mais je n'ai pas osé

Merci

job75 · 8 Septembre 2015

Re : combo sur 2 colonne d'une liste filtrée

Re,

Sur ce fichier (3) j'ai remplacé :

Code:

With Feuil1 'Codename
  For Each c In .Range("A5", .Range("A" & .Rows.Count).End(xlUp)(5))
    If c <> "" And Not c.Rows.Hidden Then d(c & Chr(1) & c(1, 2)) = ""
  Next

par :

Code:

With Feuil1 'Codename
  On Error Resume Next
  For Each c In .Range("A5", .Range("A" & .Rows.Count).End(xlUp)(5)).SpecialCells(xlCellTypeVisible)
    If c <> "" Then d(c & Chr(1) & c(1, 2)) = ""
  Nex

t
Avec 100 000 lignes UserForm_Initialize s'exécute maintenant en 2,9 secondes.

Prenez donc ce fichier puisque c'est un peu mieux.

A+

combo sur 2 colonne d'une liste filtrée

Chombi

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

combo sur 2 colonne d'une liste filtrée

Chombi

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency