If Date <> DateSortie Then DateSortie.Offset(1, 0).Value = Date ' ici code avec décalage pour valeur numérique car dates différentes Else ' Pas la peine de changer la date ' mais incrément de la valeur numérique au même endroit. End IF
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub IncrementeStock() Dim DateSortie As Range Dim DateStock As Range Dim DateHS As Range Dim DateActuelle As Date Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp) Set DateStock = Sheets("Stock").Range("A65536").End(xlUp) Set DateHS = Sheets("HS").Range("A65536").End(xlUp) DateActuelle = Date If DateSortie.Value <> DateActuelle Then DateSortie.Offset(1, 0).Value = DateActuelle DateStock.Offset(1, 0).Value = DateActuelle DateHS.Offset(1, 0).Value = DateActuelle DateSortie.Offset(1, 1).Value = DateSortie.Offset(0, 1).Value - 1 DateStock.Offset(1, 1).Value = DateStock.Offset(0, 1).Value - 1 DateHS.Offset(1, 1).Value = DateHS.Offset(0, 1).Value + 1 Else DateSortie.Offset(0, 1).Value = DateSortie.Offset(0, 1).Value - 1 DateStock.Offset(0, 1).Value = DateStock.Offset(0, 1).Value - 1 DateHS.Offset(0, 1).Value = DateHS.Offset(0, 1).Value + 1 End If Set DateSortie = Nothing Set DateStock = Nothing Set DateHS = Nothing End Sub