Numero d'incrementation / Compteur

Résolu/Fermé
Bubus31 Messages postés 53 Date d'inscription samedi 14 décembre 2019 Statut Membre Dernière intervention 12 juillet 2023 - 27 août 2020 à 22:59
Bubus31 Messages postés 53 Date d'inscription samedi 14 décembre 2019 Statut Membre Dernière intervention 12 juillet 2023 - 1 sept. 2020 à 22:21
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
A voir également:

4 réponses

yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
28 août 2020 à 08:44
bonjour, montre-nous ton code, en utilisant les balises: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
Bubus31 Messages postés 53 Date d'inscription samedi 14 décembre 2019 Statut Membre Dernière intervention 12 juillet 2023
29 août 2020 à 00:44
Salut !

En gros ça donnerait :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("D2").text = Format (Date, dd mm yyyy) & Range("D2")=Range("D2") + 1
End Sub


Merci de l'aide !
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
29 août 2020 à 08:03
merci de spécifier "basic" quand tu utilises les balises pour partager du VBA.
moi, j'utiliserais deux cellules supplémentaires, une pour stocker la date utilisée la dernière fois, une autre pour stocker le compteur.
0
Bubus31 Messages postés 53 Date d'inscription samedi 14 décembre 2019 Statut Membre Dernière intervention 12 juillet 2023
31 août 2020 à 10:41
Bonjour,

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

Bubus31
0
Bubus31 Messages postés 53 Date d'inscription samedi 14 décembre 2019 Statut Membre Dernière intervention 12 juillet 2023
1 sept. 2020 à 22:21
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
0