Figer le scrollarea

Bonjour à tous les forumeurs,

Est-il possible de bloquer définitivement ScrollArea?

J'ai essayé après avoir configurer et de le sauvegarder, de fermer mon projet quand je réouvre le projet ScrollArea n'est plus configurer.

Par contre pendant le moment mon projet reste ouvert pas de problème.

Serait-il encore un truc de MAC?

Merci de me donner l'information.

Bon début de semaine à tous.

Cordialement

Noël

Bonjour

Dans "barre d'outils controle/propriété" dans scrollarea tu met la plage "visible" et ainsi tu ne pourras plus descendre.

Sinon, trouvé sur "Excel Download"

 Re: Réduire le nombre de lignes et de colonnes 

--------------------------------------------------------------------------------

Bloque l'accès à cells autre que A1:S50

À mettre dans la feuil
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "a1:s50"
End Sub

Pour tous le classeur

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
Feuille .ScrollArea = "$A$1:$s$50"
Next Feuille 
End Sub

Cordialement

Bonjour,

Ben non c'est pas MAC... 8)

Il faut voir la feuille que tu veux figer. Essaye en plaçant ce code en VBA dans la feuille en question :

Private Sub Worksheet_Activate()
with ActiveSheet
.ScrollArea = .UsedRange.Address
End With
End Su

b

Si tu dois agir sur plusieurs feuilles,d 'autres technique sont possibles. A toi de dire ce que tu veux faire exactement.

Amicalement

Dan

BonjourMarguetlolo et Dan

Toujours le même je m'approfondi de plus dans Excel et ceci grace à vous.

Je voudrai faire un essai pour figer scrolleArea sur une feuille au départ. Par la suite je veux l'étendre à d'autres feuilles.

Marguetlolo si je suis ton chemin c'est celui du PC mais pour le MAC il faut que je parte dans le VBA

Dan, si je suis ton raisonnement, je ne vois pas la plage de page concernée est-ce normal? ou sinon c'est un oublie.

Mais je vais essayer les 2 solutions porposée pat toi et Maguetlolo..

Serait-il possible de me faire passer une feuille avec scrolleaea figé.

Merci d'avance

Noël

re

https://www.excel-pratique.com/~files/doc/hdYQrClasseur1.xls

cordialement

Re

Marguetlolo,

J'ai essayé d'adapter à mon projet. Il marche pour une feuille. Quand je recopie ma feuille ca ne marche plus après la sauvegarde. Pourquoi je ne saurai te dire.

Est-ce possible d'avaoir VBA pour mùes 12 feuilles identiques de JAN à DEC.

Merci.

Amicalement

Noël

Bonsoir tout le monde

https://www.excel-pratique.com/~files/doc/Ssud5Classeur1.xls

Cordialement

Bonjour à tous,

Maguetlolo, ca marche très bien. Je pense que grace à toi mon projet est sur le point d'aboutir. Il me reste une petite question ce VBA qui est placé dans le module 1 il fige le SCROLLAERA pour toutes les pages du classeur.

Peut-on créer un module pour chaque feuille et installer la Macro.

Parce qu'en plus des 12 mois j'ai d'autres feuilles de mon classeur que je ne désire pas avoir les mêmes dimensions.

Je te souhaite une bonne journée car chez moi il est 5h du mat

Merci

Amicalement

Noël

Salut le forum

Au-lieu d'un module Auto-Open (qui n'est pas très à la mode), à mettre dans ThisWorkbook

Private Sub Workbook_Open()
Dim Feuille As Worksheet

For Each Feuille In ThisWorkbook.Sheets
  With Feuille
    Select Case .Name
      Case "JAN", "FEV"
        .ScrollArea = "$A$1:$S$50"
      Case "MAR", "AVR"
        .ScrollArea = "$A$1:$B$10"
      Case Else
        .ScrollArea = ""
    End Select
  End With
Next Feuille

End Sub

Le code est à compléter, avec tes noms de feuilles (Attention à la case)

Mytå

Bonjour Myta,

J'ai vu cette MACRO après coup.

est-il possible Select Case .Name

Case "JAN", "FEV" on peut rajouter "MAR","AVR", etc...ayant les mêmes dimensions.

D'après l'écriture de la MACRO je vois que c'est possible mais je préfère avoir l'avis d'un excellien confirmé tel que toi.

Merci d'avance.

Amicalement

Noël

re le forum

Tu peux adapter oui cfn3cfn

Private Sub Workbook_Open() 
Dim Feuille As Worksheet 

For Each Feuille In ThisWorkbook.Sheets 
  With Feuille 
    Select Case .Name 
      Case "JAN", "FEV" ,"MAR","AVR" 'etc
        .ScrollArea = "$A$1:$S$50" 
      Case "Baba", "Brvr" 
        .ScrollArea = "$A$1:$B$10" 
      Case Else 
        .ScrollArea = "" 
    End Select 
  End With 
Next Feuille 

End Sub

Le case Else est pour les feuilles qui ne sont pas dans la liste des Case de base.

Mytå

Re,

Tu est déjà réveilé ou tu n'as pas encore pris ton lit en tout ta réponse était rapide vu l'heure ici à la Réunion iles 6H30 du mat. donc chez toi il est 3hoo de moins.

Merci pour ta réponse. Je pense que je vais l'adapter dans mon projet.

Amicalement

Noël

Re cfn3cfn

Avec le décalage horaire au Québec (21:34)

Je suis le veilleur de nuit

Mytå

Ah bon tu es du Québec. Tu n'est pas réunionnais au moins.

Vu qu'au Québec beaucoup de Réunionnais font en études.

Je pense pour le peu que je connaisse du Québec la chaleur exterieure fait défaut.

Merci

re,

désolé pour le retard...

Dan, si je suis ton raisonnement, je ne vois pas la plage de page concernée est-ce normal?

Avec ce code, la plage est reconnue et ta feuille est "scrollée" automatiquement.

Amicalement

Dan

Bonjour,

Dan c'est bon je te remercie.

Tu n'as pas t'excuser pour le retard. Je sais que tu travailles et qu'il faut un temps à toute chose.

Je vais essayer ta Macro

Merci

amicalement

Noël