Bonjour les experts du code vba,

Je voudrais le code vba pour incrémentation du numéro d'ordre ( 003 dans mon exemple )

- valeur de départ: F2020-003 contenue dans la dernière cellule de la colonne B intitulée 'N° doc' d'un tableau dans feuille2
- résultat à obtenir : 2020-004 dans la cellule A1 de la feuille1

infos utiles et/ou complémentaires:

- incrémenter la valeur numérique (003) : format en 3 chiffres "000"

F correspond au 1er caractère extrait d'une cellule ( code Left…) non concerné pour obtenir le résultat final.
2020 correspond à l'année en cours
- le nom de la colonne B du tableau fait référence à: fact_out[[#Tout];[N° doc]] ( N° doc = intitulé du titre dans l'entête du tableau)
- le tiret sera obtenu par concaténation & dans le résultat

mon code débute comme suit (entre les sub):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
    Dim a As Integer         ' (a pour les 4 chiffres de l'année)
    Dim vinc As String         ' vinc pour valeur incrémentée
 
     a = Year(Now())      '  (renvoi l'année en cours en 4 chiffres)
     vinc = … (Range("B ?… ").End(xlDown)), 3) +1 … pour l'incrémentation ? --> syntaxe non correct.
      ...
Merci de corriger / adapter / créer le code ad hoc

Fredym