ouvrir une plage en fonction de la date du jour

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

  • plage.xlsx
    43.3 KB · Affichages: 28

vgendron

XLDnaute Barbatruc
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
 

JCGL

XLDnaute Barbatruc
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
 

Si...

XLDnaute Barbatruc
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:

Discussions similaires

Statistiques des forums

Discussions
312 554
Messages
2 089 540
Membres
104 205
dernier inscrit
mehaya63