Macro pour indicateur de jour sur calendrier horizontal

Bonjour à tous,

j'utilise une macro afin de me positionner un curseur sur un calendrier, mais je n'arrive pas à le positionner avec précision:

Sub test()

Set re = Rows(2).Find(Application.WorksheetFunction.WeekNum(Date - 1)) 'on recherche la cellule qui contient le numero de semaine de la date du jour

With ActiveSheet.Shapes("Connecteur droit 5")

.Top = re.Top + 60 ' on aligne la partie supérieure du trait avec la partie supérieure de la cellule

.Left = re.Left + 35 'on positionne le trait en verticalement avec un décalage de 15 par rapport au bord gauche de la cellule

End With

End Sub

Bonjour toutes et tous

Tu peux faire une capture d'écran pour voir comment que tu veux placer cette shape

crdlt'

André

Bonsoir

voila une macro pour la recherche du jour pour l'année en cours

a toi de voir

Sub Test()
Feuil1.Select
  Set Cel = Rows(4).Cells.Find(DateValue(Now), LookAt:=xlWhole) 
    If Cel Is Nothing Then
        MsgBox "Date non trouv?e ????"
        Col = 1
    Else
        Col = Cel.Column
    End If
 Application.Goto Cells(9, Col), True
End Sub

A+

Maurice

Bonjour à tous.

archer, merci pour ta macro, mais je ne suis pas sûr d'arriver à la compiler avec la mienne.

Voici ce qui fonction en ce moment: quand je clique sur curseur, voici ou se place le trait vert:

J'aimerai que pour le 25/12 j'ai ceci:

et pour le 28/12 j'ai cela:

Nota: sur la ligne 4, il y a la date du jour. Le planning est pour 2019.

Merci pour l'aide,

N.

Bonjour Noelgigi

cette ligne :

Set re = Rows(2).Find(Application.WorksheetFunction.WeekNum(Date - 1)) 'on recherche la cellule qui contient le numero de semaine de la date du jour

ne sert qu'à trouver le numéro de semaine

ci-dessous pour la Shape ne sert qu'à déplacer ta shape

.Top = re.Top + 60 '
.Left = re.Left + 35' etc.

il faut trouvé comment pour la date et s'aidé du numéro de semaine et ainsi ta shape sera bien placé

crdlt,

André

C'est là que je coince:

Je devrais ecrire:

"chercher en rows(4) date mais je ne sais pas comment l'écrire...

Sub test()

Set re = Rows(2).Find(Application.WorksheetFunction.WeekNum(Date - 1)) 'on recherche la cellule qui contient le numero de semaine de la date du jour

With ActiveSheet.Shapes("Connecteur droit 5")

.Top = re.Top + 60 ' on aligne la partie supérieure du trait avec la partie supérieure de la cellule

.Left = re.Left + 35 'on positionne le trait en verticalement avec un décalage de 15 par rapport au bord gauche de la cellule

End With

End Sub

re

j'ai pensé à un truc du genre

trouve la date du jour

mais bon, ...

Rows(4).Cells.Find(DateValue(Now), LookAt:=xlWhole)

Extra, ça marche!

Merci,

bonnes fêtes,

N.

Bonjour

et pour les numéro de semaine

Sub TestSemaine()
Dim NumSem$, Col&
NumSem = "W" & Format(Now, "ww", vbMonday, vbFirstFourDays)
Set Cel = Rows(6).Cells.Find(NumSem, LookAt:=xlWhole)
    If Cel Is Nothing Then
        MsgBox "Semaine non trouv?e ????"
        Col = 1
    Else
        Col = Cel.Column
    End If
Application.Goto Cells(9, Col), True
End Sub

A+

Maurice