Alimentation combo selon condition

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

Bonjour,

montre nous ton code permettant de remplir ta combo... (voir ma signature si tu comprends pas la question

Ok, le voici

Private Sub UserForm_Initialize()

 Dim Plage As Range

 With Sheets("Feuil1")
    Set Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'A adapter
End With
ComboBox1.List = Plage.Value

End Sub

Bonsoir,

Private Sub UserForm_Initialize()
    Dim Plage As Range, c As Range
    With Sheets("Feuil1")
        Set Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        For Each c In Plage
            If c.Offset(, 3) >= Date Then ComboBox1.AddItem c.Value
        Next c
    End With
End Sub

Cordialement.

Merci MFerrand

C'est parfait; ça fonctionne très bien, comme d'hab'

Merci encore

Par contre, je n'arrive pas, dans le cadre d'un autre exercice de tester la valeur "VRAI" en adaptant ton code

Je me voyais bien regler le problème en ecrivant

For Each c In Plage
            If c.Offset(, 4) ="VRAI" Then ComboBox1.AddItem c.Value
        Next c

Meuh non, ca marche pas bien sûr ...

For Each c In Plage
            If c.Offset(, 4) Then ComboBox1.AddItem c.Value
        Next c

s'il s'agit d'une valeur booléenne.

Une valeur booléenne n'est pas une valeur String.

Mais le cas échéant tu aurais pu avec :

            If c.Offset(, 4).Text = "VRAI" Then...

Cordialement.

Oui évidemment ...

Il me semblait avoir essayé avec

If c.Offset(, 4).Text = "VRAI" then 

mais j'avais du louper un truc

Merci beaucoup en tout cas

Et à bientôt