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 :
VB:
Private Sub Bouton1_Cliquer()
With Worksheets("MOUVEMENT FOURNITURES")
.Activate
.Rows(2).Find(Date).Select
End With
End Sub
ainsi que :
Code:
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