ScrollArea sur la zone visible de la feuille

[Mi_]

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 ActiveSheet.ScrollArea = 'SurfaceVisible'

ou

ActiveSheet.ScrollArea = 'A1:YZ' où YZ est la dernière cellule visible en bas à droite, déterminée automatiquement.

Est-ce possible ?

Merci,
Mi_



PS. Les archives du forum ne sont pas fonctionnelles.

Message édité par: Mi_, à: 25/10/2005 19:15

 

[Gérard DEZAMIS]

Bonjour Mi_

Pourquoi ne pas prendre le problème à l'envers :
au lieu d'autoriser la navigation sur une 'surface visible' il serait peut-être plus facile de masquer les lignes et les colonnes 'inutiles' ?

Une idée comme ça ...

@+ GD

 

[Mi_]

Bonsoir Gérard, le forum,

Même si on masque les lignes et les colonnes inutiles, le scroll peut aller au-dela de la limite, ce que je veux éviter justement.

Je cherche donc le code de la dernière cellule visible en bas à droite.

 

[STephane]

bonjour

si tu y tiens vraiment :

côté vba, regarde du côté de la propriété visiblerange de l'objet activewindow.


Stéphane

 

[Mi_]

Bonjour,

STephane, il y a des dizaines de proprietés pour ActiveWindow.VisibleRange, aurait-tu des indices supplémentaires ? (je suis assez novice)

Merci,
Mi_

 

[Hervé]

Bonsoir Mi_,gérard, stéphane, le forum

En reprenant l'excellente idée de stéphane :

ActiveSheet.ScrollArea = ActiveWindow.VisibleRange.Address

salut

 

[Mi_]

Tient un Hervé

Au secours !!! Avec ton code, Hervé, le scroll est complètement désactivé et l'affichage est figé à l'unique surface visible avant l'exécution du code ! S'il y avait des zones visibles en dessous ou à droite de l'écran (moniteur), c'est plus possible de les voir.

Je veux limiter le scroll, cèrtes, mais pas si fort. Seulement pour les zones visibles non masquées (n'importe leur dimension), et non pas pour les zones visibles à un moment donné sur l'écran.

 

[Hervé]

Salut Mi_



Moi je me suis arreter à cette phrase de toi : ActiveSheet.ScrollArea = 'SurfaceVisible'

c'est vrai que c'etait un peu costaud comme méthode, j'en conviens.

mais bon tu m'avoueras aussi que tes explications etaient peu précise.



Bon , et ca, ca irait :

ActiveSheet.ScrollArea = ActiveSheet.UsedRange.Address

on limite le scroll aux plages avec données.

a plus

salut

 

[ChTi160]

Bonsoir Mi_
bonsoir Hervé
Bonsoir le Fil

je joins une prose de Mister Ti Lol
qui pourra peut être être Adaptée
Merci Thierry
ScrollAera
Utiliser la fonction 'ScrollArea' sur plusieurs plages afin de délimiter chacune d'entre elles...L'exemple suivant permet de délimiter une ou plusieurs zones, et ce de manière très simple pour chacune des feuilles présentes dans le fichier...
Les plages accessibles sont définies dans les constantes Plage1 et Plage2 de la macro, qui fonctionne correctement même après l'ajout d'une nouvelle feuille. En cas de sélection d'une plage de plusieurs cellules dont certaines se trouvent en zone 'non autorisée', la sélection est réduite aux seules cellules valides.

'Code à coller dans ThisWorkbook
'
Option Explicit

'Mai 04

Const Plage1 = '$A$1:$H$100'
Const Plage2 = '$P$1:$R$100'

Dim ShCol As Collection

Private Sub Workbook_NewSheet (ByVal Sh As Object)
  Initialise
End Sub

Private Sub Initialise ()
Dim Sh As Worksheet
  Set ShCol = New Collection
  For Each Sh In ThisWorkbook.Worksheets
    ShCol.Add '$A$1', Sh.Name
  Next Sh
End Sub

Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
Dim Plage As Range
  On Error Resume Next
  With Sh
    If ShCol Is Nothing Then Initialise
    Set Plage = Intersect (Target, Union (.Range (Plage1), .Range (Plage2)))
    If Plage.Count <> Target.Count Then
      If Plage Is Nothing Then Application.Goto .Range (ShCol (.Name)) _
        Else Plage.Select
    Else
      ShCol.Remove .Name
      ShCol.Add Target.Address, .Name
    End If
  End With
End Sub

bonne fin de Soirée
Ps je joins le fichier que je viens de retrouver Lol [file name=ScrollAreaTi.zip size=10703]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ScrollAreaTi.zip[/file]

Message édité par: Chti160, à: 26/10/2005 22:41

 

[STephane]

mort de rire.
je pensais que ta demande était faite en connaissance de cause