Salut Sassi,
voici déjà la première demande : l'incrémentation de ton n de facture.
Le calcul recommence la numérotation à 1 au passage d'année!
Il faut aussi que tu supprimes la Sub TextBox10_Change(), évidemment!!!
Private Sub UserForm_Initialize()
'
TextBox3.Value = Date
With Worksheets("factures")
iRow = .Range("K" & Rows.Count).End(xlUp).Row
iFlag = Val(Right(.Cells(iRow, 11), 5)) + 1
iFlag1 = Val(Mid(.Cells(iRow, 11), 2, 4))
If iFlag1 < Year(Now) Then
iFlag1 = Year(Now)
iFlag = 1
End If
sData = "F" & iFlag1 & "-" & Format(iFlag, "00000")
End With
Me.TextBox10.Text = sData
'
End Sub
A+