bonjour
je recherche une explication remise a zero en fonction de l'année

je voudrais que en 2018 les numéro recommence a zéro



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement
 Me.cboMember.ListIndex = -1
 RecordNumber = RecordNumber + 1
 With rng
  With .Cells(RecordNumber, 1)
   If Len(.Value) = 0 Then ' ID
    .Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
   End If
 
Dim N
 
 
'.NumberFormat = "Fiche " & "F" & Year(Date) & "-" & "\R000" ' Format
.NumberFormat = "F" & Year(Date) & "-" & Format(N + 1, "00000")
  End With
    .Cells(RecordNumber, 2) = Me.txtName
    .Cells(RecordNumber, 3) = Me.txtFirstName