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

Webperegrino · 3 Avril 2020

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 · 3 Avril 2020

Bonjour,

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

VB:

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 · 3 Avril 2020

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

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

Webperegrino

XLDnaute Impliqué

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

Webperegrino

XLDnaute Impliqué