Mois Précedent en VBA
Bonjour et bonne fête du 1er Mai
Voici un petit programme familier pour les programmeurs que vous êtes et qui porte sur les dates.
DATE1 = InputBox(" DATE 1")
If DATE1 = "" Then Exit Sub
If Day(CDate(DATE1)) <> 1 Then MsgBox ("LA DATE DOIT ETRE LE 1ER JOUR D'UN MOIS"): Exit Sub
Range("F4") = CDate(DATE1)
DATE2 = InputBox(" DATE DU DATE2")
« If DATE2 = "" Then Exit Sub »
If CDate(DATE2) > CDate(DATE1) Then MsgBox "IMPOSSIBLE CAR DATE2 POSTERIEUR AU DATE2 ": Exit Sub
Range("K6") = CDate(DATE2)
J’aimerais que quand l’utilisateur valide à vide la date2, c’est à dire "", au lieu de sortir du programme (exit sub), La cellule (« K6 ») contienne une date quelconque du mois précédent,
Merci d’avance de vous pencher sur mon problème un week-end prolongé
Novicevba45
Bonjour,
Essaie avec cette instruction
If DATE2 = "" Then Range("K6") = Day(Date) & "/" & Month(Date - 1) & "/" & Year(Date): Exit SubAmicalement
Dan
bonsoir
Me revoila avec mes problèmes de Dates en VBA
Je te remercie pour ta formule qui me servira probablement au niveau de la syntaxe.
Toutefois je me suis mal exprimé. (Mille excuses)
J’aimerais que quand l’utilisateur entre "" donc à vide, la cellule (« K6 ») contienne le mois précédent la date (DATE1)
Exemple date2 01/05/2009 ====> date1 = ??/04/2009
date2 01/12/2008 ====> date1 = ??/11/2008
?? = n’importe quel jour
Encore merci d’avance.
re,
Dans la formule, remplace DATE par DATE1.
Dan