Atteindre date du jour

Le 22/02/2023 à 20:21

BrunoM45..je testerai sur le Mac et reviendrai vers vous..juste pour vous dire.

Le 22/02/2023 à 21:32

Bon alors me revoilà déjà...! je ne voudrai pas abuser mais j'arrête pas de cogiter..et avant de passer mon post en résolu..je me demandais s'il est facilement possible d'adapter un de vos codes pour atteindre la date du jour sur un classeur qui compte 53 onglets différents. Dont 52 dans lesquels il faudrait pouvoir effectuer la recherche de la date du jour et la sélectionner dans l'onglet dans lequel elle figure ?

En image :

Sait-on jamais !

Le 23/02/2023 à 05:36

Bonjour,

Pour atteindre l'onglet correspondant à la semaine, vous pouvez faire ceci

Sub AtteindreOngletSemaineAujourdhui()
  Dim NumSem As Integer
  Dim ShtSem As Worksheet
  ' Récupérer le numéro de semaine actuel
  NumSem = DatePart("ww", Date, vbMonday, vbUseSystem)
  Set ShtSem = ThisWorkbook.Worksheets("S" & NumSem)
  ' Sélectionner la feuille correspondante
  ShtSem.Select
End Sub

A+

Le 23/02/2023 à 20:03

Super ! Çà tourne du tonnerre aussi ! Juste une dernière chose, promis...est-ce que dans le code de cousinhub (qui tient sur une ligne) il est aussi possible d'ajouter un msgbox ? Faut-il aussi passer par If et Then ? Application.Goto Cells(Application.Match(CLng(Date), Range("D:D"), 0), "D").Offset(, 1) Une admiratrice.😊