Mettre les dates dépassées dans une ListBox
Bonjour,
Je n'arrive pas à faire en sorte que ma ListBox affiche les dates dépassées.
J'ai mis le code utilisé ci-dessous.
Je peux, si besoin, mettre le programme avec.
Merci de votre aide.
Private Sub UserForm_initialize()
Dim i As Long, DerLig As Long, x As Date
On Error Resume Next
Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "40,70,50"
With Sheets("Emprunteur")
ListBox1.Clear
DerLig = .Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
If .Range("I" & i).Value < x Then
Me.ListBox1.AddItem .Range("I" & i).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Range("C" & i).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Range("D" & i).Value
End If
Next i
End With
End Sub
- Messages
- 2'417
- Excel
- 2019
- Inscrit
- 13/07/2017
- Emploi
- Formateur, animateur,tech.informatique
Bonjour,
le point virgule ';' au lieu de la virgule ' ,' à tester
---Erreur de ma part, désolé ---
EDIT : oups non pas vu me
crdlt,
André
Bonjour,
Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "40,70,50"deux ligne à supprimer.
A la place tu affiches la fenêtre de propriété : en face de ColumnCount, tu mettras 3, et en face de ColumnWidths 40;70;50 (le séparateur est
x = 0 non initialisée... Il n'existe pas de date inférieure à 0 dans Excel... donc pas d'affichage possible.
Cordialement.
NB- L'utilisation des balises Code pour le code est toujours appréciée par tous.
Bonjour MFerrand,
Merci de ta réponse. Avec tes bons conseils, ça fonctionne !
x=Now
Quant aux balises, je voulais les mettre, mais je ne sais pas comment.
Encore merci et bonne journée.
Le bouton affichant </>.
Cordialement.