Microsoft 365 Bloquer défilement de la feuille selon hauteur de ligne

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une beau dimanche

J'en ai une petite pour ce dimanche lol

Je cherche à bloquer le défilement de la feuille (haut/bas - droite/gauche) si une ligne est à hauteur 200.
Par exemple :
Si clic sur la ligne 10, elle se met en hauteur 200 et passe en 1ère ligne visible.
Je souhaite qu'on ne puisse pas bouger l'affichage de cette ligne qui doit rester en 1ère ligne visible.

Il y a bien ce fil : https://www.excel-downloads.com/threads/figer-defilement-feuille-excel.215646/
mais ce n'était pas suffisant.

Pour l'instant je n'ai pas trouvé comment le coder mais je continue ) tester et à chercher.
Auriez-vous le bon code ?
Je joins un p'tit fichier test

Remerciements du dimanche
lionel,

 

[Usine à gaz]

Re-Bonjour

Il y a le blocage possible des barres :
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

Mais cela ne résout pas le défilement avec la souris.
Je continue mes recherches

 

[job75]

Bonjour Lionel,

Avec une macro tournant en arrière-plan dans ThisWorkbook :

Private Sub Workbook_Open()
Application.OnTime 1, Me.CodeName & ".Bloque" 'lance le processus
End Sub

Private Sub Bloque()
Dim t#, r As Range
Do
    t = Timer + 0.1 'temporisation 0.1 seconde
    While Timer < t And t < 86400: DoEvents: Wend
    For Each r In ActiveSheet.UsedRange
        If r.RowHeight >= 200 Then
            ActiveWindow.ScrollRow = r.Row
            ActiveWindow.ScrollColumn = 1
            Exit For
        End If
    Next
Loop
End Sub

Pour arrêter le processus, dans VBA menu Exécution => Réinitialiser.

A+

 

[Usine à gaz]

Bonjour Gérard,
Encore un code "Job75" dans mes dossiers"
Nickel comme d'habitude !
Je te remercie,
lionel

 

[Usine à gaz]

Re :
Il y a aussi :
ActiveSheet.ScrollArea = "Activecell ou ligne active :zz20000"
et ActiveSheet.ScrollArea = "" pour neutraliser
Mais je n'arrive pas à le coder comme il faut
ça ferait 2 codes possibles

 

[job75]

ActiveSheet.ScrollArea ne permettra pas de faire ce que tu souhaites.

Note bien qu'au poste #3 j'ai ajouté Exit For pour que ce soit la 1ère ligne trouvée qui soit traitée.

 

[Usine à gaz]

Re-Gérard,
Merci pour ce complément
lionel,

 

[job75]

Regarde quand même ce que donnent ces 2 macros :

Sub Bloquer()
'se lance par les touches Ctrl+B
Dim r As Range
For Each r In ActiveSheet.UsedRange
    If r.RowHeight >= 200 Then
        Application.Goto r.Cells(1), True
        ActiveSheet.ScrollArea = r.Cells(1).Address
        Exit For
    End If
Next
End Sub

Sub Debloquer()
'se lance par les touches Ctrl+D
ActiveSheet.ScrollArea = ""
End Sub

La 1ère macro bloque le défilement mais aussi la sélection.

 

[Usine à gaz]

Merci Gérard
Je vais regarder ...

 

[Usine à gaz]

Re-Gérard
Nickel de chez nickel (le contraire m'aurait étonné lol)
Me voilà avec 2 super solutions.
Encore merci
lionel,

 

[Usine à gaz]

Re-Bonjour
Suite au #post 8, je tente de simuler en senkey les Touches Ctrl+B et touches Ctrl+D.
J'ai tenté plusieurs fois mais sans succès.
J'en suis à ça :
- CreateObject("wscript.shell").SendKeys "+(^{b})"
- CreateObject("wscript.shell").SendKeys "+(^{d})"
Auriez-vous le bon code ?
Merci à toutes et à tous,
lionel

 

[job75]

CreateObject("wscript.shell").SendKeys "^b"
CreateObject("wscript.shell").SendKeys "^d"

 

[Usine à gaz]

Merci Gérard
Mais ça ne fonctionne pas
lionel

 

[Usine à gaz]

Re
Ce qui résoudrait le problème serait de faire un ScrollArea sur la ligne active :
ActiveSheet.ScrollArea = "ligne active:ligne active"
Mais ça aussi je ne sais pas faire.
lionel

 

[Usine à gaz]

Bingo :

ScrollArea sur la zone visible de la feuille

Bonjour le forum, Pour limiter le scroll dans une feuille de dimensions connues, c'est simple: Feuil1.ScrollArea = 'B4:H23'. Mais si l'on a plusieurs feuilles, chacune avec ses limites horizontales et verticales, différentes, comment faire ? Je cherche une sorte de...

www.excel-downloads.com

ActiveSheet.ScrollArea = ActiveWindow.VisibleRange.Address