Incrémenter un numéro de document avec lettres et chiffres

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'avais 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 mon 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.

Bonjour SimKmil,

Faire avec le format personnalisé suivant "ABC-"000

En étant sur la cellule concernée faire clic droit choisir Format cellule puis Format personnalisée en fin de la fenêtre. Puis inscrire le format donné dan le Type

Merci, je vais essayer cela.

Bonne journée, protégez vous

Rechercher des sujets similaires à "incrementer numero document lettres chiffres"