Discussion :

[Rania1990]

Bonsoir,

Je voudrai solliciter votre aide pour la problématique ci-dessous:

j'ai tenté une macro qui me permet de détecter le numéro de la semaine en cours et se déplacer d'une case à gauche et de 2 cases en bas. Ci-joint l'exemple (la cellule en jaune est celle que je veux sélectionner) mais je ne sais pas pourquoi ça ne marche pas

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim cellule As Range
For Each cellule In Sheets("Feuil1").Range("A1:N1")
If cellule = Date Then
Cells(1, cellule.Column).Offset(rowOffset:=1, columnOffset:=-1).Select
End If
Next cellule
End Sub

Classeur1.xlsm

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Dim Cellule As Range
 
With Worksheets("Feuil1")
    For Each Cellule In .Range("A2:BB2")
        If Cellule = Date - DatePart("w", Date, vbMonday) + 1 Then
            Cellule.Offset(1, -1).Select
            Exit Sub
        End If
    Next Cellule
End With
End Sub

[patricktoulon]

Bonjour
@mercatog
je suppose que cette macro sera executée tout les lundi seulement!!!
dans le cas contraire il y aura un soucis
je te propose de chopper le lundi de la semaine precedente du lundi jusqu'au dimanche de la semaine suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test2()
    Dim sem&, ladate As Date, an&, jour
    sem = DatePart("WW", Date, vbMonday, vbFirstFourDays)
    'sem = DatePart("WW", CDate("07/03/2019"), vbMonday, vbFirstFourDays) 'pour tester aujourd'hui avec un jour superieur a la date dans !!!! la semaine actuelle
    an = Year(Date)
    jour = 1    ' 1 pour lundi,2 pour mardi etc....
    ladate = DateSerial(an, 1, 1)
    ladate = DateAdd("WW", sem - 1, ladate) - 7
    'resultat
    MsgBox Format(ladate - (Weekday(ladate, vbMonday) - jour), "dddd dd mmmm yyyy", vbMonday, vbFirstFourDays)
    'reste plus qu'a faire un find ou autre methode de selection 
End Sub

celle ci fonctionnera du lundi au dimanche de la semaine en cours sauf erreur de ma part
edit:
il y aurait une solution encore plus simple avec weekday

Code :

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

1
2
3
4
5
6
7
Sub test3()
'MsgBox Weekday(Date, vbMonday)
'MsgBox Date - (Weekday(Date, vbMonday) - 1) - 7
For Each Cellule In Sheets("Feuil1").Range("A2:N2")
If Cellule = CDate(Date - (Weekday(Date, vbMonday) - 1) - 7) Then Cellule.Offset(1).Select: Exit For
Next
End Sub

[mercatog]

Bonjour
@mercatog
je suppose que cette macro sera executée tout les lundi seulement!!!
dans le cas contraire il y aura un soucis

Patrick bonjour

D'où tu tiens cette affirmation?

Code :

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

1
2
3
4
Function Lundi(ByVal Dte As Date) As Date
 
Lundi = Dte - DatePart("w", Dte, vbMonday) + 1
End Function

[patricktoulon]

autant pour moi Mercatog
c'est parce que j'ai testé avec des dates qui n'etait pas des lundi dans la grille excel
ca match uniquement si dans la ligne 2 il n'y a que des lundi effectivement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim Cellule As Range
 autherdate = CDate("07/03/2019")
With Worksheets("Feuil1")
    For Each Cellule In .Range("A2:N2")
        If Cellule = autherdate - DatePart("WW", autherdate, vbMonday) + 1 Then
            Cellule.Offset(1, -1).Select
            Exit Sub
        End If
    Next Cellule
End With
End Sub

son tableau

si une date n'est pas un lundi dans la ligne 2 et que l'on utilise "Date" ca foire pour la semaine precedente
d'ou mon idée de ramener date au lundi precedent avec weekday ou autre

il y a aussi ce truc qui me perturbe
l'argument "WW" ou "W"

Code :

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

1
2
3
 autherdate = CDate("07/03/2019")
MsgBox autherdate - DatePart("WW", autherdate, vbMonday) + 1
MsgBox autherdate - DatePart("W", autherdate, vbMonday) + 1

si je comprends bien un seul "W" enleve une seule semaine c'est ca ?
methode avec weekday

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 Cellule As Range
    'autherdate = CDate("04/03/2019") '(testé)
    'autherdate = CDate("10/03/2019") '(testé)
    'autherdate = CDate("09/03/2019") ' (testé)
    autherdate = Date    ' (testé)
    'MsgBox autherdate - Weekday(autherdate, vbMonday) + 1 - 7
    With Worksheets("Feuil1")
        For Each Cellule In .Range("A2:N2")
            If Cellule = autherdate - Weekday(autherdate, vbMonday) + 1 - 7 Then Cellule.Offset(1).Select: Exit For
        Next Cellule
    End With
End Sub

je pense avoir pigé le truc du "W" / "WW"

Code :

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

1
2
3
4
5
Sub test2()
autherdate = CDate("07/03/2019")
MsgBox autherdate - Weekday(autherdate, vbMonday) + 1
MsgBox autherdate - DatePart("W", autherdate, vbMonday) + 1
End Sub

il semblerait que ca enleve le nombre de jour par rapport au meme avec weekday
je ne l'avais jamais utilisé comme cela
merci

[Rania1990]

Merci à vous deux pour votre aide! ça match parfaitement avec ce que je voulais.


MERCI !!