XL 2016 Volets figés, faire glisser les colonnes selon une variable

[Webperegrino]

Bonjour le Forum,
J'ai réalisé une formulation VBA, non aboutie car je "coince".
Pourrez-vous peut-être me venir en aide ...

Voici le fichier ci-joint avec cette requête VBA :
Même si après transfert dans ARCHIVES, les "X" de GÉNÉRATEUR ont été effacés pour les jours connus dans ARCHIVES , comment faire ce qui suit ?
- Dans ARCHIVES, le dernier jour saisi étant Samedi 04 avril,
- En allant dans GÉNÉRATEUR, la colonne F devrait venir se coller contre la ligne de « volets figés » tout près de la colonne F (colonnes C, D, Et non visible sans usage de l’ascenseur horizontal).
- Si je pouvais connaître le n° de colonne du premier jour non saisi, je pourrais facilement rectifier ma macro ""ActiveWindow.SmallScroll ToRight:=2""
en remplaçant le 2 par cette variable.

Merci pour votre aide,
Webperegrino

 

[Hasco]

Bonjour,

D'après ce que j'ai cru comprendre :

Sub Bouton1_Cliquer()
    Dim dte As Variant
    Dim idx As Variant
    dte = Sheets("ARCHIVES").Range("B" & Rows.Count).End(xlUp).Value

    If Not IsDate(dte) Then Exit Sub

    With Sheets("GÉNÉRATEUR")
        idx = Application.Match(CLng(dte) + 1, .Range("C2:L2"), 0)
        If Not IsError(idx) Then  Application.Goto .Range("C2:L2").Cells(1, idx), True
    End With

End Sub

P.S. Le format .xls est obsolète depuis 2007, évolution, évolution.

Cordialement

 

[Webperegrino]

Le Forum,
Bonjour Roblochon,
C'est parfait, c'est exactement ce que je désirais.
Me voilà "déconfiné" dans la deuxième feuille : celle-ci se déplace exactement comme prévu, selon l'évolution de la feuille 1.
Encore merci,
Cordialement,
Webperegrino