Bonjour,
Je cherche à alimenter une listbox à partir de ma feuille (macro ci-dessus), actuellement il me liste tout à partir de la date choisit.
je souhaiterai par compte même date même nom mettre une seule ligne dans ma listbox.
merci
dam
Sub recap()
Dim TheDate As Date ' Déclare les variables.
Dim Msg
Dim c As Long
Windows("base en projet.xls").Activate
Range("A1").Select
reponse = InputBox("Entrez une date (jj/mm/aaaa)", "Listing contrôle depuis le... ", Sheets("base").Range("A1"))
If IsDate(reponse) Then
TheDate = reponse
UserForm3.Label2 = Date - DateDiff("d", TheDate, Now)
UserForm3.Caption = "Récapitulatif des contrôles depuis le :" & TheDate
UserForm3.CommandButton2.Caption = "Mise en page du récapitulatif des contrôles depuis le: " & UserForm3.Label2.Caption
lafin = Worksheets("base").Range("A65536").End(xlUp).Row + 1
For n = 1 To lafin
If Worksheets("base").Range("A" & n) = CDate(UserForm3.Label2) Then
debut = n
Exit For
End If
Next n
If n = lafin + 1 Then
MsgBox ("La date n'existe pas!")
Call recap
Else
For n = debut To lafin
UserForm3.ListBox1.AddItem Worksheets("base").Range("a" & n).Text 'date
Next n
For n = 1 To UserForm3.ListBox1.ListCount - 1
UserForm3.ListBox1.List(n - 1, 1) = Worksheets("base").Range("b" & n + debut - 1) 'nom
UserForm3.ListBox1.List(n - 1, 2) = Worksheets("base").Range("c" & n + debut - 1) 'immat
Next n
UserForm3.Show
'UserForm3.CommandButton2_Click
End If
Else
If reponse = "" Then
Exit Sub
Else
MsgBox ("Format date incorrect!")
Call recap
End If
End If
Je cherche à alimenter une listbox à partir de ma feuille (macro ci-dessus), actuellement il me liste tout à partir de la date choisit.
je souhaiterai par compte même date même nom mettre une seule ligne dans ma listbox.
merci
dam
Sub recap()
Dim TheDate As Date ' Déclare les variables.
Dim Msg
Dim c As Long
Windows("base en projet.xls").Activate
Range("A1").Select
reponse = InputBox("Entrez une date (jj/mm/aaaa)", "Listing contrôle depuis le... ", Sheets("base").Range("A1"))
If IsDate(reponse) Then
TheDate = reponse
UserForm3.Label2 = Date - DateDiff("d", TheDate, Now)
UserForm3.Caption = "Récapitulatif des contrôles depuis le :" & TheDate
UserForm3.CommandButton2.Caption = "Mise en page du récapitulatif des contrôles depuis le: " & UserForm3.Label2.Caption
lafin = Worksheets("base").Range("A65536").End(xlUp).Row + 1
For n = 1 To lafin
If Worksheets("base").Range("A" & n) = CDate(UserForm3.Label2) Then
debut = n
Exit For
End If
Next n
If n = lafin + 1 Then
MsgBox ("La date n'existe pas!")
Call recap
Else
For n = debut To lafin
UserForm3.ListBox1.AddItem Worksheets("base").Range("a" & n).Text 'date
Next n
For n = 1 To UserForm3.ListBox1.ListCount - 1
UserForm3.ListBox1.List(n - 1, 1) = Worksheets("base").Range("b" & n + debut - 1) 'nom
UserForm3.ListBox1.List(n - 1, 2) = Worksheets("base").Range("c" & n + debut - 1) 'immat
Next n
UserForm3.Show
'UserForm3.CommandButton2_Click
End If
Else
If reponse = "" Then
Exit Sub
Else
MsgBox ("Format date incorrect!")
Call recap
End If
End If