Je cherche le moyen de réaliser une macro me permettant de trouver, sur une ligne déterminée, une cellule dans laquelle se trouve la date du jour. Cette date y est inscrite par formule. Je précise aussi que sur la ligne concernée, les cellules sont fusionnées par paire (donc une cellule sur 2 est vide)
Mon but étant par la suite de forcer l'affichage de la colonne dans laquelle se trouve la date du jour à l'ouverture du classeur
Private Sub Workbook_Open()
Dim cellule As Range
For Each cellule In Sheets("Planning").Range("B5:ADN5")
If cellule = Date Then
Cells(5, cellule.Column).Select
End If
Next cellule
End Sub
Re : Macro Recherche date du jour sur une ligne déterminée
Re, bonjour Philippe,
Ou alors pour avoir à la date à gauche
VB:
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
Re : Macro Recherche date du jour sur une ligne déterminée
Merci phlaurent55 et Gardien du phare,
cela répond tout à fait à mes attentes, avec une petite préférence pour le 2nd code car il permet d'avoir une vision du planning orientée vers les jours suivants plutôt que centrée sur aujourd'hui (plus intéressant dans mon cas)