J JOjo Guest 14 Février 2005 #1 Bonjour j'ai un fichier avec en colonne les date des 6 prochains mois je souhaite à l'ouverture du fichier que le curseur soit positioné automatiquement sur la date du jour. Est-ce possible ? Merci
Bonjour j'ai un fichier avec en colonne les date des 6 prochains mois je souhaite à l'ouverture du fichier que le curseur soit positioné automatiquement sur la date du jour. Est-ce possible ? Merci
@ @+Thierry Guest 14 Février 2005 #2 Bonsoir Jojo, le Forum Voici un code à mettre dans le Private Module de "ThisWorkBook" (pas un module standard) Private Sub Workbook_Open() Dim TheDate As Date Dim Cell As Range TheDate = Date ThisWorkbook.Sheets("Sheet1").Activate For Each Cell In Sheets("Sheet1").Range("A1:A365") If Cell = TheDate Then Cell.Select Exit For End If Next End Sub Bonne Soirée et Saint Valentin Vote positif 0 Vote négatif
Bonsoir Jojo, le Forum Voici un code à mettre dans le Private Module de "ThisWorkBook" (pas un module standard) Private Sub Workbook_Open() Dim TheDate As Date Dim Cell As Range TheDate = Date ThisWorkbook.Sheets("Sheet1").Activate For Each Cell In Sheets("Sheet1").Range("A1:A365") If Cell = TheDate Then Cell.Select Exit For End If Next End Sub Bonne Soirée et Saint Valentin
J JOjo Guest 14 Février 2005 #3 merci. je vais essayé avant d'aller voir ma dulcinée Vote positif 0 Vote négatif