Recherche & référence Blocage affichage de l'ecran

[chris66000]

Bonjour,

je voudrais que les utilisateurs ne puissent pas de déplacer ailleurs que dans la partie de feuille a l'ecran
mon tableau est en b5:j18 a l'ecran ... je veux empecher le d"placement vers la col I ou vers la ligne 19l
j'ai plusieurs feuilles de dimensions differentes avec sur chaque des tableaux nommés et mon probléme est le meme

merci de votre aide

 

[Nain porte quoi]

Hello,

masquer les lignes/colonnes qui ne sont pas utiles ?

 

[chris66000]

Hello,

masquer les lignes/colonnes qui ne sont pas utiles ?

oui mais je voudrais qu'en fonction des tableaux , la macro selectionne la col de fin de tableau +1, la din des lignes+1 et masque le restant de la feuille
merci d'avance

 

[TooFatBoy]

Bonjour,

Une proposition (à adapter en fonction de ta feuille) :

Private Sub Worksheet_Activate()
'
    ActiveSheet.ScrollArea = "A1:J18"  ' Restreindre l'affichage de la feuille : autoriser l'accès uniquement aux cellules A1 à J18

End Sub

 

[TooFatBoy]

Remarque : tu veux bloquer l'accès aux cellules situées à droite du tableau, mais le bouton "Sommaire" est à droite du tableau, donc pas sûr que ça ne puisse pas poser un problème.

Ton classeur manque de rigueur et de structure :
- tu as de nombreuses cellules vides qui sont "utilisées",
- certaines feuilles ont un Tableau Structuré, d'autres ont un "tableau standard",
- etc.

Une proposition pour les feuilles ayant un TS (pour les autres feuilles, la zone d'affichage n'est pas modifiée) :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'
    If ActiveSheet.ListObjects.Count = 0 Then Exit Sub

    With ActiveSheet.ListObjects(1)
        ActiveSheet.ScrollArea = "$A$1:" & .Range.Resize(1, 1).Offset(.ListRows.Count, .ListColumns.Count - 1).Address
    End With

End Sub