Créer un numéro d'enregistrement unique - Conseils Excel

Janet d'Angleterre a posé la question d'aujourd'hui.

Nous avons besoin de savoir comment configurer une macro qui attribuera un numéro de facture unique, comment configurer une deuxième macro qui enregistrera la facture complétée comme numéro unique.

Voici l'application hypothétique que j'imagine. Il existe un classeur avec une feuille de calcul de facture et une feuille de calcul de menu. Je propose de stocker le dernier numéro de facture dans une cellule à l'écart de la feuille de calcul du menu, disons Z1. Si le numéro de facture est censé aller dans la cellule H2 de la feuille de calcul de la facture, cette macro ferait l'affaire:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Ensuite, pour enregistrer la facture, quelque chose comme ceci:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub