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.

 

[Fipat]

Bonjour,

merci pour cette réponse.
Quand je sélectionne mais entête via la touche Ctrl et en sélectionnant via mon exemple la ligne 1, 40 et 70 et je fais figer cela ne fonctionne pas.
Part contre je n'ai jamais utilisé fractionner !
J'ai beau faire des tests sur mon exemple mais sans succès, je persiste

 

[job75]

Bonsoir Fipat,

Je refais mon message.

A priori copiez chacune des lignes 40 et 70 et insérez-les à la suite de la ligne 1.

Ensuite utilisez les commandes Fractionner et Figer les volets du menu Affichage sur les 3 premières lignes.

A+

 

[Eric C]

Bonsoir le forum
Bonsoir Fipat
Bonsoir Job
Tu sélectionnes les 3 premières lignes et tu te rends dans l'onglet "Affichage" et tu vas figer tes volets. Ainsi, u auras tes entêtes disponibles.
Bonne soirée à toutes & à tous
@+ Eric c

 

[Fipat]

Merci pour vos réponses.
job75
Bon je ne dois être très doué !
J'ai copié 40 et 70 que j'ai mis en ligne 2 et 3, ensuite fractionné entre la ligne 3 et 4 et j'ai figé les volets, cela ne marche pas.

Eric C
Bonjour et merci.
Je suis reparti de l'exemple de base et sélectionné les trois premières lignes et j'ai figé, mais idem sans succès.

Apparemment une manipulation que je ne comprends pas !
Désole, mais en tout cas merci pour votre aide

 

[job75]

Quand vous cliquez sur Fractionner il se forme 2 barres qui séparent les volets.

La barre verticale que vous supprimez en la déplaçant complètement à gauche.

La barre horizontale que vous positionnez entre les lignes 3 et 4.

Ensuite Figer les volets.

 

[Fipat]

Merci job75
Mais idem, toujours pas le résultat attendu.
Je vais laisser pour ce soir et je me remets dessus demain matin, on ne sait jamais !
En tout cas milles mercis pour votre aide à vous deux.
Bonne soirée à vous Eric75 et job75

 

[Eric C]

Re le fil,

Oui il est temps d'aller te reposer, moi c'est Eric c. Voici ton fichier aménagé à ce que j'ai compris.

 

[Fipat]

Oups !
Désolé Eric C
Malgré cette macro

Sub Fige()
Rows("1:3").Select
ActiveWindow.FreezePanes = True
End Sub

Chez moi je n'ai pas le résultat recherché.
Quand je fait défiler le curseur vers la bas mes entêtes disparaissent, elles ne s'affichent plus sur le haut de la feuille.
Mais tu as raison une bonne nuit de sommeil sera surement bénéfique
Merci et bonne soirée.

 

[Eric C]

Re,
De rien...
Bon là, je ne comprends pas. La macro n'a rien à voir... c'était pour un essai. Dans le fichier joint, les 3 premières lignes sont figées ???

 

[Fipat]

Bonjour Eric C

Désolé pour cette réponse tardive.
Bon je suis désolé mais je ne comprends pas pourquoi ça ne fonctionne pas.

Dans le fichier joint, les 3 premières lignes sont figées ???

Non.

Bonne soirée.

 

[Eric C]

Bonsoir le forum
Bonsoir Fipat, le fil,

Je viens de "relancer" le fichier et les 3 premières lignes sont bien figées ??? Peut on demander l'avis à d'autres contributeurs ?
@+

 

[patricktoulon]

bonjour a tous
@Eric C les 3 lignes sont bien figées

 

[Fipat]

Bonjour Eric C,

Ok en faisant comme ça oui. Ce que je voulais s'était garder l'affichage d'origine et bloquer les entêtes au fur et à mesure qu'elles se retrouve en haut.
Mais bon apparemment pas possible.
Merci beaucoup pour ces échanges.
Bonne journée.

 

[job75]

Bonjour Fipat, le forum,

Si je comprends bien vous voulez "accrocher" les lignes jaunes au fur et à mesure qu'elles arrivent en haut de la feuille.

C'est une drôle d'idée mais c'est tout à fait possible, voyez cette macro dans le Module1 du fichier joint :

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
                    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

Elle est lancée automatiquement à l'ouverture du fichier par cette macro dans le Thisworkbook :

Private Sub Workbook_Open()
Application.OnTime 1, "Accrocher" 'lance le processus
End Sub

Elle tourne en permanence, si l'on veut modifier le VBA il faut l'arrêter par le menu Exécution => Réinitialiser.

Edit : ajouté Exit For pour éviter le bug qui pouvait se produire en utilisant la barre de défilement.

Bonne journée.