Recherche sur le jour actuel

Bonjour,

Voila mon problème, j'ai un fichier excel qui me sert de planning, j'ai créer des bouton qui, quand je clique sur la case voulu me la met en couleur. J'ai une couleur pour les vacances, pour les séances, un bouton pour effacer, etc...
Ex: 8 avril, 9 avril 
Chaque jour occupe deux colonnes.

J'ai créer un autre bouton, mais j'aimerais que celui ci, lorsque je clique dessus, m'amène a la date actuel ( aujourd'hui le 7, demain le 8, et ainsi de suite.)

et la je ne sais vraiment pas comment faire.

Je suis a disposition pour de plus amples informations et merci de votre aide.

voila quelque bout de code.



Sub Effacer()
    Selection.ClearContents
    Selection.Font.ColorIndex = 1
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
End Sub


Sub Ferie()
With Selection.Interior
        .ColorIndex = 10
        .Pattern = xlSolid
    End With
    Selection.Font.ColorIndex = 1
End Sub

Je te propose ceci

Option Explicit
Dim LaDate As Date

Private Sub Today_Click() 'Today = CommandButton.Name
LaDate = Date
Dim Cellule As Range
For Each Cellule In Sheets("Feuil1").Range("A1:A10") 'Plage où se situe tes dates
If Cellule.Value = LaDate Then
Cellule.Activate
Exit Sub
End If
Next
End Sub

Remarque : fait attention au format de la date : là dans l'exemple LaDate est au format suivant "dd/mm/yyyy" si tu veux changer le format met l'instruction (à la ligne 3) Format(DateValue(LaDate), "Le format que tu as mis dans tes cellules")

@+ Nostra 78

Dans mes cellules, j'ai juste tappé la date avec du texte normal...

j'ai essayer ton code, mais il me bloque a la ligne "" If Cellule.Value = LaDate Then

Change tes dates met les au format que je t'ai donné ca marche.
C pas long a faire.
Autrement ca devient relou à faire!!

Donc au lieu de mettre "25 avril"

je note 25/04/2005?

Ouep exacltly
Et ca tourne

Ca marche??
Si oui, valide ma réponse.
Sinon dis moi

non, désolé, ca va pas.

j'ai changer le format de la date, mais y a tjr un souci un niveau du
"If Cellule.Value = LaDate Then"

et quand je survole le cellule.value y a une petit indication qui vient et qui me dit " Cellule.Value = Jours Féries."  c'est normal?

As tu bien déteminé la plage où se situe tes dates
J'avais mis dans l'exemple Range("A1:A10"). Tu dois faire correspondre la plage de tes dates. Par exemple, si la plage se situte sur la colonne c tu mets ("C1:C" & Fin)
où Fin = Range("C1").End(xlDown).Value

Comme on le voit sur l image, ca passe par la colonne AY, donc j'ai mis Range("AA:GD")


Quel est la fonction de if cellule.Value?