Bonjour

Voilà, cela fait plusieurs jour que je cherche une solution, pour rechercher via une Macro

Soit avec le Calendar ou une textbox, ou même une inputbox, entrer une date faire la recherche sur une ligne et selectionner la date une fois trouvé. mais avec le format date cela s'avère plus difficile que je ne croyais.
Donc en cherchant j'ai trouvé quelques codes, mais ils ne fonctionnaient pas tous j'en ai gardé un qui trouve bien la date, mais il ne sélectionne pas la cellule et pour la suite j'aurais besoin que cette case soit sélectionnée.

Ci joint le code si quelqu'un à une idée. Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CB_OK2_Click()
Dim TheDate As Long, Index As Variant
 
    Range("A4").Select
TheDate = ActiveCell
 
    With Worksheets("Planning")
        Index = Application.Match(TheDate, .Range("C3:BDF3"), 0)
    End With
 
    If IsError(Index) Then
        MsgBox "Résultat négatif. Rien trouvé.", vbOKOnly + vbInformation, "Résultat"
    Else
        MsgBox "La date " & Format(TheDate, "dd/mm/yyyy") & " existe. Elle est représentée par " & _
        "l'item " & Index & " de la plage de cellules.", vbInformation + vbOKOnly, "Résultat"
 
 
    End If
End Sub