Discussion :

[apt]

Bonjour à tous,

J'aimerais déterminer les dates du début et fin des semaines de l'année en cours.

Les semaines commencent par Mercredi er finissent par Mardi.

Voila un code pour déterminer une semaine.

Code :

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

1
2
3
4
5
'-----------------------------------
    date_debut = Date - Application.Choose(Application.Weekday(Date, 1), 4, 5, 6, 0, 1, 2, 3)
    date_fin = date_debut + 6
    MsgBox "DateBegin :" & date_debut & ", DateEnd : " & date_fin
'-----------------------------------

Comment le généraliser pour avoir toutes les semaines de l’année ?

Merci.

[SfJ5Rpw8]

Bonsoir,
Et bien tu par de ta première semaine et tu ajoute 7 a tes deux dates pour passer a la semaine suivante .. et ainsi de suite pour tes 52 semaines

[apt]

Bonsoir bbil, fring,

En voulant réécrire le code, ça ne m'affiche pas de dates

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
16
Sub test()
    Dim x As Date, Result As String
    Dim LastLg As Long, n As Byte
    n = 1
    [E2].CurrentRegion.ClearContents
    [E1] = "N° Semaine": [F1] = "Du": [G1] = "Au"
    For x = "1/1/" & Year(Now) To "31/12/" & Year(Now)
        If Format(x, "dddd") = "mercredi" Then
            LastLg = [E65000].End(xlUp).Row + 1
            Range("E" & LastLg) = n
            Range("F" & LastLg) = Format(x, "dd.mm.yyyy")
            Range("G" & LastLg) = Format(x + 6, "dd.mm.yyyy")
            n = n + 1
        End If
    Next
End Sub

Merci d'avance.

EDIT :

J'ai corrigé le problème qui ne permet pas à

Code :

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

[E2].CurrentRange

d'effacer convenablement la plage.

Maintenant ca marche.

Merci encore.

[apt]

Bonsoir,

En voulant changer le format des dates obtenues par le code, j'ai un chamboulement dans le résultat (Tantôt un format anglais tantôt un format français ), en plus les dates viennent parfois à gauche de la cellule, parfois à droite :

N° Semaine Du Au
1 01/04/2012 01/10/2012
2 01/11/2012 17/01/2012
3 18/01/2012 24/01/2012
4 25/01/2012 31/01/2012
5 02/01/2012 02/07/2012
6 02/08/2012 14/02/2012

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
16
17
18
19
20
21
22
23
Sub SemaineAnnee()
    Dim x As Date, Result As String
    Dim LastLg As Long, n As Byte
    Application.ScreenUpdating = False
    Application.EnableEvents = False
 
    n = 1
    [I7].CurrentRegion.ClearContents
    [I7] = "N° Semaine": [J7] = "Du": [K7] = "Au"
    For x = "1/1/" & Year(Now) To "31/12/" & Year(Now)
        If Format(x, "dddd") = "mercredi" Then
            LastLg = [I65000].End(xlUp).Row + 1
            Range("I" & LastLg) = n
           ' Range("J" & LastLg) = Format(x, "dd.mm.yyyy")
           ' Range("K" & LastLg) = Format(x + 6, "dd.mm.yyyy")
            Range("J" & LastLg) = Format(x, "dd/mm/yyyy")
            Range("K" & LastLg) = Format(x + 6, "dd/mm/yyyy")
            n = n + 1
        End If
    Next
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[SfJ5Rpw8]

Bonsoir,

Format ne renvoi pas une date mais une chaine de caractère représentant une date .. n'utilise pas format pour affecter tes cellules .. mais modifie le format d'affichage de ta cellule.

[apt]

Bonsoir,

Comment le fait-on depuis VBA ?

Code :

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

1
2
3
 
Range("F" & LastLg) = x 
Range("F" & LastLg).NumberFormat = "dd/mm/yyyy"

Le problème du format de la date dans la feuille est ainsi réglé.

[fring]

Bonjour,

Une autre solution éventuelle, on peut tout simplement boucler d'une date à une autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim x As Date, Result As String
 
Result = "Résultats :"
 
For x = "1/1/" & Year(Now) To "31/12/" & Year(Now)
    If Format(x, "dddd") = "mercredi" Then
        Result = Result & Chr(10) & "DateBegin : " & Format(x, "dddd dd.mm.yyyy") & " --> DateEnd : " & Format(x + 6, "dddd dd.mm.yyyy")
    End If
Next
 
Debug.Print Result
End Sub