listbox ne pas tenir compte si vide

ced91300

XLDnaute Occasionnel
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
 

ced91300

XLDnaute Occasionnel
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
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna