J'ai un fichier avec les 52 colonnes correspondant aux semaines de l'année. J'aimerai que le fichier s'ouvre sur la colonne de la semaine actuelle, afin d'éviter de scroller à chaque ouverture du fichier.
Mon numéro de semaine actuelle est en B1
Mes N° de semaines sont de I2 à BH2
Est ce possible?
Bonjour Guillaume,
Un essai en PJ.
La macro est dans Thisworkbook et s'active à l'ouverture du fichier :
VB:
Private Sub Workbook_Open()
Sheets("PLANNING COMPLET").Activate
' Masque tout de S1 à S52
Columns("I:BH").EntireColumn.Hidden = True
' Affiche colonne de la semaine
Columns([B1] + 8).EntireColumn.Hidden = False
Cells(1, [B1] + 8).Select
End Sub
Merci à vous.
Effectivement je préfère que toutes les colonnes restent affichées.
Pierre Jean, lorsque j'ouvre le fichier il s'ouvre bien sur la semaine 14. Par contre si je reviens en semaine 1 et que j'enregistre, si je ferme et ré ouvre, le tableau reste sur la semaine 1. Alors que je souhaiterais qu'il s'ouvre sur la semaine 14 (semaine actuelle).
Est ce normal par rapport au code que vous avez fait?
Guillaume
Bonjour tout le monde,
En PJ le fichier de PierreJean avec lancement de la macro à l'ouverture.
J'y ai rajouté une petite étoile en F1. En cas de scroll, un appui sur cette étoile ramène à la semaine courante.