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

 

[chris66000]

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

 

[chris66000]

Bonjour,
merci de tes remarques ...et de ta solution, je vais essayer et prendre en compte tes remarques

 

[TooFatBoy]

merci de tes remarques ...et de ta solution, je vais essayer et prendre en compte tes remarques

As-tu regardé le classeur que j'ai fourni là-bas ?

 

[TooFatBoy]

As-tu regardé le classeur que j'ai fourni là-bas ?

Toujours pas de réponse depuis le 10 septembre alors que l'intéressé (l'est-il vraiment ?...) est passé ici au moins le 15 septembre...

Ca fait plaisir... : il file un classeur tout vérolé et totalement inutilisable. Grâce à un coup de baguette magique tu lui répares son classeur qui du coup semble parfaitement fonctionner, parce que tu lui as en plus réparé quelques bugs, et il ne fait aucun retour malgré les relances ! C'est à dégoutter d'essayer d'aider les personnes suivantes... 😡

Allez hop, le goudron, les plumes, et zou, aux oubliettes le gazier.

 

[chris66000]

Toujours pas de réponse depuis le 10 septembre alors que l'intéressé (l'est-il vraiment ?...) est passé ici au moins le 15 septembre...

Ca fait plaisir... : il file un classeur tout vérolé et totalement inutilisable. Grâce à un coup de baguette magique tu lui répares son classeur qui du coup semble parfaitement fonctionner, parce que tu lui as en plus réparé quelques bugs, et il ne fait aucun retour malgré les relances ! C'est à dégoutter d'essayer d'aider les personnes suivantes... 😡

Allez hop, le goudron, les plumes, et zou, aux oubliettes le gazier.

Bonjour, désolé de ne pas avoir répondu ....j'en suis désolé et comprends ton mecontentement!
a l'avenir je prendrais garde de repondre et surtout de remercier.
toutes mes excuses !

 

[TooFatBoy]

Bonjour, désolé de ne pas avoir répondu ....j'en suis désolé et comprends ton mecontentement!
a l'avenir je prendrais garde de repondre et surtout de remercier.
toutes mes excuses !

C'est bon, tu sorts des oubliettes.
Et j'enlève même le goudron et les plumes si tu me dis enfin si tu étais allé voir l'autre fil de discussion et si tu y avais récupéré le classeur.

 

[chris66000]

C'est bon, tu sorts des oubliettes.
Et j'enlève même le goudron et les plumes si tu me dis enfin si tu étais allé voir l'autre fil de discussion et si tu y avais récupéré le classeur.

C'est bon, tu sorts des oubliettes.
Et j'enlève même le goudron et les plumes si tu me dis enfin si tu étais allé voir l'autre fil de discussion et si tu y avais récupéré le classeur.

Non, je ne l'ai pas récuperé.... j'ai eu un accident au mois de mai et allité depuis! quand je peut j'essaye de travailler pour me passer le temps mais pas plus de 15 20 mn car je ne peut etre assis ! voila pourquoi je n'ai pas tenu compte de ton aide etc....
toutes mes excuses encore une fois

 

[TooFatBoy]

Non, je ne l'ai pas récuperé...

Dommage. J'avais réussi à le réparer.

Bonne soirée
🖖

 

[chris66000]

j'ai réussi a le debloquer ....et je vais essayer de tenir compte de tes remarques ! si besoin je reviendrais vers toi...si ru es dispo
merci d'avance