XL 2019 recherche date sur ligne

[loic126]

bonjour,
je souhaiterai que la colonne correspondant à la date du jour (située en B2) apparaisse en cliquant sur le bouton.

j'ai essayé ça mais sans succès :

Private Sub Bouton1_Cliquer()
    With Worksheets("MOUVEMENT FOURNITURES")
        .Activate
        .Rows(2).Find(Date).Select
    End With
End Sub

ainsi que :

Private Sub Workbook_Open()
Dim cellule As Range
For Each cellule In Sheets("Planning").Range("B5:ADN5")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

que me manque-t-il?

merci de votre aide

 

[job75]

Bonsoir loic126, bienvenue sur XLD,

Il n'est pas courant de mettre des "dates" comme en-têtes de colonnes d'un tableau structuré.

Car alors ce ne sont plus de vraies dates (nombres) mais des textes.

On peut malgré tout travailler avec ces textes, voyez cette macro dans ThisWorkbook :

Private Sub Workbook_Open()
Application.Goto Rows(2).Find(Format(Date, "dd/mm/yyyy"), , xlValues), True 'cadrage
End Sub

C'est un texte qui est recherché en ligne 2.

Sur le fichier joint les colonnes A:G sont figées pour permettre un bon cadrage.

A+