Numero d'incrementation / Compteur [Résolu]

Signaler
Messages postés
15
Date d'inscription
samedi 14 décembre 2019
Statut
Membre
Dernière intervention
1 septembre 2020
-
Messages postés
15
Date d'inscription
samedi 14 décembre 2019
Statut
Membre
Dernière intervention
1 septembre 2020
-
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

4 réponses

Messages postés
12370
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 septembre 2020
695
bonjour, montre-nous ton code, en utilisant les balises: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Messages postés
15
Date d'inscription
samedi 14 décembre 2019
Statut
Membre
Dernière intervention
1 septembre 2020

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 !
Messages postés
12370
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 septembre 2020
695
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.
Messages postés
15
Date d'inscription
samedi 14 décembre 2019
Statut
Membre
Dernière intervention
1 septembre 2020

Bonjour,

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

Bubus31
Messages postés
15
Date d'inscription
samedi 14 décembre 2019
Statut
Membre
Dernière intervention
1 septembre 2020

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