Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Scroll area ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pat66

XLDnaute Impliqué
Bonjour le forum,

J'ai un problème avec cette macro qui ne limite pas le défilement vertical à la ligne 42 comme demandé.
Quelqu'un aurait il la gentillesse de me dire ce qui colle pas dans cette macro ?

merci et bonne journée

VB: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
 Range("A1:P20").Select ' pour centrer l'affichage
     ActiveWindow.Zoom = True
     ScrollArea = "A1:O42"  ' pour limiter le scrolling vertical
     Range("G26").Select
 End Sub
 
Trier par date Trier par votes
Bonjour,
Au lieu de Range("G26").select
Essaie ceci
VB: 
Application.Goto Range("A1"), True 'ou bien met G26 au lieu de A1
A+
 
Vote positif 0 Vote négatif
Bonjour pat66, cp4,

Le code du post #1 fonctionne très bien, que la feuille soit protégée ou non.

Mais il s'exécute seulement quand la feuille est activée.

Pour qu'il s'exécute à l'ouverture du fichier il faut le mettre dans la Workbook_Open du ThisWorkbook.

A+
 
Vote positif 0 Vote négatif
pat66 à dit:
re,

j'ai testé mais cela ne fonctionne toujours pas, je dois préciser aussi que la feuille est protégée peut être cela a une incidence sur la macro ?
Cliquez pour agrandir...
Sans fichier, je ne rien te dire. Cependant, fait un essai chez-toi en déprotégeant la feuille par code:
Sheets("nomfeuille").unprotect mot_de_passe

edit: Bonjour Job75😉
 
Vote positif 0 Vote négatif
bonjour Job75,

oui j'en suis conscient et je souhaite que scroll area s'applique a chaque fois que je reviens sur la feuille

et effectivement la déprotection n'a aucune influence sur le résultat

cdt
 
Vote positif 0 Vote négatif
Supprimez la macro Worksheet_Activate et placez ce code dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Feuil1" Then Exit Sub 'nom à adapter
Application.ScreenUpdating = False
Range("A1:P20").Select ' pour centrer l'affichage
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:O42"  ' pour limiter le scrolling vertical
Range("G26").Select
End Sub
Chez moi pas de problème.
 
Vote positif 0 Vote négatif
Bonjour à tous,

Job75, j'ai testé votre macro du post #8 mais rien à faire, c'est curieux et anormal je dois avoir une macro qui interfère, je vais donc revoir entièrement mon code et reviens vers vous pour vous tenir informé

merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
113
un internaute
U
F
  • Résolu(e)
XL 2021 Macro qui ne fonctionne pas, je ne comprends pas l'erreur :(
Réponses
3
Affichages
521
fanou06
F
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
546
Quentin2106
Q
P
  • Résolu(e)
XL 2019 Masquer la bordure de la cellule active
Réponses
7
Affichages
967
pat66
P
  • Résolu(e)
XL 2016 Un "call" de macro ne fonctionne pas
Réponses
11
Affichages
1 K
R1-
L
  • Question Question
XL 2019 Besoins d'aide pour corriger une macro qui ne fonctionne pas - svp
Réponses
2
Affichages
902
ThierryP
T
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
N
  • Résolu(e)
XL 2016 Frm de recherche VBA (userform)
Réponses
14
Affichages
2 K
nounou1902
N
P
  • Résolu(e)
XL 2019 Problème avec Worksheet_Change(ByVal Target As Range)
2 3
Réponses
33
Affichages
3 K
pat66
P
  • Question Question
XL 2016 Macro export pdf ne fonctionne pas
Réponses
5
Affichages
1 K
KTM
C
  • Résolu(e)
XL 2013 VBA - Amélioration d'une macro consolidation
Réponses
8
Affichages
2 K
Genii
G
  • Question Question
XL 2013 Macro d'importation ne s'execute pas
Réponses
1
Affichages
806
danilovitch
T
  • Question Question
Microsoft 365 Macro créée sur Excel 365 ne fonctionne pas sous Excel 2016 (signet Word=
Réponses
1
Affichages
1 K
titous68
T
  • Question Question
fonctions ne fonctionne pas une fois ensembles
Réponses
2
Affichages
735
zoidberg
P
  • Question Question
XL 2013 Macro créé sous 2013 qui ne fonctionne pas sous 2010
2
Réponses
15
Affichages
2 K
JM27
J
T
  • Question Question
Userform ne se ferme pas ou s'affiche mal
Réponses
5
Affichages
3 K
TVulcain
T
T
  • Question Question
XL 2010 Macro qui ne fonctionne pas, help !
Réponses
4
Affichages
976
fanfan38
F
  • Question Question
Macro Intervalle de date et heure qui ne fonctionne pas
Réponses
2
Affichages
1 K
F2T
F
D
  • Question Question
XL 2016 Trier une liste en fonction de plusieurs critères en VBA? (et pas en mode enregistrement macro)
Réponses
1
Affichages
2 K
doublenico
D
U
  • Question Question
Cette macro ne bloque pas mais ne joue pas son rôle
Réponses
2
Affichages
651
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…