j'aurais besoin de renseigné automatiquement dans un document un numéro:
011011B001
01 le mois; 10 l'année; 11 le jour; B une lettre aléatoire; 001 le numéro du doc.
et que ce numéro soit unique.
je sèche complètement..
merci a vous.
Il va falloir que tu gardes un historique des numéros pour être sûr qu'ils sont uniques.
Si un numéro généré existe déjà, on ajoute 1 au 001 (numéro du doc) ?
l'exemple envoyer par JCGL me convient tous a fait, mais j'aimerais que le numéro s'incrémente automatiquement dans la feuille a l'ouverture du classeur
Option Explicit
Private Sub Workbook_Open()
With Feuil1
Range("A1").Formula = _
"=TEXT(TODAY(),""mmaajj"")&CHAR(ALEA.ENTRE.BORNES(65,90))&TEXT(NOW(),""ss"")"
Range("A1") = Range("A1")
End With
End Sub
Un nouveau numéro est donc entré en G4 de la feuille RMA à chaque ouverture...
Ci-joint le fichier.
La macro dans ThisWorkbook :
Code:
Private Sub Workbook_Open()
Dim n As Integer
Randomize
On Error Resume Next
With Sheets("RMA")
n = CInt(Mid(.[G4], 8, 9 ^ 9))
.[G4] = Format(Date, "mmyydd") & Chr(Int(65 + Rnd * 26)) & Format(n + 1, "000")
End With
End Sub