Recherche de date

Bonjour le forum,

dans un fichier de suivi que je suis en train de modifier, j'utilise ce code :

Sub Recherche()

Dim x As Date
x = Range("A1").Value
Worksheets("Feuil4").Activate
Range("C:C").Find(what:=x).Select

End Sub

Cela fonctionne pour des dates en dur, mais pas lorsque celle-ci sont définies par formules.

Dans le fichier joint donc, si je prend la colonne "E", pas de souci, mais je n'arrive pas à l'adapter pour la colonne "C".

Une piste sur la façon de procéder?

Merci d'avance.

Bonjour,

Je vois pas trop comment vous aidez avec 2 lignes de codes

Bonjour,

j'avais oublié d'insérer le fichier désolé...

je dois être mal réveillé, voici le fichier en question...

Bonjour Nico68,

Peut-être comme ceci :

Sub Recherche2()
    Dim x As Date
    Dim FindRange As Range
    x = Sheets("Feuil3").Range("A1").Value
    Select Case Month(x)
        Case 1, 2, 4, 7, 8, 9, 10, 11, 12
            Set FindRange = Sheets("Feuil4").Range("C:C").Find(what:=Format(x, "mmm.-yy"), LookIn:=xlValues)
        Case 3, 5, 6
            Set FindRange = Sheets("Feuil4").Range("C:C").Find(what:=Format(x, "mmm-yy"), LookIn:=xlValues)
        Case Else
    End Select
    If Not FindRange Is Nothing Then
        Worksheets("Feuil4").Activate
        FindRange.Select
    End If
End Sub

Bonjour AntoineDL,

Votre réponse convient parfaitement.

Merci de m'avoir guidé sur la bonne voie (J'ai du coup changé le format afin de simplifier).

Cordialement,