Re : Prob de condition
Bonjour à tous
Désolé de ne pas etre tres explicite, je vais essayer de l'etre
Par bouton macro:
Je clic Feuil3 A1, cela diminue la valeur de Feuil1 A1 =-1 feuil2 A1 = -1
Le lendemain 1 clic Feuil3 A1, Feuil1 A2 =-2 Feuil2 A1 =-1,2 clic =-3 et Feuil2 A2=-2
Le lendemain 2 clic Feuil3 A1, Feuil1 A3 =-5, Feuil2 A3 =-2
Les cellules sont des exemples
J'espère avoir été explicite
Voici ma macro de départ
Public Sub IncrementeStock13()
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, 13).Value = DateSortie.Offset(0, 13).Value - 1
DateStock.Offset(1, 13).Value = DateStock.Offset(0, 13).Value - 1
DateHS.Offset(1, 13).Value = DateHS.Offset(0, 13).Value + 1
Else
DateSortie.Offset(0, 13).Value = DateSortie.Offset(0, 13).Value - 1
DateStock.Offset(0, 13).Value = DateStock.Offset(0, 13).Value - 1
DateHS.Offset(0, 13).Value = DateHS.Offset(0, 13).Value + 1
End If
Set DateSortie = Nothing
Set DateStock = Nothing
Set DateHS = Nothing
Merci pour les aides