Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum

Je souhaiterai svp placer un décompteur mensuel dans mon UserForm via un Label6.

En partant du chiffre 120 que tout les 20 de chaque mois ôter 1
EX: Le 20 Mai 2012 120=119, Le 20 Juin 2012 120=118 etc etc

Merci a vous pour votre temps ainsi que de votre aide

Bon début de semaine a vous

Cdlt Ray

[Jean-Philippe André]

salut,

dans quel cadre souhaites effectuer cette manipulation ?
dans un formulaire ? dans une feuille ?
tu souhaites que cette modification se fasse à intervalle régulier (une fois par moi le 20 du mois) ?

Plus tu nous en dis, plus on sera à même de pouvoir te proposer des solutions adaptées.
Merci donc d'être plus précis stp

[eliot.raymond]

Salut jpcheck, forum

Merci pour ta réponse

Juste que dans mon UserForm1 dans le Label6 s'affiche le chiffre 120-1=119
et que uniquement le 20 de chaque Mois enlever 1

c'est tout, je ne vois pas plus a te dire

Merci a plus tard

Ray

[Jean-Philippe André]

OK,

tu souhaites décompter à partir du mois d'Avril ?

regarde la valeur retournée par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateDiff("m",#04/20/2012#,now)

[eliot.raymond]

Re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Label6.Caption = DateDiff("m", #4/20/2012#, Now)

ton code me renvoie 0

Merci
PS je commence pour le 20 Mai ,avril c'est foutu

et je dois faire quoi ensuite svp

Ray

[Jean-Philippe André]

Maintenant qu'on a la valeur à soustraitre, on adapte à ton cas 120

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Label6.Caption = 120 - DateDiff("m", #4/20/2012#, Now)

Tu peux faire des essais avec -1 par jour et faire varier les paramètre du DateDiff pour te rendre compte de ce que la fonction réalise.

L'aide en ligne est assez efficace pour cela