Discussion :

[jackfred]

Bonjour,

Je souaite déterminer les 1er et dernier jours des trimestres


J'ai effectué cela

Code :

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

1
2
3
4
5
6
for j = 1 to 10 step 3
'Dernier jour du mois
        MsgBox CDate("01/" & j + 3 & "/" & Worksheets("Garde").Range("F15").Value) - 1
'Premier jour du mois
        MsgBox CDate("01/" & j & "/" & Worksheets("Garde").Range("F15").Value)
Next j

Mon pb concerne le dernier jour du 4eme trimestre
Ds cet exemple il me ressort le 12/01/2007.

Auriez-vous une idée...


Merci

Fred

[flo_flo]

Bonjour,

Je ne comprends pas trop ce que tu cherches à faire... les 1ers et derniers jours d'un trimestre sont fixes

Dans ton code, tu parles du 1er et dernier jour du mois... alors, trimestre ou mois ?

[jfontaine]

essai avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim j As Integer
Dim dte As Date
 
dte = CDate("01/01/2007")
 
For j = 1 To 4
 
 
    MsgBox Format(CDate("01/" & Month(dte) & "/" & "2007"), "dddd dd mmm yyyy") & " - " & _
            Format(DateAdd("d", -1, "01/" & Month(DateAdd("q", 1, dte)) & "/2007"), "dddd dd mmm yyyy")
 
    dte = DateAdd("q", 1, dte)
 
Next j

[gerard123]

Salut,
VBA n'aime pas le mois n° 13.
Essaye ceci:

Code :

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

1
2
'Dernier jour du mois
        MsgBox CDate("01/" & (j + 2) Mod 12 + 1 & "/" & 2007 + Int(j / 10)) - 1

Bye
Gerard123

[jackfred]

Superbe merci bcp...

J'ai utilisé la version de gerard.

Pour info, pour flo_flo, d'après mon appli, je suis obligé de passer par là, bien que sachant que les dates de debut et fin de "Trimestre" (mea culpa) ne changent pas.

Merci bcp à vous

Fred

[random]

Code :

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

1
2
3
 
=DATE(ANNEE(madate);((ENT((MOIS(madate)+2)/3)-1)*3)+1;1)
=DATE(ANNEE(madate);((ENT((MOIS(madate)+2)/3)-1)*3)+1+3;0)

[ucfoutu]

Bonjour,

L'utilisation de Dateserial permet toutes les fantaisies (c'est ainsi que l'a voulu VB), y compris les jours 0, les mois 0, les mois 13, etc...) !

Voilà le dernier jour d'un mois, donc :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  annee = 2007
  mois = 12
  MsgBox DateAdd("d", -1, DateSerial(annee, mois + 1, 1))
End Sub

Il n'est autre que le jour précédant le 1er jour du mois suivant (ainsi dirait Monsieur de la Palice).

Bonne continuation ...

[mordrhim]

moi aussi je veux jouer !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub tester()
    Trimestre = 0
    For j = 1 To 1500 Step 3
    'Premier jour du mois
        Trimestre = Trimestre + 1
        Test = MsgBox("Début T" & Trimestre & " : " & CDate("01/" & j Mod 12 & "/" & Range("F15").Value + Int((j + 3) / 12)), vbOKCancel)
        If Test = 1 Then
            'Dernier jour du mois
            Test = MsgBox("Fin T" & Trimestre & " : " & CDate("01/" & (j + 3) Mod 12 & "/" & Range("F15").Value + Int((j + 3) / 12)) - 1, vbOKCancel)
            If Test <> 1 Then Exit For
        Else
            Exit For
        End If
    Next j
End Sub

mois 13 ca passe pas donc il faut faire un modulo(12) pour le mois et la partie entiere divisée par 12 pour l'année

pour 1<j<12, j mod 12 = j, Int(j/12) = 0
pour j = 13, j mod 12 = 1 remet le mois à Janvier, Int(j/12) = 1 Passe à l'année suivante.

[ucfoutu]

Binjour, Mordrhim,

Evidemment, qu'il ne passe pas ainsi, ton "mois 13", et que tu t'en trouves de ce fait embarqué dans de l'inutilement complexe.

Tu viens peut-être de découvrir que Dateserial (que tu n'utilises pas, toi) fonctionne de manière différente et permet beaucoup d'autres petites choses.

[mordrhim]

ouais, en meme temps ca ne fais que depuis avril que je programme VBA