Positionnement automatique sur colonne "AUJOURD'HUI"

[Nico]

Bonjour le forum,

Je cherche un moyen de positionner automatiquement l'ascenseur horizontal à l'ouverture d'une feuille.
Le besoin est assez simple mais je n'ai pas trouvé dans l'historique du forum : chaque colonne (à partir de la 3ème) correspond à un jour de l'année. Les 3 premières colonnes, qui contiennent des libellés sont déjà "figées". Lorsque j'ouvre la feuille, je souhaite que la feuille scrolle automatiquement sur la droite pour me positionner sur la colonne correspondant à "aujourd'hui", sans avoir chaque jour à aller la chercher un peu plus loin à droite (flemmard, moi ? Meuuuh non!).

Par ailleurs, quelqu'un sait-il si MS annonce pour une version future une extension possible à + de 256 colonnes ?

Merci beaucoup d'avance pour votre aide.
Nico

 

[Robert]

Salut Nico, salut le forum,

Cette petite macro à placer dans la feuille qui contient les dates et à adapter (ici j'ai considéré que les date se trouvent dans la première ligne).

Private Sub Worksheet_Activate()
For Each cel In Range("D1:IV1") 'à adapter
If cel.Value = Date Then
cel.Select
ActiveWindow.ScrollColumn = cel.Column
Exit For
End If
Next cel
End Sub

À plus,

Robert

 

[Nico]

Salut Robert,
Un grand merci, ça fonctionne à merveille.
Nico