Incrementer un numero composé de lettres et chiffres [Résolu]

Signaler
Messages postés
267
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
8 janvier 2021
-
Messages postés
267
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
8 janvier 2021
-
Bonjour,
je reviens à nouveau vers vous car bien qu'ayant été très très bien aidé lors de ma mise en route d'un petit programme de bon de commande, maintenant, je dois pouvoir incrémenter le n° avec trois lettres plus le n°
dans mon prog initial, après avoir vidé toutes les cellules de mon bon de commande, j'aivais cette ligne qui fonctionnait à merveille :


Sheets("Bon de Commande").Range("E1").Value = Sheets("Bon de Commande").Range("E1").Value + 1 'incrémenter le numéro de Bon de commande

E1 étant l'endroit de mo bon de commande où se trouve le n°.

le principe était que après l'enregistrement de mon bon de commande, on vide toutes les cellules (sans ôter les formules) et l'on passe à cette instruction qui incrémente de 1 pour le bon de commande suivant.
Maintenant, il faudrait que le n° devienne ABC-001 puis ABC-002 etc
Merci de votre aide.

2 réponses

Messages postés
979
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 janvier 2021
199
Bonjour
A tester
Sheets("Bon de Commande").Range("E1").Value = "ABC-" & Format(Right(Sheets("Bon de Commande").Range("E1").Value, 3) + 1, "000")
Messages postés
267
Date d'inscription
mardi 19 février 2008
Statut
Membre
Dernière intervention
8 janvier 2021
23
Super, ça marche impec !
merci pour ton aide aussi rapide.

je marque comme résolu.
Bonne fin de journée, prends soin de toi et des tiens.