ouvrir une plage en fonction de la date du jour

  • Initiateur de la discussion Initiateur de la discussion MASSJIPE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MASSJIPE

XLDnaute Impliqué
Bonjour le forum
J'ai un classeur avec 3 Feuil1 2 3 en A1 la fonction date du jour
sur la feuil1 j'ai 6 plages de cellules Lundi Mardi Etc quand j'ouvre le fichier si on n'est lundi je voudrai aller a la plage de cellules lundi et cela sur les trois feuilles
merci
 

Pièces jointes

Re : ouvrir une plage en fonction de la date du jour

Bonjour;.
avec un truc du genre

Code:
Private Sub Workbook_Open()
jour = Weekday(Date, vbMonday)
'sélection des trois feuilles en meme temps
Sheets(Array("Feuil1", "Feuil2", "feuil3")).Select

'décalage de 13 colonnes (13 parce que tes zones sont définies sur 13 colonnes 
If jour <> 1 Then ActiveWindow.ScrollColumn = (jour - 1) * 13
End Sub
 
Re : ouvrir une plage en fonction de la date du jour

Bonjour à tous,

Dans le ThisWorkBook :

VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(2, Weekday(Date, vbMonday) * 12 - 11).Select
End Sub

A+ à tous
 
Re : ouvrir une plage en fonction de la date du jour

Hello

Pour un petit écran et pour toute date en A1 (un poil plus court)
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Cells(2, Weekday([A1] - 1) * 12).Select
End Sub

Et pour ceux qui ne veulent pas de Select 😉

Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Application.Goto Cells(2, Weekday(Now - 1) * 12), 1
End Sub

Oups après relecture de ceci
Bonjour
je voudrai quant on clic sur la feuille concernée et dans le code j'ai la selection des 3 feuilles mais pas le déplacement sur la plage concernée
je pense être à côté de la plaque. Maintenant,"un clic dans le code"... je ne sais pas ce que c'est.
Je laisse quand même mes propositions, on ne sait jamais...
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour