Microsoft 365 Date

sousou

XLDnaute Barbatruc

• 18 Novembre 2020

• #2

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

 

Vote positif 0 Vote négatif

A

Amymone

XLDnaute Nouveau

• 18 Novembre 2020

• #3

Mille merci sousou, ça fonctionne super bien

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 18 Novembre 2020

• #4

Amymone à dit:

Bonsoir le forum

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

Cliquez pour agrandir...

Bonjour à tous
Essaye

VB:

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

 

Vote positif 0 Vote négatif

Solution

A

Amymone

XLDnaute Nouveau

• 18 Novembre 2020

• #5

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

 

Vote positif 0 Vote négatif