Inclure la date dans incrémentation de numero

[frederic.lin]

Bonjour, je vous re-sollicite aujourd'hui x)

Je voudrais que par exemple si nous somme en mars 2009, on aura les numéros 20090301 … et lors du passage au 200903100 qu'il continu avec 200903101 au lieu de se remettre en 20090301.

J'avais trouvé ce code mais je n'arrive pas a le modifier =S enlever le HK et mettre sous la bonne forme avec 200903101 par exemple, si quelqu'un pourrait me le faire s'il vous plait ?

Private Sub CommandButton1_Click()
If Left(Range("A1"), 6) = "HK" & Format(Now(), "yymm") Then
    Range("A1") = Left(Range("A1"), 6) & Format(CInt(Right(Range("A1"), 2)) + 1, "00")
Else
    Range("A1") = "HK" & Format(Now(), "yymm") & "01"
End If
End Sub

Merci à vous .

 

[hbenalia]

Re : Inclure la date dans incrémentation de numero

Bonjour le forum,

Le code suivant transformé donne la numérotation de AAAAMM0001 à AAAAMM10000 avec AAAA l'année courante en 4 chiffres et MM le mois courant en 2 chiffres...

Private Sub CommandButton1_Click()
If Left(Range("A1"), 6) = Format(Now(), "yyyymm") Then
    Range("A1") = Left(Range("A1"), 6) & Format(CInt(Right(Range("A1"), 4)) + 1, "0000")
Else
    Range("A1") = Format(Now(), "yyyymm") & "0001"
End If
End Sub

Cordialement

 

[frederic.lin]

Re : Inclure la date dans incrémentation de numero

Nickel merci bcp!!