Recherche Date - VBA

[newpixi]

Bonjour à tous,

Je n'arrive pas à créer un code me permettant de retrouver une date (la date d'aujourd'hui) dans une liste de date (qui remonte a 1996 sous VBA). J'ai essayé la méthode Match mais sans succès.

Ci-joint un fichier exemple avec d'autres explications à l'intérieur du fichier.

Cordialement,

Antoine

 

[BOISGONTIER]

Re : Recherche Date - VBA

Bonjour,

Sub RechercheDateFind()
  d = Date
  On Error Resume Next
  [A:A].Find(What:=d, LookIn:=xlValues).Select
  If Err <> 0 Then MsgBox "Inconnu"
End Sub

Sub RechercheDateFind2()
  d = Date
  Set result = [A:A].Find(What:=d, LookIn:=xlValues)
  If Not result Is Nothing Then
    MsgBox result.Row
    result.Select
  End If
End Sub

http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB
Formation Excel VBA JB

 

[newpixi]

Re : Recherche Date - VBA

Bonjour Boisgontier,

Je te remercie pour tes codes. Cela a superbement bien marché,

Bonne continuation