Volets figés : affichage colonne suivante

Version imprimable

17/02/2021, 09h33
Phil333250

Volets figés : affichage colonne suivante

Bonjour à toutes et tous,

Dans ma feuille, j'ai un tableau pour lequel les colonnes A à Q sont figées ainsi que les lignes 1 à 7.
A partir de la colonne R je me déplace vers la droite avec l'ascenseur horizontal.
Je souhaite pouvoir "forcer" l'affichage afin que je puisse avoir la colonne DH (par exemple) à la suite de la colonne Q.

Mon critère d'affichage correspond à la date du jour.
J'ai ligne 5 les dates de chaque jour de l'année.
C'est ainsi que les cellules R5 & S5 correspondent au 1er janvier, les cellules T5 & U5 correspondent au 2 janvier, les cellules V5 & W5 correspondent au 3 janvier, etc.

Par exemple le 17 février correspond aux colonnes DH & DI.

J'avais pensé masquer les colonnes de la période passée (ça je sais le faire), mais la personne qui va utiliser le fichier ne le veut pas car elle veut pouvoir naviguer vers les dates antérieures si besoin.

[Edit] J'aimerai que cela se fasse automatiquement à l'ouverture de la feuille.

J'ai besoin de votre aide car je ne sais pas comment m'y prendre.

Merci par avance

Philippe
17/02/2021, 11h17
Patrice740

1 pièce(s) jointe(s)

Bonjour,

Sans macro, on peut utiliser un lien hypertexte (ou plutôt 3).
Exemple : Pièce jointe 591234

Cliquer sur Ce jour pour aller directement à la date d'aujourd'hui
Pour amener la date d’aujourd’hui contre le volet, Cliquer sur Fin puis sur Ce jour
17/02/2021, 11h34
Phil333250

Bonjour Patrice740,

Merci pour cette solution qui fonctionne.

Mais j'aurais aimé que cela se fasse automatiquement à l'ouverture de la feuille.

Je modifie mon premier message en ce sens.
Philippe
17/02/2021, 11h40
Patrice740

Re,

Citation:

Envoyé par Phil333250

Mais j'aurais aimé que cela se fasse automatiquement à l'ouverture de la feuille.

Pour ça, il va falloir utiliser une macro VBA.
Il faut donc que l'utilisateur prenne le risque d'accepter l’exécution des macros.
Est-ce que ça se justifie ?
As-tu des connaissances en VBA ?
17/02/2021, 11h48
Phil333250

Patrice740

Citation:

Pour ça, il va falloir utiliser une macro VBA.

Le fichier est plein de macros.

Citation:

Est-ce que ça se justifie ?

Oui pour une question de praticité.

Citation:

As-tu des connaissances en VBA ?

Je suis un bricoleur, mais grâce au forum j'apprends et suis capable de réinvestir des macro, de les modifier, les adapter à mon problème.

Merci

Re,

Dans le module Thisworkbook :

Code:

1
2
3
4
Option Explicit
Private Sub Workbook_Open()
  Call ActiverCeJour
End Sub

Dans un module standard :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Public Sub ActiverCeJour()
Dim f As Worksheet
Dim w As Window
Dim c As Range
  Set f = ThisWorkbook.Worksheets(1)    'adapter l'index ou le nom de la feuille
  Set w = ThisWorkbook.Windows(1)
  Set c = f.Range("R5:ABS5").Find(Date) 'adapter à la plage des dates
  If Not c Is Nothing Then
    f.Activate
    w.ScrollColumn = c.Column
    c.Offset(3).Activate
  End If
End Sub

Bonjour Patrice,

Merci pour ces codes.

Citation:

Dans le module Thisworkbook :

Ok, fait.
Mais j'ai déjà ce code pour forcer l'ouverture sur la feuille "Accueil"

Code:

1
2
3
4
5
Private Sub Workbook_Open()
    On Error Resume Next
    Sheets("accueil").Activate
    Range("A1").Activate
End Sub

Pour l'instant je l'ai désactivé.
Je pense que quand le code fonctionnera, je mettrais "Call ActiverCeJour" ligne 5, mais faut-il que je garde "Option Explicit" ?

En revanche pour le code dans le module standard j'ai un soucis.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Public Sub ActiverCeJour()
 
 
Dim f As Worksheet 'Feuille
Dim w As Window    'Fenêtre
Dim c As Range     'Plage
 
  Set f = ThisWorkbook.Worksheets("Planning Global") 'On défini la feuille "Planning Global"
  Set w = ThisWorkbook.Windows(1)                    'On défini la fenêtre
  Set c = f.Range("R5:ABU5").Find(Date) 'Cherche la date d'aujourd'hui dans la plage des dates de la feuille "Planning Global"
 
  'If Not c Is Nothing Then     'Si je laisse actif, je ne vois pas le pb car il ne se passe rien
    f.Activate                  'On active la feuille "Planning Global"
    w.ScrollColumn = c.Column   'w.ScrollColumn => Identifie la colonne 18 soit R cad la colonne après celle qui est figée
                                'Cela semble correct car point de départ du Scroll
                                'Erreur d'exécution 91 => le pb vient de c.Column
                                'c.Column => Variable objet ou variable de bloc With non défini
 
    c.Offset(3).Activate 'Je sais pas si cela marche, la macro ne vas pas jusque là
                         'Aide VBA : expression.Offset (RowOffset, ColumnOffset) Les éléments entre paranthéses sont facultatifs.
                         'mais je pense que si on veut agir sur les colonnes il faudrait noter c.Offset(, 3) ?
                         'Je ne comprends pas le chiffre 3 : colonne 3 ?
  'End If
End Sub

Le bug vient de la ligne 15 w.ScrollColumn = c.Column et si mon analyse est bonne c'est c.Column qui bugue.
J'ai le message :

Citation:

Erreur d'exécution 91
Variable objet ou variable de bloc With non défini

Quant à la ligne 20 je ne sais pas pour l'instant si elle fonctionne.

Merci pour votre retour.

Cordialement
Philippe

1 pièce(s) jointe(s)

Bonjour,

Tu n'avais pas parlé d'autres feuilles, j'ai donc proposé d'aller directement sur la feuille à l'ouverture du fichier.
Ça "bug" parce que tu as désactivé la ligne 13 !!!!

Je mets toujours Option Explicit en tête de tous les modules.
Il ne faut jamais utiliser On Error ... à tort et à travers (comme dans ton Workbook_Open) !

Donc dans Thisworkbook :
Code:

1 2 3 4 Option Explicit Private Sub Workbook_Open() Application.Goto Worksheets("Accueil").Range("A1") End Sub
Dans le module de la feuille Planning Global :
Code:

1 2 3 4 Option Explicit Private Sub Worksheet_Activate() Call ActiverCeJour End Sub
Et dans le module standard :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit Public Sub ActiverCeJour() Dim f As Worksheet Dim w As Window Dim c As Range Set f = ThisWorkbook.Worksheets("Planning Global") Set w = ThisWorkbook.Windows(1) Set c = f.Range("R5:ABU5").Find(Date) If Not c Is Nothing Then f.Activate w.ScrollColumn = c.Column c.Offset(3).Activate End If End Sub
Exemple : Pièce jointe 591588

27/02/2021, 11h45
Phil333250

Bonjour Patrice,

Merci pour ces codes.

Citation:

dans Thisworkbook

OK

Citation:

Dans le module de la feuille Planning Global

OK

Citation:

dans le module standard :

OK

Cela fonctionne mais avec des dates saisies en dur.
Mais, mes dates en R5 et suivants sont calculées.
Je ne pensais pas que cela pouvait impacter. Le problème vient de là.
Donc j'ai rajouté une ligne 6 pour y faire un copier ligne 5 / coller valeur ligne 6 et modifié la macro en conséquence.
Cela fonctionne.

Merci

Philippe

Bonjour,

Citation:

Envoyé par Phil333250

Cela fonctionne mais avec des dates saisies en dur.
Mais, mes dates en R5 et suivants sont calculées.

Pour des dates calculées, tu peux utiliser Match :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Public Sub ActiverCeJour()
Dim f As Worksheet
Dim w As Window
Dim v As Variant
  Set f = ThisWorkbook.Worksheets("Planning Global")
  Set w = ThisWorkbook.Windows(1)
  v = Application.Match(CLng(Date), f.Range("R5:ABU5"), 0) - 1
  If Not IsError(v) Then
    f.Activate
    With f.Range("R5").Offset(3, v - 1)
      w.ScrollColumn = .Column
      .Activate
    End With
  End If
End Sub