XL 2016 Garder toujours visible mes différentes entêtes de colonnes

[Fipat]

Bonjour,

Je recherche un moyen de garder toujours visible mes différentes entêtes de colonnes si je descend via l'ascenseur vers le bas.
Je ne sais pas si c'est très clair, je mets donc un exemple qui sera surement plus parlant.
Merci.

 

[patricktoulon]

re
bonjour a tous
@job75 ne pourrait on pas gérer l’événement scroll
je vais vérifier

 

[job75]

Bonjour patricktoulon,

ne pourrait on pas gérer l’événement scroll
je vais vérifier

L'évènement Scroll concerne les barres de défilement de contrôles ActiveX, pas celles d'une feuille de calcul.

A+

 

[job75]

J'ai procédé à des tests de durées intéressants chez moi sur Win 10 - Excel 2019.

Le fichier du post #15 étant ouvert (et la mavro tournant) :

- touche F5 pour sélectionner la cellule A100000

- colorer A100000 en jaune

- remonter A100000 en haut, l'accrochage se produit après 5,3 secondes.

En sélectionnant la cellule A1048575 l'accrochage se produit après 50 secondes.

En sélectionnant la cellule A1048576 (dernière ligne de la feuille) un bug se produit.

 

[job75]

Désireux de connaître l'impact du 2ème DoEvents (boucle For/Next) je l'ai shunté.

L'accrochage de la cellule A1048575 se fait alors après 14 secondes au lieu de 50 secondes.

 

[job75]

Compte tenu du post précédent dans ce fichier (2) j'ai remplacé le 2ème DoEvents par If i Mod 100 = 0 Then DoEvents :

Sub Accrocher()
'menu Exécution => Réinitialiser pour arrêter la macro
Dim SR&, i&
Do
    DoEvents
    If ActiveWorkbook.Name = ThisWorkbook.Name And ActiveSheet.CodeName = "Feuil1" Then
        With ActiveWindow
            If .Panes.Count = 2 Then
                SR = .SplitRow + 1
                For i = SR To .Panes(2).VisibleRange.Row
                    If i Mod 100 = 0 Then DoEvents
                    If ActiveSheet.Cells(i, 1).Interior.ColorIndex = 6 Then 'couleur jaune
                        Application.ScreenUpdating = False
                        ActiveSheet.Rows(i).Cut 'couper
                        ActiveSheet.Cells(SR, 1).Insert 'insérer les cellules coupées
                        .FreezePanes = False
                        .SplitRow = SR
                        .FreezePanes = True
                        Application.ScreenUpdating = True
                        Exit For 'traitement un par un
                    End If
                Next
            End If
        End With
    End If
Loop
End Sub

Pour A100000 l'accrochage se fait après 1,37 seconde au lieu de 5,3 secondes.

Pour A1048575 l'accrochage se fait bien après 14 secondes au lieu de 50 secondes.