"Figer les volets" localisé

Signaler
Messages postés
15112
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
12 avril 2021
-
Messages postés
23995
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
-
Bonjour,

j'aimerai appliquer l'effet de "figer les volets" sur une cellule dans sa colonne, jusqu'à la prochine cellule non vide.
Est-ce possible?

Plus précisément :
En colonne A, des titres de section (plein de cases vides en dessous)
En colonne B, une multitude de lignes d'éléments dans chaque section
Seule la ligne du premier élément contient le "titre de section".
J'aimerai que ce titre s'affiche en case A de la première ligne à l'écran, tant que cette ligne appartient à la section considérée, jusqu'à ce que la section suivante prenne la place en haut de l'écran (en défilant le document).

Possible? Si oui, comment?
Merci

Parce que les notices ne disent pas tout...
Mais pas rien non plus, hein!

1 réponse

Messages postés
23995
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
6 721
Bonjour,

pas sûr d'avoir bien compris...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    Set c = Cells(Target.Row, 1)
    If c = "" Then Set c = c.End(xlUp)
    Range("A1").Value = c
End Sub

https://www.cjoint.com/c/KDcj13yvHXD
c'est la section de la ligne sélectionnée que j'affiche.
Le scrolling ne déclenchant pas d'événement c'est un peu plus compliqué mais faisable de mettre celle de la 1ère ligne affichée
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Messages postés
15112
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
12 avril 2021
2 241
C'est la réponse que je n'ai pas compris...
Que faire de ces lignes de code?
Quel est leur effet?
Cet effet s'applique à quelles cellules?
Peut-on appliquer cet effet à plusieurs plages de cellules indépendamment les unes des autres?
Messages postés
15112
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
12 avril 2021
2 241
"pas sûr d'avoir bien compris..."

J'ai probablement mal expliqué.
Je souhaite appliquer l'effet de "figer les volets" non pas sur "tout l'onglet" du document,
mais sur "telle plage de cellules" (de B5 à B78, par exemple),
en ajoutant un automatisme qui fait que si une cellule de la plage considérée contient un texte, c'est lui qui s'affiche en haut de la zone affichée en lieu et place du précédent...
En haut de cette zone s'affiche le texte de la cellule non vide située en haut ou au dessus de la zone affichée.
Si la plage considérée n'est pas visible à l'écran (tout ou partie), le texte ne doit pas être affiché.

Est-ce plus clair?
Messages postés
23995
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
6 721 >
Messages postés
15112
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
12 avril 2021

Pas bonjour non plus, et je me remercie tout seul...
15000 posts et toujours pas appris la politesse minimum ? Il serait temps de lire la charte...
Télécharge le fichier joint et tu auras tes réponses en testant.
eric