Click droit sur un onglet => visualiser le code
tu dois avoir pour chaque onglet :
Private Sub Worksheet_Activate()
Dim Feuille As String
Feuille = ActiveSheet.Name
Call SelectDate(Feuille)
End Sub
En gros quand on selectionne un onglet, j'appelle ma macro en lui précisant le nom de l'onglet
et dans un module :
Sub SelectDate(Feuille As String)
Derlign = Worksheets(Feuille).Range("A65536").End(xlUp).Offset(1, 0).Row
For i = 1 To Derlign
If Range("A" & i) = Date Then
Range("A" & i).Activate
Exit Sub
End If
Next i
End Sub
Je parcours la colonne avec les dates de la ligne 1 à la dernière ligne avec une valeur, et si une des dates est égale à celle du jour, j'active la cellule en question pour me placer dessus et je dis de sortir de la macro (pour éviter d'attendre le scan de toute la colonne).