Numero d'incrementation / Compteur Résolu/Fermé

Question

Bonsoir à tous, 

Sur une feuille du classeur, je voudrais avoir un code qui permet : 

A l'impression, (donc "Private Sub Workbook_BeforePrint(Cancel As Boolean)" ca c'est ok)

-d'avoir en cellule D2 de ma feuille ("Edition") la date (qui change tous les jours bien sur) dans ce format là : 27082020.

-suivi d'une incrementation, d'un compteur à partir de 1 qui ressemble à ça : -1

-avec si possible (du bonus) une remise à zero de ce compteur à chaque début/ fin de mois.

Cela donnerai : 27082020-1, 27082020-2, 27082020-3... etc...

j'arrive à faire le compteur seul, mais pas à concaténer avec la date sous ce format là...

Merci d'avance !

Bubus31

yg_be · Answer

bonjour, montre-nous ton code, en utilisant les balises:  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Bubus31 · Answer

Salut !

En gros ça donnerait :

Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("D2").text = Format (Date, dd mm yyyy) & Range("D2")=Range("D2") + 1End Sub

Merci de l'aide !

Bubus31 · Answer

Bonjour,

 je vais tenter avec  cette méthode dans la journée, je fais un retour au plus vite !

Bubus31

Bubus31 · Answer

Bonsoir à tous, 

Voici la résolution du problème : 

Sheets("Edition").Range("D2").Value = Format((Date), "yyyymmdd") & Mid(Sheets("Edition").Range("D2").Value, 9, 3) + 1

Vous devrez au préalable mettre dans la cellule qui s’incrémente une base, donc par exemple: 202009010

A la suite de ça, lorsque vous lancez votre requête à travers un bouton ou autre, le numero de fin fait +1 soit dans notre cas 202009011  

Bubus31

Numero d'incrementation / Compteur

4 réponses

Discussions similaires