Incrémentation numéro dans une chaîne alphanumérique code vba

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:

---

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

Bonjour,

Pourquoi ne pas de nouveau faire un "Left" mais avec un début après le "-" ?

F2020-003 : En débutant en position 7 avec une portée de 3 caractères ?

En extrayant ça, tu pourras aisément incrémenter non ?

Voilà l'incrémentation demandée dans une boucle de 1 à 100

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub num_facture()   Dim annee As String Dim i As Long   annee = Year(Now)   For i = 1 To 100   If i <= 9 Then   Cells(i, 1) = "F " & annee & "-00" & i   ElseIf i <= 99 Then   Cells(i, 1) = "F " & annee & "-0" & i   Else   Cells(i, 1) = "F " & annee & "-" & i   End If   Next i   End Sub

---

Bonjour,
Pour ma part, j'ai une autre philosophie.
Dans un numéro de facture, note d'envoi, offre, etc. il y a deux éléments. Le numéro et son format
Ce sont deux éléments à traiter indépendamment l'un de l'autre.
Dans une cellule ont peut utiliser soit le format personnalisé, soit utiliser la fonction TEXT pour excel, Format pour VBA

Pour ma part, dans mes programmes j'ai une fonction qui se charge de renvoyer un numéro soit continu soit dépendant des critères définit par le client (remise à zéro tous les mois, trimestres, années, etc.) et ensuite on s'occupe du format (partie visuelle mais non concernée par la numérotation-. C'est l'habillage.

On place les paramètres de la numérotation soit dans un fichier ini soit dans une feuille paramètre du classeur et dans une autre cellule du classeur la fonction TEXT "habille" la manière dont le client souhaite voir apparaître le numéro dans son document.
Bien plus simple à mettre en place, maintenir l'application sans "hard coder" dans le VBA et je fais pareil pour charger les modèles et indiquer à mon application où et sous quel nom le document doit être sauvé

Citation:

---

Envoyé par révèr

Bonjour,

Pourquoi ne pas de nouveau faire un "Left" mais avec un début après le "-" ?

F2020-003 : En débutant en position 7 avec une portée de 3 caractères ?

En extrayant ça, tu pourras aisément incrémenter non ?

---

Merci pour cette solution,
c'est probablement celle que je vais retenir sauf si ... ?
Fredym

Citation:

---

Envoyé par zoltar_x

Voilà l'incrémentation demandée dans une boucle de 1 à 100

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub num_facture()   Dim annee As String Dim i As Long   annee = Year(Now)   For i = 1 To 100   If i <= 9 Then   Cells(i, 1) = "F " & annee & "-00" & i   ElseIf i <= 99 Then   Cells(i, 1) = "F " & annee & "-0" & i   Else   Cells(i, 1) = "F " & annee & "-" & i   End If   Next i   End Sub

---

---

Merci pour cette belle boucle d'incrémentation.

je dois la retravailler pour arriver au résultat final;
ce n'est pas le code que j'attendais pour répondre à ma requête.
Fredym

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pour ma part, j'ai une autre philosophie.
Dans un numéro de facture, note d'envoi, offre, etc. il y a deux éléments. Le numéro et son format
Ce sont deux éléments à traiter indépendamment l'un de l'autre.
Dans une cellule ont peut utiliser soit le format personnalisé, soit utiliser la fonction TEXT pour excel, Format pour VBA

Pour ma part, dans mes programmes j'ai une fonction qui se charge de renvoyer un numéro soit continu soit dépendant des critères définit par le client (remise à zéro tous les mois, trimestres, années, etc.) et ensuite on s'occupe du format (partie visuelle mais non concernée par la numérotation-. C'est l'habillage.

On place les paramètres de la numérotation soit dans un fichier ini soit dans une feuille paramètre du classeur et dans une autre cellule du classeur la fonction TEXT "habille" la manière dont le client souhaite voir apparaître le numéro dans son document.
Bien plus simple à mettre en place, maintenir l'application sans "hard coder" dans le VBA et je fais pareil pour charger les modèles et indiquer à mon application où et sous quel nom le document doit être sauvé

---

Mr Tulliez,
Je ne suis pas sûr d'avoir tout compris le message que vous voulez me faire passer, par contre je serai ravi de connaitre votre solution plus simple à mettre en place;
de mon côté la cellule qui reçoit le numéro de facture (exemple 2020-001) est soumis à une validation (fonction txt) et dans le listing des documents (factures et note de crédit) ce numéro est précédé du 1er caractère du type de document (exemple F pour facture et N pour note de crédit). Je désire également garder le contrôle du n° de document.
J'attend le plaisir de vous lire.
Fredym

Citation:

---

Envoyé par fredym

Merci pour cette belle boucle d'incrémentation.

je dois la retravailler pour arriver au résultat final;
ce n'est pas le code que j'attendais pour répondre à ma requête.
Fredym

---

En voilà une idée qu'elles est bonne : c'est l'occasion de faire travailler tes petites neurones.
Je pense que tu te trompes de forum : les contributeurs dans ce forum ne sont pas des sous-traitants.
Ils fournissent un coup de main lorsqu'un code bugue.

En général, un premier travail est fourni et les gens essayent de trouver là où ça ne va pas.
On voudrait bien voir un début de quelque chose...

bj Zoltar-x

merci pour ta remarque...
je vous ai peut-être heurté avec mon message assez bref mais ce n'est pas mon intention...
bien sûr que j'avais entamé le code ...
J'ai trouvé la solution...
merci

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pour ma part, j'ai une autre philosophie.
Dans un numéro de facture, note d'envoi, offre, etc. il y a deux éléments. Le numéro et son format
Ce sont deux éléments à traiter indépendamment l'un de l'autre.
Dans une cellule ont peut utiliser soit le format personnalisé, soit utiliser la fonction TEXT pour excel, Format pour VBA

Pour ma part, dans mes programmes j'ai une fonction qui se charge de renvoyer un numéro soit continu soit dépendant des critères définit par le client (remise à zéro tous les mois, trimestres, années, etc.) et ensuite on s'occupe du format (partie visuelle mais non concernée par la numérotation-. C'est l'habillage.

On place les paramètres de la numérotation soit dans un fichier ini soit dans une feuille paramètre du classeur et dans une autre cellule du classeur la fonction TEXT "habille" la manière dont le client souhaite voir apparaître le numéro dans son document.
Bien plus simple à mettre en place, maintenir l'application sans "hard coder" dans le VBA et je fais pareil pour charger les modèles et indiquer à mon application où et sous quel nom le document doit être sauvé

---

Mr Tulliez,
J'ai bien relu avec attention ,j'ai compris qu'il fallait dissocier les éléments pour les utiliser et ensuite les concaténer pour obtenir le résultat voulu.
Merci pour le conseil
Fredym

Bonjour,

Citation:

---

J'ai bien relu avec attention ,j'ai compris qu'il fallait dissocier les éléments pour les utiliser et ensuite les concaténer pour obtenir le résultat voulu.
Merci pour le conseil

---

Parfait.
Je n'ai malheureusement pas pu donner le lien sur l'article que j'avais écrit à ce sujet (avec classeur en téléchargement) car suite à un problème technique chez notre hébergeur, nous avons subi une panne d'une semaine mais c'est maintenant réparé.
Voici le lien sur un billet titré Excel – Incrémenter un numéro de facture, devis, à l’aide d’une fonction personnalisée