Générer un n° de facture

Résolu/Fermé
picsou5 Messages postés 27 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 9 janvier 2024 - 12 août 2014 à 10:44
amarcoux_89 Messages postés 6 Date d'inscription vendredi 8 août 2014 Statut Membre Dernière intervention 23 décembre 2014 - 12 août 2014 à 15:30
Bonjour !

J'aimerai générer un n° de facture aléatoire compris entre 0001 et 9999 mais lorsque je ferme mon fichier et que je l'ouvre à nouveau, mon n° ne doit pas changer ! Après serait-il possible de copier mon fichier et lorsque j'ouvre la copie un autre n° se génère ?

Si quelqu'un pourrait m'aider ça serait génial.

Merci d'avance.

1 réponse

amarcoux_89 Messages postés 6 Date d'inscription vendredi 8 août 2014 Statut Membre Dernière intervention 23 décembre 2014 3
Modifié par amarcoux_89 le 12/08/2014 à 15:34
J'espère que cela va t'aider un peu :

Private Sub Workbook_Open()
    If IsEmpty(Range("A1")) Then
        Randomize
        Range("A1").Value = Int((10000 * Rnd) + 1)
    End If
End Sub


Tu mets ce code dans "ThisWorkbook" dans l'éditeur VBA et tu auras un numéro de facture aléatoire (dans la case A1) lorsque tu ouvres le fichier, sauf s'il y en avait déjà un.
0