Sub Trouve_date_Aujourdhui()
'Cellule au format texte
Annee = 2013
'Stop
'On Error GoTo suite
Dim DateaTrouver3 As Variant
'dateatrouver1 = InputBox("date à trouver? (JJ/MM)")
DateaTrouver1 = Day(Now) & "/" & Month(Now)
DateaTrouver = DateaTrouver1 & "/" & Annee
'MsgBox Format(dateatrouver, "MMMM YYYY")
Sheets(Format(DateaTrouver, "MMMM YYYY")).Select
DateaTrouver3 = Format(DateaTrouver, "DD" & "/" & "MM")
Cells.Find(What:=DateaTrouver3, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
clignote
End Sub
Sub Trouve_Date_Aujourdhui_Test()
Annee = 2013
Dim DateaTrouver3 As Date
'dateatrouver1 = InputBox("date à trouver? (JJ/MM)")
DateaTrouver1 = Day(Now) & "/" & Month(Now)
DateaTrouver = DateaTrouver1 & "/" & Annee
'MsgBox Format(dateatrouver, "MMMM YYYY")
Sheets(Format(DateaTrouver, "MMMM YYYY")).Select
DateaTrouver3 = Format(DateaTrouver, "DD" & "/" & "MM")
Cells.Find(What:=DateaTrouver3, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
clignote
End Sub
Sub Trouve_Date_Aujourdhui_Test2()
Dim DateaT As Date
DateaT = Date
Sheets(Format(DateaT, "MMMM YYYY")).Select
Cells.Find(What:=DateaT, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
clignote
End Sub
Sub Trouve_Date_Aujourdhui_Test3()
Annee = 2013
Dim DateaT As Date
DateaT = Day(Now) & "/" & Month(Now) & "/" & Annee
Sheets(Format(DateaT, "MMMM YYYY")).Select
Cells.Find(What:=DateaT, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
clignote
End Sub