Microsoft 365 Date

[Amymone]

Bonsoir le forum

Comment faire la macro dès lors que l'on active la feuille, il faudrait que le curseur se trouve en novembre 2020 (puis décembre du 1 au 31 et ainsi de suite), j'ai commencé un début de formule mais en vain.
Merci beaucoup d'avance

 

[sousou]

bonjour
comme ceci
Private Sub Worksheet_Activate()
ActiveWindow.View = xlNormalView
Me.Name = Me.Range("A1").Text

Range("A10").End(xlToRight).Select
Cells(10, Day(Date)).Select
madate = CDate("1/" & Month(Date) & "/" & Year(Date))
Set b = ActiveSheet.Rows(9).Find(madate)
b.Select
End Sub

 

[Amymone]

Mille merci sousou, ça fonctionne super bien

 

[Jacky67]

Bonsoir le forum

il faudrait que le curseur se trouve en novembre 2020
Merci beaucoup d'avance

Bonjour à tous
Essaye

Private Sub Worksheet_Activate()
  Application.Goto Cells(9, Application.Match(CLng(Date), Rows(9), 1)), True
End Sub

 

[Amymone]

Bonsoir Jacky67
Ta ligne de code est parfaite aussi, merci beaucoup