Sub Sauvegarde()
Dim WS As Worksheet
Dim i As Integer
Dim DerLigne As Long
Dim LigAvancement As Long
Dim ColAvancement As Long
Dim DerDate As Date
With Sheets("SAUV")
DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row ' colonne 1
DerDate = .Cells(DerLigne, 2) '
For Each WS In ThisWorkbook.Worksheets
If LCase(Left(WS.Name, 7)) = "produit" Then
LigAvancement = WS.Range("AVANCEMENT").Row
ColAvancement = WS.Range("AVANCEMENT").Column
' on recherche d'abord si une ligne existe pour cette date, ce produit
' si c'est le cas, on modifie la ligne
For i = 1 To DerLigne
If .Cells(i, 1) = WS.Name And _
DateDiff("d", WS.Range("AVANCEMENT").Offset(0, -4).Value, .Cells(i, 2)) = 0 Then
.Cells(i, 3) = WS.Range("AVANCEMENT").Value
End If
Next i
' aucune ligne existe pour cette date, ce produit
' on ajoute une ligne
If DateDiff("d", WS.Range("AVANCEMENT").Offset(0, -4).Value, DerDate) < 0 Then
DerLigne = DerLigne + 1
.Cells(DerLigne, 1) = WS.Name
.Cells(DerLigne, 2) = WS.Range("AVANCEMENT").Offset(0, -4).Value
.Cells(DerLigne, 3) = WS.Range("AVANCEMENT").Value
End If
End If
Next WS
End With
End Sub