combo sur 2 colonne d'une liste filtrée

[Chombi]

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

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]

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

Re,

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

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 :

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+