Positionner curseur sur date du jour

Bonjour à tous!

Voila je cherche un code pour sélectionner la cellule sur la date du jour à l'ouverture de mon classeur sachant qu'il y a une feuille par mois soit 12 feuilles de janvier à décembre et que les dates se trouvent par exemple sur la feuille de "janvier" en A1=01/01/2015 en A2=02/01/2015 ect..... et de même pour la feuille février A1=01/02/2015 , A2=02/02/2015 ect..... pour chaque mois

Merci pour votre aide précieuse

Spudy

Bonjour

Essaye ce code, à placer dans le module ThisWorkbook

Private Sub Workbook_Open()
  Application.Goto Sheets(MonthName(Month(Date))).Range("A" & Day(Date))
End Sub

Hello Banzai64,

Merci pour ta réponse rapide, ça marche pas mal sauf que j'ai fait une erreur dans l'énoncé de ma demande , les dates se trouvent pas en A1 puis A2 mais A1 puis B2 ect....

Vraiment désolé mauvaise énoncé dans la précipitation

Par contre je confirme que ton code fonctionne parfaitement dans ce sens

Si tu as une solution aussi simple pour mon problème

Merci d'avance et aussi pour ta disponibilité

Spudy

Bonjour

spudy a écrit :

les dates se trouvent pas en A1 puis A2 mais A1 puis B2 ect....

Cela ne serait pas A1,B1, C1 etc....

Sinon teste

Private Sub Workbook_Open()
  Application.Goto Sheets(MonthName(Month(Date))).Cells(1, Day(Date))
End Sub

super merci Banzai64 , ça fonctionne nickel

Ultra rapide ta réponse , c'est parfait

A charge de revanche mais vu mes talents en VBA j'en doute fort

En tout cas bravo, à lire le code ça parait si simple et pourtant.....

Bonne journée

Spudy

Salut Banzai64,

Faisant suite à ta solution magique de l'autre jour , j'ai un nouveau classeur avec encore une sélection un peu différente de la précédente

Je me permet donc de t'écrire car tu es un as sur ce sujet

Voilà je voudrais à l'ouverture sélectionner une feuille puis retrouver la cellule du mois en cours et la placer en haut à gauche de la feuille

exemple

A1=Janvier, B1=recettes, C1=dépenses, D1=Février, E1=recettes, F1=Dépenses..... ect......

J'ai en fouillant sur la toile trouvé ce code , adapté à mon fichier

Private Sub Workbook_Open()

With Sheets("CC")

.Activate

.Range("A1:AJ113").Find(MonthName(Month(Date)), LookIn:=xlValues, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False).Activate

End With

End Sub

Il fonctionne pas mal en sélectionnant bien la cellule du mois en cours sauf que la colonne de la cellule active (mois trouvé) ne se place pas à gauche de ma feuille de calcul mais au milieu

J'ai trouve une ligne de code sur internet également qui commence avec le code suivant

MakeTopLeft

et qui s'emblerai s'adapter à ma demande mais cela reste un mystère pour moi pour l'intégrer

ou alors un code refait maison par tes soins

Si tu as une solution miracle

Merci d'avance

Spudy

Bonjour

A tester

Private Sub Workbook_Open()
On Error Resume Next      ' Au cas ou le mois (ou la feuille)  n'est pas présent
Application.Goto Sheets("CC").Rows(1).Find(MonthName(Month(Date)), LookIn:=xlValues, _
                            LookAt:=xlPart), scroll:=True
End Sub

Bonjour Banzai69,

Ton code fonctionne à merveille, c'est exactement ça que je voulais

Milles merci encore une fois, tu es trop fort

Bonne journée et merci beaucoup de ton temps passé à aider les autres

Spudy