Bonjour,
Voici un essai avec un code à placer dans le module de la feuille en question.
Ce code nécessite une colonne supplémentaire (ici juste à droite de la colonne de saisie) où seront inscrites les valeurs de numérotation de la saisie. Il faut mettre vos plages réelles. Si vous aviez un tableau structuré, ce serait mieux et alors vous devriez mettre range("nomtableau[nomcolonne]").
private sub worksheet_change(byval target as range)
if not intersect(target, range("refdemaplageavecok/nok")) is nothing and target.count = 1 then 'adapter !!! (ex : range("G2:G100")
if target = "" then 'si la cellule de saisie devient vide
target.offset(0,1) = "" 'la cellule de numérotation le devient aussi
else 'sinon, la numérotation vaut le max des numérotations + 1
target.offset(0,1) = application.max(range("refcolonneclechrono")) + 1 'adapter !!! (ex : range("H2:H100")
end if
end if
end sub
Cdlt,