Bonjour le forum,
Je viens chercher de l'aide pour le formulaire Consigne.
Grace lone-wolf j'ai pu adapter mes codes de crétion et modification, seulement il me faut adapter le code du Textbox5_Change qui alimente la Listbox1, et je n'y arrive pas.
Voici mon code
Private Sub TextBox5_Change()
Dim DateConsigne As String, I As Integer
ListBox1.Clear
Set RngDate1 = F1.Range(F1.Cells(1, 1), F1.Cells(1, 1).End(xlDown))
Set RngDate2 = F1.Range(F1.Cells(1, 2), F1.Cells(1, 2).End(xlDown))
Set RngConsigne = F1.Range(F1.Cells(1, 3), F1.Cells(1, 3).End(xlDown))
DateConsigne = Me.TextBox5
For I = 1 To RngDate1.Count
If DateConsigne <> "" Then
If RngDate1.Item(I).Value <= DateConsigne And (DateConsigne <= RngDate2.Item(I).Value _
Or F1.Cells(I, 8).Value = "") Then
'Ajoute y ce que tu souhaites, avec la forme que tu souhaites !
'ListBox1.AddItem (RngDate1.Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 1) = (RngDate2.Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 2) = (RngConsigne.Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 3) = F1.Range("D" & I)
ListBox1.List(ListBox1.ListCount - 1, 4) = F1.Range("E" & I)
ListBox1.List(ListBox1.ListCount - 1, 5) = F1.Range("F" & I)
ListBox1.List(ListBox1.ListCount - 1, 6) = F1.Range("G" & I)
ListBox1.List(ListBox1.ListCount - 1, 7) = F1.Range("A" & I)
End If
End If
Next I
End Sub
J'ai voulu modifier comme suit mais ça ne vuex pas le faire,
ListBox1.AddItem (Range("A").Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 1) = (RngDate1.Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 2) = (RngDate2.Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 3) = (RngConsigne.Item(I).Value)
ListBox1.List(ListBox1.ListCount - 1, 4) = F1.Range("D" & I)
Je joins mon fichier pour mieux se rendre compte.
Je vous remercie de votre soutien.
pompaero
