comment placé le curseur de façon automatique sur une cellule spécifique

[Christophe JEANNEAU]

Je souhaite lors de l'ouverture de mon fichier excel que le curseur se place directement sur une celluke de mon choix.

Ma feuille excel comporte sur une ligne les jours de l'année, je voudrais placé le curseur sur la cellule correspondant à la date du jour. Car Excel place automatiquement le curseur à la dernière cellule sélectionnée lors de la fermeture du fichier.

d'avance merci

 

[STéphane]

bonjour

essaye avec une macro du genre suivant (à mettre dans une procédure workbook_open

Sub RechercheMot()
MaDate = DateValue("26/07/02")

MaDate=datevalue(date)

Set CelluleTrouvée = Worksheets("Feuil1").Range("A1:A12").Find(MaDate)
If CelluleTrouvée Is Nothing Then
MsgBox "La date n'a pas été trouvée"
Else
MsgBox "La date a été trouvée dans la cellule " & CelluleTrouvée.Address
Application.Goto reference:=CelluleTrouvée, Scroll:=True
End If
End Sub


bye
stephane

 

[Christophe JEANNEAU]

Merci bien pour la routine

vraiment sympat


Christophe