Bonsoir
S'il vous plaît examiner le code et correct
S'il vous plaît examiner le code et correct
Code:
Private Sub CommandButton7_Click()
ListView1.ListItems.clear
' On Error Resume Next
Dim RowNumber As Long
Dim MaxRow As Long
txt1 = Me.n1.Value: txt2 = Me.n2.Value: txt3 = Me.n3.Value
MaxRow = sheet5.Cells(sheet5.Rows.Count, 2).End(xlUp).Row
''''''''''''''''''''''''''''''''''''''
With ListView1
For RowNumber = 5 To MaxRow
If txt1 = "" Then GoTo 10
If InStr(1, sheet5.Cells(RowNumber, 9), txt1, 1) = 1 Or InStr(1, sheet5.Cells(RowNumber, 12), txt1, 1) = 1 Then
10 If txt2 = "" Then GoTo 30
If Format(CDate(sheet5.Cells(RowNumber, 4)), "yyyy/mm/dd") >= Format(CDate(txt2), "yyyy/mm/dd") Then
30 If txt3 = "" Then GoTo 40
If Format(CDate(sheet5.Cells(RowNumber, 4)), "yyyy/mm/dd") <= Format(CDate(txt3), "yyyy/mm/dd") Then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
10 .ListItems.Add , , sheet5.Cells(RowNumber, 2).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 3).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 4).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 5).Value
If Me.n1.Text = sheet5.Cells(RowNumber, 9).Text Then
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 6).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , "0"
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 8).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 9).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 15).Value
ElseIf Me.n1.Text = sheet5.Cells(RowNumber, 11).Text Then
.ListItems(RowNumber - 4).ListSubItems.Add , , "0"
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 7).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 8).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 11).Value
.ListItems(RowNumber - 4).ListSubItems.Add , , sheet5.Cells(RowNumber, 15).Value
Else
End If: End If: 'End If: End If
Next RowNumber
End With
End Sub
Dernière édition: