Alimenter une listbox sous condition

[bartelele]

Bonjour,

Ma bonne résolution pour 2011 est de progresser en vba mais bon faute est de constater que c’est pas encore le cas…

J’ai une base de donnée, avec en colonne A des noms, et en colonne 7 des dates.

J’ai un userform avec uen listbox.

Ce que je souhaite faire, c’est alimenter ma listebox avec tous les noms dont la date(colonne 7) est supérieure à aujourd’hui.

J’ai essayé de faire ca

Do Until ActiveWorkbook.Sheets("base").Cells(i, 7) = ""
If ActiveWorkbook.Sheets("base").Cells(i, 7 > Date Then
Me.LB_Visite_medicale_retard.AddItem (ActiveWorkbook.Sheets("base").Cells(i, 1))
End If

i = i + 1
Loop

Mais ça ne marche pas… :s

En plus, il se peut que certaines lignes ne soient pas remplit, mais je ne veux pas que ça arrête la procédure, comment faire ? 

Merci de votre aide

 

[klin89]

Re : Alimenter une listbox sous condition

Bonjour bartelele,

Décline l'exemple fourni par boisgontier dans ce lien.

https://www.excel-downloads.com/threads/charger-un-listbox-multicolonnes-sous-condition.107117/

Klin89

 

[bartelele]

Re : Alimenter une listbox sous condition

merci, ca marche