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