Incrémentation automatique de numéro de lot

Bonjour,

Je souhaite automatiser la création d'un numéro de lot dans des feuilles excel. Le numéro de lot est composé comme suit :

2 premiers digit = 2 derniers caractères de l'année

3 digit suivant = le jour de l'année en quantième

2 dernier digits = incrémentation de 01 à 99

Dans chaque feuille excel, je veux soit écrire un numéro de lot manuellement, soit avoir une touche qui créera un nouveau numéro de lot en fonction de la date du jour et des précédents numéro de déjà créés.

Merci pour votre aide.

Bonjour,

Dans le Gestionnaire de Nom Créer un Nouveau Nom « LastNoL » =2412345

Dans un module (genre Module1) créer une macro :

Sub NumDev()
ActiveCell.Value = NumLot
End Sub

Ou (Il vaut mieux utiliser une adresse valide que ActiveCell qui peut engendrer des erreurs...) :

Sub NumDev()
Range(kivabien) = NumLot
End Sub

Vous rattacherez cette macro au bouton qui vous conviendra par exemple dans le ruban développeur ou dans la barre d’outils rapide…

Puis créer la Function

Function NumLot()
Dim i&, QQQ%, k&
k = [LastNoL]
i = DateSerial(Year(Date) - 1, 12, 31)
QQQ = Format(Date - i, "000")
If Mid(k, 3, 3) < QQQ Then
k = Mid(Year(Date), 3) & QQQ & "01"
Else
k = k + 1
End If
ThisWorkbook.Names("LastNoL").RefersTo = k
NumLot = k
End Function

Et voila !

A+