XL 2016 Ouverture sur la colonne de la semaine actuelle

[guillaumewimat]

Bonjour,

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?

Merci d'avance

Guillaume

 

[sylvanu]

Bonjour Guillaume,
Un essai en PJ.
La macro est dans Thisworkbook et s'active à l'ouverture du fichier :

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

 

[pierrejean]

Bonjour Guillaumewimat
A tester
Edit Salut sylvanu

 

[sylvanu]

Oups ! Je pense que vous avez raison Pierrejean.
Moi j'ai tout masqué à part la semaine en cours.

 

[guillaumewimat]

Bonjour,

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

 

[TooFatBoy]

Bonjour,

Une possibilité : modifier la macro d'ouverture du fichier.

Private Sub Workbook_Open()
    With Sheets("PLANNING COMPLET")
        If ActiveSheet.Name = .Name Then
            Call scroll
        Else
            .Activate
        End If
    End With
End Sub

 

[patricktoulon]

bonsoir
a quoi ça sert de travailler avec des tableaux structurés si c'est pour tricoter des boucles et je ne sais quoi d'autre

capte directement le nom "s" et semaine de la date

dans un module

Sub gotosemaine()

  Sheets("PLANNING COMPLET").Range("Tableau1[S" & Format(Date, "ww", vbUseSystemDayOfWeek) & "]").Cells(1).Activate


End Sub

aujourd’hui ca donne ceci Range("Tableau1[S14]").Cells(1).Activate
et tu l'appelle d'ou et quand tu veux


pour la feuille tonte c'est pareil

Sheets("PLANNING TONTE").Range("Tableau13[S" & Format(Date, "ww", vbUseSystemDayOfWeek) & "]").Cells(1).Activate

voila simplement

 

[sylvanu]

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.

 

[pierrejean]

Bonjour
Merci Sylvanu