XL 2016 Problème de recherche avec mauvais format de dates

[Collins]

Bonjour à tous

Je télécharge un fichier.
Et en fonction d'une cellule datée je ne peux aller à la date recherchée dans la colonne A à cause du format de ces dates.
Toutes les explications sont dans le fichier exemple
Je vous remercie de votre aide.

 

[JHA]

Bonjour à tous,

Sans macro, dans le ruban onglet "Accueil"
Rechercher et sélectionner
mettre la date

JHA

 

[CHALET53]

sinon dans la macro tu remplaces la macro par celle-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Application.EnableEvents = False
For Each cellule In Sheets(1).Range("A1:A400")

cellule = DateSerial(Year(cellule), Month(cellule), Day(cellule))

If cellule = Target Then

Sheets(1).Select
Sheets(1).Cells(cellule.Row, cellule.Column).Select
Application.EnableEvents = True: Exit Sub
End If
Next cellule
Application.EnableEvents = True
'MsgBox ("La date recherchée est inexistante")
End Sub

 

[youky(BJ)]

Bonjour Collins,
Essayer comme ceci
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
For Each cellule In Sheets(1).Range("A1:A400")
If Left(cellule.Text, 10) = Target.Text Then
Sheets(1).Select
Sheets(1).Cells(cellule.Row, cellule.Column).Select
Exit Sub
End If
Next cellule
'MsgBox ("La date recherchée est inexistante")
End Sub

 

[Collins]

Bonjour JHA, CHALET53, Youky

Merci beaucoup pour vos réponses très rapides.
JHA, effectivement je pouvais y aller par ta méthode.
Mais comme j'avais trouvé cette macro j'ai voulu la tester elle me semblait plus rapide. Et c'est le pb. de format qui m'a bloqué.
CHALET53, Youky
J'ai testé vos macros et là je n'ai pas besoin de modifier mes dates téléchargées. Ca marche super.
Bonne journée à vous.
Avec la nouvelle mouture du forum je ne sais plus ou il faut mettre que c'est "résolu"

 

[Collins]

Voila j'ai trouvé mais je suis désolé je ne peux pas mettre "résolu" pour tout le monde.
C'est dommage