Re : Numérotation par année
Peut-être comme ceci :
Sub Facture_numéroter()
Application.ScreenUpdating = False
Sheets("Chrono").Activate
Range("a" & Rows.Count).End(xlUp)(2) = Date
If Range("b2") = "" Then
Range("b2") = 1
Else
Range("b3:b" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(YEAR(RC[-1])=YEAR(R[-1]C[-1]),R[-1]C+1,1)"
' Range("b3:b" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(MONTH(RC[-1])=MONTH(R[-1]C[-1]),R[-1]C+1,1)"
End If
Range("c2:c" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=TEXT(RC[-2],""Faaaamm"")&TEXT(RC[-1],""000"")"
' Range("c2:c" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=TEXT(RC[-2],""jjmmaaaa - "")&TEXT(RC[-1],""0000"")"
Sheets("Facture de service").Activate
Range("f4").Value = Sheets("Chrono").Range("c" & Rows.Count).End(xlUp)(1).Value
'Range("f5").Value = Sheets("Chrono").Range("a" & Rows.Count).End(xlUp)(1).Value
Application.ScreenUpdating = True
End Sub
la ligne en gras était toujours active :elle défaisait ce qui était fait sur la ligne précédente
a+