Alimenter combobox selon condition

[boby63]

Bonjour
J'aimerai pouvoir exclure de la combo dans le fichier ci-joint, les valeurs en jaune car la date est dépassée (colonne 4)

Autre exercice mais ressemblant :
Remplaçons les dates en colonne par des valeurs VRAI ou FAUX. J'aimerai aussi savoir exclure de la combo les valeurs "FAUX" par exemple.

Merci d'avance et bonne soirée

 

[Roland_M]

bonsoir,

vite fais comme ça, essayer ceci pour l'alimentation de la combo

Private Sub UserForm_Initialize()
Dim Plage As Range, R As Range
With Sheets("Feuil1")
Set Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each R In Plage
If R.Interior.ColorIndex = xlColorIndexNone Then ComboBox1.AddItem R
Next
End Sub

 

[Lone-wolf]

Bonjour boby

Ton fichier en retour. Seule l'année 2017 est prise en compte dans la combo. J'ai ajouté un colonne et une combo avec les valeurs VRAI et FAUX pour filter celles-ci.

EDIT: Bonjour Roland.

 

[boby63]

Merci à vous deux et bon week-end