listbox ne pas tenir compte si vide

[ced91300]

Bonjour à tous,

j'ai cette formule qui recherche les dates dépassées en colonne "I", mais j'aurai besoin d'ajouter que si dans cette colonne "I" des cellules sont vide ne pas les prendre en compte. (actuellement il me les prend en compte dans l'alimentation de la liste box

je suppose que c'est dans : " If .Range("I" & i).Value < Date Then"

Merci de votre aide .

cordialement .

Private Sub UserForm_Click()
Dim i As Long, DerLig As Long
On Error Resume Next
Me.ListBox2.ColumnCount = 3
Me.ListBox2.ColumnWidths = "80,80,80"
With Sheets("Feuil000")
DerLig = .Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
If .Range("I" & i).Value < Date Then
Me.ListBox2.AddItem .Range("A" & i).Value
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = .Range("C" & i).Value
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = .Range("F" & i).Value
End If
Next i
End With

 

[phlaurent55]

Bonjour ced,

essaie ceci:
If .Range("I" & i).Value < Date And .Range("I" & i).Value <>" Then

à+
Philippe

 

[ced91300]

Bonjour ced,

essaie ceci:
If .Range("I" & i).Value < Date And .Range("I" & i).Value <>" Then

à+
Philippe

Bonjour Philippe et merci de ton aide,

j'ai l'erreur : "Erreur de compilation attendu: THEN ou GOTO" qui s'affiche

Merci

 

[ced91300]

Bonjour,

En PJ, différents exemples.

S'il y a beaucoup de lignes, éviter Additem (lent)

BISSON

Bonjour Nicole et Merci,

Mais en fait pour moi ce n'est pas la ligne mais uniquement dans ma colonne "i" j'ai parfois des dates et parfois pas de date, en revanche de A à H il y aura toujours des choses inscrites dans les cellules, moi c'est juste quand je n'ai rien affiché comme date en "I" qu'il ne me le calcul pas en date dépassée

En gros si une des date dans la colonne I est dépassée afficher dans la listbox si pas de données (date) ne pas les comptabiliser dans la listbox...

Cordialement