nrdz83 XLDnaute Impliqué 6 Mai 2015 #1 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") Cliquez pour agrandir... 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. Dernière édition: 6 Mai 2015
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") Cliquez pour agrandir... 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 XLDnaute Barbatruc 6 Mai 2015 #2 Re : N° de serie automatique Bonsour® nrdz83 à dit: 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? Cliquez pour agrandir... 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") Cliquez pour agrandir... Vote positif 0 Vote négatif
Re : N° de serie automatique Bonsour® nrdz83 à dit: 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? Cliquez pour agrandir... 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") Cliquez pour agrandir...
nrdz83 XLDnaute Impliqué 6 Mai 2015 #3 Re : N° de serie automatique Bonjour modeste geedee, super ça fonctionne impeccable. Je te souhaite une bonne fin de journée amitiés Vote positif 0 Vote négatif
Re : N° de serie automatique Bonjour modeste geedee, super ça fonctionne impeccable. Je te souhaite une bonne fin de journée amitiés