Remplissage ComboBox selon condition

[NICOALBERT]

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

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

Cdlt nicoalbert .

 

[M12]

Bonjour

Teste ceci dans ton userform

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

 

[NICOALBERT]

Bonjour M12 , le Forum,

Super , ta macro fonctionne super bien .

Un grand merci pour ton aide Cdlt Nicoalbert