probleme macro de selection cellule contenant la date du jour

[lestards]

bonjour
ceci est une macro qui est censée se positionner sur la cellule qui contient la date du jour dans la feuille de l année en cour

mais ca ne marche pas

si quelqu'un un voit ce qui cloche

merci par avance
____________________________________________________________
Sub auto_open()
'
' Macro3 Macro
'

'
Sheets("planning " & Year(Date)).Select
Cells("Match((Date),(b8:b373), 1), 2").Select


End Sub

 

[kjin]

Re : probleme macro de selection cellule contenant la date du jour

Bonjour,
Essaies

sDat = Format(Date, "yyyy")
With Sheets("planning " & sDat)
    .Activate
    L = Application.Match(CLng(Date), .Range("b8:b373"), 0)
    .Cells(L + 7, 2).Select
End With

A+
kjin

 

[Guest]

Re : probleme macro de selection cellule contenant la date du jour

Bonjour,
Hello Kjin

Tester, si les dates sont au format standard "dd/mm/yyyy":

Sub SelectionnerCelluleDateDuJour()
    Dim c As Range
    Set c = Sheets("planning " & Year(Date)).UsedRange.Find(what:=Date, LookIn:=xlValues, SearchFormat:=False)
    If Not c Is Nothing Then Application.Goto c
End Sub

A+

 

[lestards]

Re : probleme macro de selection cellule contenant la date du jour

ca fonctionne nickel

merci Kjin et merci aussi Hasco

 

[kjin]

Re : probleme macro de selection cellule contenant la date du jour

Re, adiou Hasco ,
Note quand même qu'il n'y a aucune gestion d'erreur en l'état actuel !
A+
kjin