Recherche d'une colonne contenant une date

Bonjour,

Je recherche à trouver la valeur de la colonne contenant une date, pour ensuite attribuer la valeur de la colonne à une variable.

Pour cela, je rentre la date dans un input box, et je relance la recherche.

Cela ne marche pas.. en effet je considère il y a un problème avec le format..

Pour commencer, si j'attribue la valeur de l'inputbox à une cellule la date s'inverse le JJ avec le MM (de valeur rentré: 01/02/2020 à 02/01/2020)

et ensuite même avec date inversé, le code de recherche ne fonctionne pas, des idées???

Je vous met en pièce jointe le doc.. en espérant trouver de l'aide. MERCI A TOUS

Bonjour elMacana

Cela ira mieux comme ça

Sub Macro27()
  Dim fechaC As String                                                                 'Boite de dialoge FECHA
  Dim recherche As Date
  Dim CelF As Range
  Dim a As Integer

  fechaC = InputBox("Date cherchŽe : ", "DATE", "", " 8000", 5000)
  Range("B1").Value = Format(CDate(fechaC), "mm/dd/yyyy")
  recherche = Range("B1")
  MsgBox (recherche)

  Set CelF = ThisWorkbook.Worksheets("Feuil1").Rows("3").Find(What:=recherche, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
  If Not CelF Is Nothing Then
    a = CelF.Column
    MsgBox ("Colonne : " & a)
    Cells(3, a).Select
  End If
End Sub

@+

Bonsoir Bruno,

Merci pour ta réponse!

Il a l'air juste ton code avec la déclaration du format de la date, cependant je l'ai testé et j'obtiens un erreur d'exécution, plus précisément l'erreur 6; dépassement de capacité, pour la ligne:

Range("B1").Value = Format(CDate(fechaC), "mm/dd/yyyy")

est ce que tu as pu tester ton code dans ta machine?