Positionnement sur une cellule

[larry]

Bonjour,
Tableau en colonne AA les jours du mois,
Je souhaite à l'ouverture me positionner automatiquement dans la cellule égale à la date du jour.
Est-ce possible ?

 

[Denis]

Bonjour Larry et le Forum
mets ceci dans le ThisWorkbook de ton classeur
n'oublie pas de changer Feuil1 par le nom de ta feuille

Private Sub workbook_open()
Dim Plage As Range
Set Plage = Sheets("Feuil1").Range("AA:AA")
For Each cell In Plage
d = cell.Value
If cell.Value = Date Then
cell.Select
Exit Sub
End If
Next cell
End Sub
Bon courage et @+
Denis