XL 2016 Erreur 2042 dans une recherche de date

[apt]

Bonjour à tous,

Je dois rechercher une date DateCrit dans la colonne A, mais voila, ce me génère une erreur 2042 sur cette ligne :

' Recherche la date dans la colonne A
dateRow = Application.Match(DateCrit, ws2.Range("A2:A" & ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row), 0)

Comment résoudre ce problème ?

Merci d'avance.

 

[patricktoulon]

bonjour
j'arrive après la bataille

mais je pense qu'il était nécessaire de le rappeler

la fonction match de l'application est STRICTE et en plus avec l'argument "0" qui veut dire "exacte"

alors les dates(quelle histoire )
il faut garder à l'esprit que les dates dans excel dument renseignées dans les cellules
NE SONT QUE DES NOMBRES!!!
ce que vous voyez dans la cellule n'est qu'un formatage de la donnée

DONC!!
parti de la c'est le numéro de série de la date que vous devez chercher et non la chaine xx/xx/xxxx

donc je fait un petit essaie comme ça vite fait du code initial en lui ajoutant les parties de code qu'il n'y a pas dans le post 1 adapté a un fichier fait pour l'occasion

Sub test()
    Dim Ws2 As Worksheet, Daterow, DateCrit As Date
    Set Ws2 = Feuil1

    DateCrit = CDate("05/03/2023")

    Set plage = Ws2.Range("A2:A" & Ws2.Cells(Ws2.Rows.Count, "A").End(xlUp).Row)

    Daterow = Application.Match(CLng(DateCrit), plage, 0)

    MsgBox Daterow + 1

    Cells(Daterow + 1, 1).Interior.Color = vbYellow

    'important
    'le "+1" C EST  PAR CE QUE TA PLAGE COMMENCE EN [A2]
End Sub

démonstration

 

[apt]

Bonjour Patrick,

Merci pour tes trucs