bonjour a tous,
J'ai cette formule que j'ai piqué sur un autre truc
With Ws
'recup la ligne ou on va inscrire les nouvelles données
Ligne = .[A65536].End(xlUp).Row + 1
'determine le nouveau numero de ligne
'MsgBox Application.CountIf(Ws.Range("C2:C" & L), CDate(Me.Box3))
.Range("A" & Ligne) = Application.CountIf("D0") + 1
End With
Le soucis comme vous le voyez direct ca ne marche pas j'aimerais que mes articles s’incrémente avec la base D0: D01
D02 etc etc
https://www.cjoint.com/c/FFmnyRNxoaC
Mot de passe : gmaov2