Remplissage ComboBox selon condition

NICOALBERT

XLDnaute Occasionnel
Bonsoir le forum ,

J'ai un petit soucis , avec le remplissage de mon ComboBox dans un userform .

Je cherche à le remplir uniquement avec les cellules Visible .

J'arrive à le remplir avec toute les cellule mais la je bloque :confused:

Est ce que quelqu'un a une petite idée ?

Cdlt nicoalbert .
 

Pièces jointes

  • Remplissage Combo.xlsm
    13.2 KB · Affichages: 7

M12

XLDnaute Accro
Bonjour

Teste ceci dans ton userform
VB:
Private Sub UserForm_Initialize()
  Set f = Sheets("Feuil1")
  Set Rng = f.Range("A1:A" & f.[A65000].End(xlUp).Row)
    For Each c In Rng
     If c.EntireRow.Hidden = False Then Me.ComboBox1.AddItem c
   Next c
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof