afficher la date au mois précédent sous excel

afficher la date au mois précédent sous excel - VB/VBA/VBS - Programmation

Marsh Posté le 26-04-2006 à 14:11:50    

bonjour je cherche à afficher la date du jour sous excel mais... du mois précédent :)
 
exemple aujourd'hui on est le 26 avril j'utilise donc:

Code :
  1. today = Date


mais mon but final est d'afficher le 26 mars et demain le 27mars et apres demain......
 
enfin vous voyez ce que je veux dire  :pt1cable:


Message édité par specics le 26-04-2006 à 14:56:51
Reply

Marsh Posté le 26-04-2006 à 14:11:50   

Reply

Marsh Posté le 26-04-2006 à 15:35:42    

bonjour,
 
Si c'est bien ça la demande, dans une cellule, avec les fonctions d'excel (pas en VB), cela donne : =DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-1;JOUR(AUJOURDHUI()))
 
a+

Reply

Marsh Posté le 26-04-2006 à 17:02:11    

déjà comme ça c'est cool merci mais je cherche a l'exprimer sous la forme d'une fonction vba
 
tu connaitrais ça ?

Reply

Marsh Posté le 26-04-2006 à 17:27:18    

C'est bon, j'ai fini par trouver. pour ceux que ça interesse:

Code :
  1. Sub mois()
  2.     Dim last_month, one_month As Date
  3.     one_month = "1/30/1900"
  4.     last_month = Date - Day(last_month)
  5. End Sub


on peut aussi faire:

Code :
  1. Const one_month = "1/30/1900"
  2. last_month = DateValue(Date - Day(one_month))


a+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed