[RESOLU] N° de serie automatique

[nrdz83]

Bonjour à tous,

j'utilise ce code pour me créer un N° de série automatiquement

'Pour incrémenter automatiquement le N° de la fiche Matériel dans l'userform
Me.Label_Matos = Format(Application.CountA(Columns(1)), "000")

Mon problème est que si je supprime un matériel dans ma feuille, lors de la prochaine saisie le n° de série est créé en doublon.

Comment modifier ce code afin d'avoir un numéro unique?

Par aavnce merci.

 

[Modeste geedee]

Re : N° de serie automatique

Bonsour®

J'utilise ce code pour me créer un N° de série automatiquement
Mon problème est que si je supprime un matériel dans ma feuille, lors de la prochaine saisie le n° de série est créé en doublon.
Comment modifier ce code afin d'avoir un numéro unique?

Normal ... tu te sers en fait du nombre de N° de série...
il faut trouver le plus grand et l'incrémenter pour générer le suivant.

Me.Label_Matos = Format(1+Application.max(range("A:A")), "000")

 

[nrdz83]

Re : N° de serie automatique

Bonjour modeste geedee, super ça fonctionne impeccable.

Je te souhaite une bonne fin de journée

amitiés