Mettre une colonne en surbrillance et fonction de la date

Bonjour à tous, et merci pour votre accueil !

Cela fait très longtemps que je n'ai plus touché à VBA, et dans le cadre de mon travail je dois établir une macro.

Cette macro a pour objectif de regarder la date du jour, et de mettre en surbrillance la colonne correspondante.

Voici la macro que j'ai commencée :

Sub FindDate()

For Each cell In ActiveSheet.Range("3:3")

If cell.Value = [Today()] Then

'cell.EntireColumn.Select
cell.Select

'ActiveCell.EntireColumn.Select
'ActiveCell.EntireRow.Select
End If

Next

End Sub

Elle fonctionne très bien, cela dit vous constaterez que la sélection de la colonne est en commentaire, car ça ne fonctionne pas. Je pense que le problème vient du format de la date, mais je ne trouve pas la solution.

Si c'est possible, j'ai également une colonne avec "matin" et "après-midi" entre autres, je ne sais pas si c'est possible de faire une macro qui filtrerait en fonction de l'heure actuelle ?

Merci d'avance pour votre aide

Bonjour et bienvenue,

Une proposition à adapter.

Cdlt.

Sub FindDate()
Dim x, n As Long
    With ActiveSheet
        On Error Resume Next
        x = Application.Match(CLng(VBA.Date), .Rows("3:3"), 0)
        If Not IsError(x) Then
            n = .Cells(.Rows.Count, 4).End(xlUp).Row
            .Cells(4, x).Resize(n - 3).Select
        End If
    End With
End Sub

Un grand merci à toi ! C'est top !

J'ai un peu de mal à comprendre la structure mais ça fonctionne très bien.