- [Résolu] - Macro Recherche date du jour sur une ligne déterminée

[zorglubxp]

Bonjour,

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

Merci.

 

[phlaurent55]

Re : Macro Recherche date du jour sur une ligne déterminée

Bonjour

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

Merci.

avec ce code:

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

à+
Philippe

 

[Gardien de phare]

Re : Macro Recherche date du jour sur une ligne déterminée

Re, bonjour Philippe,

Ou alors pour avoir à la date à gauche

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

 

[zorglubxp]

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)

Merci encore 😉