Dim WS As Worksheet
Dim WB As Workbook
Dim Cell As Range, Plage As Range
Set WB = ThisWorkbook
With ListView2
'affichage en mode "Détails"
.Font.Bold = True
.View = 3 'lvwReport
.Gridlines = True
.LabelEdit = 1 'Pour "Locked" la ListView
With .ColumnHeaders
.clear
.Add , , "Famille", 60
.Add , , "référence", 100
.Add , , "désignation", 100
.Add , , "fournisseur", 80
' .Add , , "facture", 80
.Add , , "QTE", 30
.Add , , "CDE...", 70
.Add , , "Date CDE", 60
.Add , , "QTES CDE", 50
.Add , , "stock mini", 60
.Add , , "nom technicien", 90
End With
End With
For Each WS In WB.Worksheets
Set Plage = WS.Range(CEL_ADDRESS)
For Each Cell In Plage
If Cell.Value = "En commande" Then
With Me.ListView2
.ListItems.Add , , WS.Name
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, -7)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, -6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, -5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, -3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cell.Offset(0, 4)
'.ListSubItems.Add , , Cell.Value - Cell.Offset(0, 3)
End With
End If
Next Cell
Next WS