Je n'arrive à finir ma macro; besoin d'aide

[OriaS]

Bonjour a tous, je vient sur ce forum pour trouver de l'aide.

J'ai une macro que je n'arrive pas a terminer

ma macro consiste à appeler un document selon un nom; l'année en cours ; un numéro d'ordre

la voici

Dim Increm
Dim i As Integer

i = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Increm = Format(Right(Range("A" & i - 1), 3) * 1 + 1, "000")
Range("A" & i).Value = "Livre-" & Format(Date, "yy") & "-" & Increm

mon problème est que quand j'arrive en 2008 les numéro d'ordre continue de s'incrémenter alors que j'aimerai que ce numéro redémmarre à zéro a chaque nouvelle année.

Que dans la colonne s'affiche
...
Livre-07-375
Livre-07-376
Livre-08-001
Livre-08-002
...

Comment puis-je réussir à faire cela ?

Merci d'avance

 

[dg62]

Re : Je n'arrive à finir ma macro; besoin d'aide

Bonjour OriaS

Sub increm()
Dim increm
Dim i As Integer
Dim annee As String
i = ActiveSheet.Range("A65536").End(xlUp).Row + 1
annee = Format(Date, "yy")
If Mid(Range("A" & i - 1), 7, 2) = annee Then
    increm = Format(Right(Range("A" & i - 1), 3) * 1 + 1, "000")
Else
    increm = 0
    increm = Format(increm + 1, "000")
End If
Range("A" & i).Value = "Livre-" & Format(Date, "yy") & "-" & increm
End Sub

A tester, Bonne journée