Bonsoir,
J'ai crée un planning de congés et pour celui-ci j'utilise des macros qui me permettent:
1/ d'acceder à le date du jour
2/ d'afficher toutes les dates
3/ d'accéder à une date selectionnée.
pour les points 1 et 2 j'ai utlisé des procédures que j'avais trouvé sur le forum.
Pour le point 3 j'ai voulu adapter une macro pour atteindre une date choisie.
Malheureusement elle ne fonctionne pas.
d'avance merci pour votre aide.
Cdt
Georges
Dans l'hypotèse ou les cellules dates sont dans la colonne A et que tu recherches la date qui correspond à aujourd'hui...
Code:
Private Sub Workbook_Open()
Dim cel As Range
Dim aujourdhui As Date
aujourdhui = Date
For Each cel In Range('A1:A366')
If cel.Value = aujourdhui Then
cel.Offset(0, 0).Activate
End If
Next cel
End Sub
J'espère que cette fois est la bonne [file name=Masquerdates.zip size=12291]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Masquerdates.zip[/file]