Private Sub ListView2_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim J As Integer
Dim I As Integer
If Item.Checked = True Then
Item.ForeColor = RGB(0, 0, 255) 'Changement couleur
Item.Bold = True 'Gras
For J = 1 To Item.ListSubItems.Count
Item.ListSubItems(J).ForeColor = RGB(0, 0, 255)
Item.ListSubItems(J).Bold = True
For I = 1 To ListView2.ListItems.Count
With Sheets("feuil1")
.Cells(31, 2) = "Réf:"
.Cells(31, 3) = ListView2.ListItems(I).ListSubItems(1).Text
.Cells(31, 6) = "NB pièces:"
.Cells(31, 7) = ListView2.ListItems(I).ListSubItems(7).Text
End With
Next I
Next J
Else
Item.ForeColor = RGB(1, 0, 0) 'Changement couleur
Item.Bold = False
For J = 1 To Item.ListSubItems.Count
Item.ListSubItems(J).ForeColor = RGB(1, 0, 0)
Item.ListSubItems(J).Bold = False
For I = 1 To ListView2.ListItems.Count
With Sheets("feuil1")
.Cells(31, 2) = ""
.Cells(31, 3) = ""
.Cells(31, 6) = ""
.Cells(31, 7) = ""
End With
Next I
Next J
End If
End Sub