Bonsoir
Je désire réalisé la procédure suivante :
Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05
je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du 1
er mois soit :
janvier 15, puis février 30, puis mars 15
merci beaucoup
Flo riant
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie ce code :
Dim Dat As Date, Jour As Integer, Mois As Integer Dat = [A1] MsgBox Dat Mois = Month(Dat) Do While Dat <> [A2] If Day(Dat) = 15 Then Jour = 0 Mois = Mois + 1 Else Jour = 15 Mois = Mois End If Dat = DateSerial(Year(Dat), Mois, Jour) MsgBox Dat Loop
Cordialement. Daniel "Florian" a écrit dans le message de news:
Bonsoir Je désire réalisé la procédure suivante : Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05 je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du 1 er mois soit : janvier 15, puis février 30, puis mars 15 merci beaucoup Flo riant
Bonsoir.
Essaie ce code :
Dim Dat As Date, Jour As Integer, Mois As Integer
Dat = [A1]
MsgBox Dat
Mois = Month(Dat)
Do While Dat <> [A2]
If Day(Dat) = 15 Then
Jour = 0
Mois = Mois + 1
Else
Jour = 15
Mois = Mois
End If
Dat = DateSerial(Year(Dat), Mois, Jour)
MsgBox Dat
Loop
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
eo77EqqcFHA.3712@TK2MSFTNGP12.phx.gbl...
Bonsoir
Je désire réalisé la procédure suivante :
Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05
je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du
1 er mois soit :
janvier 15, puis février 30, puis mars 15
merci beaucoup
Flo riant
Dim Dat As Date, Jour As Integer, Mois As Integer Dat = [A1] MsgBox Dat Mois = Month(Dat) Do While Dat <> [A2] If Day(Dat) = 15 Then Jour = 0 Mois = Mois + 1 Else Jour = 15 Mois = Mois End If Dat = DateSerial(Year(Dat), Mois, Jour) MsgBox Dat Loop
Cordialement. Daniel "Florian" a écrit dans le message de news:
Bonsoir Je désire réalisé la procédure suivante : Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05 je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du 1 er mois soit : janvier 15, puis février 30, puis mars 15 merci beaucoup Flo riant
Daniel
Ou plutôt celui-ci pour tenir compte des changements d'année :
Dim Dat As Date, Jour As Integer, Mois As Integer, An As Integer Dat = [A1] MsgBox Dat Mois = Month(Dat) An = Year(Dat) Do While Dat <> [A2] If Day(Dat) = 15 Then Jour = 0 Mois = Mois + 1 If Mois > 12 Then Mois = 1 An = An + 1 End If Else Jour = 15 Mois = Mois End If Dat = DateSerial(An, Mois, Jour) MsgBox Dat Loop
Cordialement. Daniel "Florian" a écrit dans le message de news:
Bonsoir Je désire réalisé la procédure suivante : Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05 je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du 1 er mois soit : janvier 15, puis février 30, puis mars 15 merci beaucoup Flo riant
Ou plutôt celui-ci pour tenir compte des changements d'année :
Dim Dat As Date, Jour As Integer, Mois As Integer, An As Integer
Dat = [A1]
MsgBox Dat
Mois = Month(Dat)
An = Year(Dat)
Do While Dat <> [A2]
If Day(Dat) = 15 Then
Jour = 0
Mois = Mois + 1
If Mois > 12 Then
Mois = 1
An = An + 1
End If
Else
Jour = 15
Mois = Mois
End If
Dat = DateSerial(An, Mois, Jour)
MsgBox Dat
Loop
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
eo77EqqcFHA.3712@TK2MSFTNGP12.phx.gbl...
Bonsoir
Je désire réalisé la procédure suivante :
Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05
je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du
1 er mois soit :
janvier 15, puis février 30, puis mars 15
merci beaucoup
Flo riant
Ou plutôt celui-ci pour tenir compte des changements d'année :
Dim Dat As Date, Jour As Integer, Mois As Integer, An As Integer Dat = [A1] MsgBox Dat Mois = Month(Dat) An = Year(Dat) Do While Dat <> [A2] If Day(Dat) = 15 Then Jour = 0 Mois = Mois + 1 If Mois > 12 Then Mois = 1 An = An + 1 End If Else Jour = 15 Mois = Mois End If Dat = DateSerial(An, Mois, Jour) MsgBox Dat Loop
Cordialement. Daniel "Florian" a écrit dans le message de news:
Bonsoir Je désire réalisé la procédure suivante : Lorsque je saisi une date ex 15/01/05 dans une cellule, et 15/03/05 je souhaite avoir dans un msgbox : le départ de la date jusqu'à la fin du 1 er mois soit : janvier 15, puis février 30, puis mars 15 merci beaucoup Flo riant