Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

Webperegrino

XLDnaute Accro
Supporter XLD
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
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…