Incrémenter une codification

Bonjour la communauté,

Je cherche à incrémenter une codification à l'aide d'une macro.

J'ai un bouton qui lance une macro qui fait différentes actions mais je bloque sur celle-ci.

Dans une cellule j'ai par exemple AB1701001, j'ai besoin que dans la cellule d'en dessous apparaisse grâce à la macro AB1701002 (ce que je pourrai obtenir si j'étirai simplement la cellule).

Le code ce lit comme ceci :

[AB] invariable

[17] année en cours

[01] mois en cours

[001] numéro qui doit se remettre à 001 chaque mois.

Je voudrais donc obtenir des lignes comme ceci qui tiennent compte du mois courant :

AB1701001

AB1701002

AB1701003

AB1702001

AB1702002

AB1703001

Voici un bout de code que j'ai tenté d'écrire :

    [C65536].End(xlUp).Select
    ActiveCell.Offset(1, 0).Value = "AB" + Format(Now, "yymm")

Avec ça je n'obtiens que les 3 premières parties du code, il me manque la dernière mais pas des moindres qui doit s'incrémenter en fonction de la précédente et du changement de mois.

Je viens de passer 12 heures à chercher sur le net quelque chose de ressemblant en vain

J'imaginais une condition qui dirait que :

si les caractères 5 et 6 sont égaux au mois en cours alors ajouter +1 aux caractères 7 à 9, sinon mettre 001

Bonjour,

Une proposition :

Public Sub increment()
    Dim inc, adresse As String
    adresse = Range("C65536").End(xlUp).Address
    inc = "AB" & Format(Now, "yymm")
    If CInt(Mid(Range(adresse).Value, 5, 2)) = Month(Now) Then
        inc = inc & Format(Right(Range(adresse).Value, 3) + 1, "000")
    Else
        inc = inc & "001"
    End If
    Range(adresse).Offset(1, 0).Value = inc
End Sub

Merci oyobrans.

C'est exactement ce que je cherchais

J'ai essayé en modifiant la date du PC et ça fonctionne au poil.

Je pensais que le code aurait été plus simple que ça, j'aurais pu chercher longtemps.

J'avais vu que ce forum été réactif mais de là à répondre seulement 1 heure après et dans la nuit c'est balaise 8)

Merci encore.